Форумы Интермех
 ° Начало ° Ответить ° Статистика ° Регистрация ° Поиск ° RSS ° Wiki °

Форумы Интермех / 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 клиентов произойдет автоматически.

Ваш ответ

Bold Style  Italic Style  Underlined Style  Image Link  Insert URL 
...



Перед отправкой "нелатинского" текста проверьте кодировку броузера!
 » Логин  » Пароль 
 

На форуме сейчас: гостей - 1
пользователей - 0
Наибольшее количество посетителей: 87 [1 Янв 2017 02:23:26]
гостей - 87 / пользователей - 0


miniВВ © 2001-2022