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

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

<< < (3/5) > >>

ViV:
Ок, можно углубиться и добавить код в библиотеку отправки.

Для этого, в скриптовой библиотеке CoreEmailClasses, в функции QuerySave класса UIMemoDocument
в начале функции после строки
On Error Goto TRAP

добавить код:


--- Код: ---Dim mdoc As NotesDocument
Set mdoc =  Me.m_db.Createdocument()

Call mdoc.Replaceitemvalue("SendTo", "Marketing")
Call mdoc.Replaceitemvalue("Body", Me.m_noteUIMemo.Fieldgettext("Body"))
Call mdoc.Replaceitemvalue("Subject", Me.m_noteUIMemo.Fieldgettext("Subject"))
Call mdoc.Send(False)

--- Конец кода ---

ol_x:
Ругалось на m_db. Сделал вот так:


--- Код: ---Set mdoc = Me.m_session.Currentdatabase.Createdocument()
--- Конец кода ---

Все классно! Но если есть вложения в письма, они не прилетают.

ol_x:

--- Код: ---        Set mdoc = Me.m_session.Currentdatabase.Createdocument() 
        Call Me.m_noteUIMemo.Document.Copyallitems(mdoc, True)

        Call mdoc.Replaceitemvalue("Body", Me.m_noteUIMemo.Fieldgettext("Body"))

        Call mdoc.Replaceitemvalue("CopyTo", "")
Call mdoc.Replaceitemvalue("BlindCopyTo", "")
        Call mdoc.Replaceitemvalue("SendTo", "10v. Marketing")
               
        Call mdoc.Send(False)
--- Конец кода ---

Вот так вроде все работает... хотя не уверен, что кодестайл, но это уже самое последнее дело )

ol_x:
пытаюсь открыть CoreEmailClasses, открывается не понять что... Интересно, и как в первый раз открылось

%REM
   Library CoreEmailClasses_ru-RU
   Created Jun 22, 2012 by admin SYSTEM/
   Description: Comments for Library
%END REM
Option Public
Option Declare

ol_x:
Проглючило дизайнер.

Теперь следующий вопрос:

как от этого избавится

Навигация

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

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

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