Общие вопросы > Разработка приложений
отправка писем по кнопке
K85:
Пробую отправлять письма через 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
Навигация
Перейти к полной версии