Форумы Интермех - Отправка email из wf-процесса

Форумы Интермех / Search, ImProject / Отправка email из wf-процесса - нужна "помощь клуба"

Автор	Сообщение
val Участник	Дата: 27 Окт 2011 17:35:34 Коллеги, нужна поддержка в общении с техподдержкой Ситуация следующая: обратился на cad@intermech.ru с вопросом: "почему в WF-процессах действие "Отправка почты" не позволяет указать более одного адресата в полях "Кому" и "Копия"? В итоге договорились до следующего: если ещё кто-нибудь попросит снять это ограничение - тогда будут делать. Если нет - то будут считать что более одного адресата - это экзотика и делать не будут. В связи с этим - мини-опрос: кому-нибудь ещё это ограничение мешает? Поделитесь пжл.
14110 Участник БелАЗ	Дата: 28 Окт 2011 15:43:26 Нам пока не мешает
enaumov Участник	Дата: 31 Окт 2011 07:44:43 А что мешает настроить форму таким образом, чтобы отправлять сообщение сразу нескольким получателям?
val Участник	Дата: 31 Окт 2011 07:58:27 Нет возможности корректно указать в одной строке несколько адресов. Как их не разделяй (точкой с запятой, просто запятой, или ещё как) - Search передаёт эту строку почтовому клиенту (в нашем случае - Outlook) как один адрес. На такой адрес Outlook отправить не может.
Denis_Rogulev Участник Санкт-Петербург. Кировский завод	Дата: 9 Ноя 2011 12:09:10 val, рассылку писем в Outlook из WF проще сделать скриптом.
Denis_Rogulev Участник Санкт-Петербург. Кировский завод	Дата: 9 Ноя 2011 12:58:29 ° Поправил: Denis_Rogulev if (typeof(S4App) == "undefined") { SApp = new ActiveXObject("S4.TS4App"); SApp.Login(); } else SApp = S4App; //коннектимся к S4 objEmail = new ActiveXObject("CDO.Message"); //лепим объект objEmail.From = "отправитель@mail.ru;"; objEmail.To = "получатель1@mail.ru;получатель2@mail.ru;получатель3@mail.ru"; objEmail.BodyPart.CharSet = "utf-8"; objEmail.Subject = "Тема письма."; objEmail.HTMLBody = "Текст письма."; with (objEmail.Configuration.Fields) { Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2; Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "сервер"; //имя или ip почтового сервера. админ знает Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = порт; //порт почтового сервера. тоже знает админ Update(); } objEmail.Send();
val Участник	Дата: 17 Ноя 2011 14:13:11 Спасибо. Немного подрихтовал под особенности MS Exchange, дело пошло. Если кому интересно - код следующий: ---------------------------------------------------------------------- Option explicit 'отправляем сообщение через MS Exchange Server 'серчовский логин пользователя, от имени которого выполняется скрипт, должен совпадать с именем учётной записи Exchange Server 'вызов: 'call SendMail("кому", "копия", "Тема", "Текст") Function SendMail(sTo, sCC, sSubj, sText) 'задаём параметры почты Dim sMailRoot, sExchSrv sMailRoot="@сервер.ru" sExchSrv="сервер.ms.exchange.ru" 'подключаемся к Search Dim s4ap if sys_execside.asstring="SERVER" Then Set s4Ap = CreateObject("S4.TS4App") s4Ap.Login else s4Ap = S4App end if 'получаем логин пользователя, от имени которого выполняется скрипт dim sUser sUser = S4Ap.GetUserLoginName_ByUserID(S4Ap.GetUserID) 'создаём сообщение Dim oMsg Set oMsg = CreateObject("CDO.Message") With oMsg .From = sUser & sMailRoot .To = sTo .CC = sCC .BodyPart.Charset = "windows-1251" .Subject = sSubj .TextBody = sText End With With oMsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sExchSrv .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" .Update End With 'отправляем oMsg.Send end function ----------------------------------------------------------------------
Олег Участник Intermech, Минск	Дата: 19 Апр 2013 17:12:07 Т.к. вопрос периодически поднимается, если кому-то нужно, есть возможность скачать и протестировать модифицированый плагин отправки почты, который позволяет отправку через MAPI нескольким получателям, разделенным точкой с запятой (пример: one@mail.com; two@mail.com; three@mail.com). Последний билд плагина можно скачать здесь. Для установки нужно скопировать его в папку plugins, которая находится в папке бизнес-сервера (sbserver.exe), если клиенты запускаются из другой папки, синхронизация папок plugins клиентов произойдет автоматически.