Общие вопросы > Разработка приложений

отправка писем по кнопке

(1/3) > >>

K85:
Помогите, пожалуйста, разобраться.
в агенте заполняется перечень тех, кому отправляется письмо

--- Код: ---………
Dim doc as notesdocument
Dim recipients( 1 To N ) As String
recipients( 1 ) = "recipient_1"
...
recipients( N ) = "recipient_N"
.....
doc.form = "Notice"
Call doc.send( fasle, recipients)
--- Конец кода ---

В самой форме письма изменена кнопка "отправить", в новой кнопке меняются некоторые поля:

--- Цитировать ---Call doc.ReplaceItemValue("Principal"," ")   
Call doc.ReplaceItemValue("$INetPrincipal"," данные")   
…………
Call doc.ReplaceItemValue("Form","Memo")
………..

'Далее сохраняется и вызывается агент
Call doc.Save( False, True )
   Set agent = db.GetAgent("агент")
   Call agent.RunOnServer(doc.NoteID)

………
   Call doc.ReplaceItemValue("MailOptions","0")
   Call uidoc.Save
   uidoc.Close
--- Конец цитаты ---
Все бы хорошо, отправляется всем кто указан в поле Кому, отправляется с нужными изменениями, НО отправляется и при этом не заполняются все нужные поля в Отправленных , например $MessageID, $Orig , а в полученном письме эти поля заполнены
Как можно заполнить при отправке эти поля? Надо чтобы потом это письмо можно было отозвать потом

ViV:
Вы почтовый шаблон правите?

K85:
да, в почтовой базе переделываю отправку писем

ViV:
Тогда лучше не заменять код на кнопке, а добавить свои скрипты в библиотеку CoreEmailClasses.
Там в функции QuerySave есть секция для MEMO_SEND.
Вроде бы она вызывается при стандартной отправке.

K85:
были и такие попытки, но при указании в библиотеки ("Principal"," ")  и других полей, в дебагере видно, что они меняют значение на нужное, но прям перед отправкой опять меняются и отправляются неизмененые

Навигация

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

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