Проблема в следующем.
Имеем такую ситуацию
Пока адресат один всё отправляется.
как только добавляется хоть ещё один адресат письмо сервером не отправляется.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
mailSession lm_Ses
mailReturnCode lm_Ret
mailMessage lm_Msg
mailFileDescription lm_files[]
// Create a mail session
lm_Ses = create mailSession
// Log on to the session
lm_Ret = lm_Ses.mailLogon("MS Exchange Settings", "", mailNewSession!)
choose case lm_Ret
case mailReturnSuccess!
ls_info = "mailReturnSuccess"
case mailReturnLoginFailure!
ls_info = "mailReturnLoginFailure"
case mailReturnInsufficientMemory!
ls_info = "mailReturnInsufficientMemory"
case mailReturnTooManySessions!
ls_info = "mailReturnTooManySessions"
case mailReturnUserAbort!
ls_info = "mailReturnUserAbort"
case else
ls_info = "ERROR"
end choose
IF lm_Ret <> mailReturnSuccess! THEN
as_error = 'Logon failed. ' + ls_info
RETURN - 1
end IF
........
li_email_count = lnv_string.of_ParseToArray( lds_list.GetItemString(ll_row, "email"), ";", ls_arr_email)
li_em = 1
of_empty_array(lm_Msg.Recipient)
for li_n = 1 to li_email_count
if Pos(ls_arr_email[li_n], "@") <= 0 then CONTINUE
lm_Msg.Recipient[li_em].name = Trim(ls_arr_email[li_n])
li_em = li_em + 1
next
//отправка только на один адрес
//lm_Msg.Recipient[ 1 ].name = lds_list.GetItemString(ll_row, "email")
lm_Msg.ReceiptRequested = TRUE // Будет генериться уведомление о чтении сообщения
// Send the mail
lm_Ret = lm_Ses.mailSend(lm_Msg)
IF lm_Ret <> mailReturnSuccess! THEN
as_error = 'Почтовое сообщение не отправлено ' + lds_list.GetItemString(ll_row, "email")
RETURN - 1
END IF
...........
Пока lm_Msg.Recipient[1] всё отправляется
Как только появляются lm_Msg.Recipient[2].....lm_Msg.Recipient[n]
То сервер присылает отлуп не отправив не по одному из адресов.
Почтовый клиент MS Outlook 2003
