Отправить письмо нескольким получателям через Com интерфейс

[-=SEGA=-]

Здравствуйте, пишу небольшой клиентик для лотуса на Дельфи используя COM интерфейс Lotus Notes. Остро возникла необходимость отправлять одно письмо нескольким получателям одним документом(чтобы не засорялась почта одинаковыми письмами). Пример: хочу передать письмо 2-м получателям.

Передаю следующую строку: '..., ...'. Письмо не отслылается с ошибкой: "Unable to send mail, no match found in Name & Address Book(s)".

 

[morpheus]

<!--QuoteBegin--=SEGA=-+19:11:2007, 10:13 -->
<span class="vbquote">(-=SEGA=- @ 19:11:2007, 10:13 )</span><!--QuoteEBegin-->Передаю следующую строку: 'Сергей В Бабичев/Rostov/LICard/ru, Планар У Ор/Moscow/LICard/ru'.

[snapback]86364" rel="nofollow" target="_blank[/snapback]​

[/quote]
имхо, проблема может бы ть с кодировкой, попробуйте отсылать юзверю Test ( латинскимим )

 

[sega]

имхо, проблема может бы ть с кодировкой, попробуйте отсылать юзверю Test ( латинскимим )

Ну если проблема с кодировкой, то почему тогда одному юзеру передается все нормально?

 

[morpheus]

<!--QuoteBegin-sega+19:11:2007, 10:38 -->
<span class="vbquote">(sega @ 19:11:2007, 10:38 )</span><!--QuoteEBegin-->Латиницей пробовал, передаю: 'svbabichev@licard.ru, arserov@licard.ru', ошибок отправки не возникает но приходит в лотус отчет:

[snapback]86373" rel="nofollow" target="_blank[/snapback]​

[/quote]
НУ так ошибка ведь описана , доме указан не правильно licard.ru,aserov

Во первіх попробуйте передать 1го адресата, во вторіх папробуте разные разделители между множественными значениями

 

[sega]

хм... а какой тогда должен быть разделитель между адресами? Вот нашел на офф сайте:
This script mails a document and its form to Jim Dinauer, Betty Dinauer, and Mary Sticka.

Dim recipients( 1 To 3 ) As String
recipients( 1 ) = "Jim Dinauer"
recipients( 2 ) = "Betty Dinauer"
recipients( 3 ) = "Mary Sticka"
Call doc.Send( True, recipients )

Но разделитель переноса каретки не подходит (#13#10).

 

[morpheus]

Для: sega
НУ так recipients в даном слувчае МАССИВ, вот и кинте туда массив, а не строку

о разделитель переноса каретки не подходит (#13#10).

тут схватывает (#10)

 

[sega]

в функцию replaceitemvalue нельзя передать массив, можно только тип variant. ведь должен быть символ-разделитель???

 

[morpheus]

Для: sega
Давно не писал, может так прокатить

Memo.ReplaceItemValue(' "а":"б":"и" ','test send');

 

[sega]

В общем решение нашел, в дельфи есть замечательная вещь VArarrayof. На всякий случай приведу решение, может кто-то еще столкнется:

ReplaceItemValue('SendTo',VArarrayof(['User@mail1.ru', 'User@mail2.ru']));

Morheus спасибо биг!

 

[morpheus]

нема за шо
Пользуйтсь тегами кода