Mail Forward

wowa

Well-known member
01.02.2007
848
0
#1
Кто-н работал с Mail Forward???
Не знаю как правильно даже спросить
Есть форма, пусть там одна кнопка....
Как отправить письмо to User_1 , чтобы там были поля и кнопки из Form_1
Предполагаю что-то типа @Command([MailForward])....
 

susinmn

Well-known member
16.10.2007
529
3
#3
Dim s As New NotesSession
Set db=s.CurrentDatabase

Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")
maildoc.form="Form_1"
maildoc.SendTo = "User_1"
maildoc.principal="Типа от кого"
maildoc.CopyTo="Ему отправить копию"
maildoc.BlindCopyTo="Ему отправить скрытую копию"
maildoc.Subject = "Тема письма"
Call rtitem.AppendText( "Текст письма. " +Chr(10)+Chr(13)+ _
"Ссылка на документ, например doc - ")
Call rtitem.AppendDocLink(doc, "")
Call maildoc.Send (True)
 

wowa

Well-known member
01.02.2007
848
0
#4
Спасибо, вроде получилось почти то что хотел.
Еще такой вопрос:
Есть "Форма_1" и "Форма_2"

1) Создаю документ_1 по Форме_1, там кнопочки и т.д.
2) В Action Bar нажимаю кнопку, и все элементы из документа_1 переносятся куда-н вниз документа_2 по Форме_2....

Такое возможно реализовать?
Что-то типа Mail Forward.....

Код:
Call rtitem.AppendText( "Текст письма. " +Chr(10)+Chr(13)+ _
"Ссылка на документ, например doc - ")
Данный текст я нигде не увидел.... Документ по Форме_1 просто переслался по почте...