Mail Forward

[wowa]

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

 

[Medevic]

Call notesDocument.Send(True, "User_1")

 

[susinmn]

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]

Спасибо, вроде получилось почти то что хотел.
Еще такой вопрос:
Есть "Форма_1" и "Форма_2"

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

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

Call rtitem.AppendText( "Текст письма. " +Chr(10)+Chr(13)+ _
"Ссылка на документ, например doc - ")

Данный текст я нигде не увидел.... Документ по Форме_1 просто переслался по почте...

 

[susinmn]

Посмотри, как в почтовой бд реализовано на кнопке *Ответить с документом*

или здесь -

Ссылка скрыта от гостей