3
« : 09 Октябрь 2012, 15:19:25 »
Пробую отправлять письма через mail.box:
Set mailbox=ses.GetDatabase(db.Server, "mail.box", False)
Set ndoc=mailbox.CreateDocument
Call doc.CopyAllItems(ndoc, True)
Call ndoc.ReplaceItemValue("PostedDate", Now)
Call ndoc.ReplaceItemValue("ReplyTo", "")
Call ndoc.ReplaceItemValue("Principal", "имя")
Call ndoc.ReplaceItemValue("From", "имя")
ndoc.RemoveItem("RoutingState")
ndoc.RemoveItem("RoutingStateBy")
...
отправляется письмо верно, указывается отправитель в полученном письме тот, что нужен, но отозвать нельзя.
Пробую агентом заполнять $MessageID, письмо с отчетом отзыва зависает в mail.box и в логах пишет "failed to be recalled by".
Отзывать пробую и тем, кто отправил письмо и тем пользователем, который указан в Кому, когда письмо приходит
Скоро с ума сойду...
Добавляю в библиотеку "CoreEmailClasses_ru-RU"
Call Me.m_noteMemo.RemoveItem("$AssistMail")
Call Me.m_noteMemo.RemoveItem("$MessageID")
Ничего не дает....
Если на измененной кнопке Отправки добавить:
vSubjectBlankSend = False
Call cMemoObject.SetActionInProgress(MEMO_SEND)
тогда отправится 2 письма: одно такое как надо, второе уже с полными данными (и теми полями, которые не нужны)... Если убрать эти строки, то отправляется письмо 1 , оно приходит с нужными полями, но в Отправленных остается письмо без нужных полей (например, нет $MessageID)
Если перед send добавить
Call Doc.ReplaceItemValues("$Orig", Doc.UniversalID)
то добавляется поле $Orig, пока не знаю какой параметр отвечает за MessageID