Продукты IBM Lotus > IBM Lotus Notes & Domino

Отправка копии письма.

<< < (2/5) > >>

ViV:
А если выбрать второй пункт и указать две базы: базу куда копировать и серверный mail.box?

ol_x:
Он не копирует, а перемещает. Попробовал, не то.

ol_x:
Нашел подходящий кусок кода... только клиент ругается, что переменная не определена, что очень странно, ибо код брался с документации лотусни.


--- Код: ---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, добавив в этот код сохранение и закрытие, чтобы юзверь не отличил на глаз изменения в действиях при отправке письма.

ViV:
Можно в почтовом шаблоне для кнопок отправки добавить @MailSend("Marketing")

ol_x:
В таком случае письмо улетает пустым: без темы и без тела...

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница