Нашел подходящий кусок кода... только клиент ругается, что переменная не определена, что очень странно, ибо код брался с документации лотусни.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Dim item As NotesItem
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
Set item = doc.GetFirstItem("Subject")
Call item.CopyItemToDocument(doc2, "Subject")
Set item = doc.GetFirstItem("Body")
Call item.CopyItemToDocument(doc2, "Body") 'ругается в этом месте
Call doc2.Send(True, "Marketing")
End Sub
В принципе, если бы был рабочий, на его основе можно было переделать Lotus Formula (кода "Отправить") в LotusScript, добавив в этот код сохранение и закрытие, чтобы юзверь не отличил на глаз изменения в действиях при отправке письма.
