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

18.11.2007, 10:26. **Показов** 19358. **Ответов** 9

Author24 — интернет-сервис помощи студентам

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

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

@morphyus · 18.11.2007, 10:33

<span class="vbquote">(-=SEGA=- @ 19:11:2007, 10:13 )</span>Передаю следующую строку: Сергей В Бабичев/Rostov/LICard/ru, Планар У Ор/Moscow/LICard/ru.
[snapback]86364" rel="nofollow" target="_blank[/snapback]?[/quote]
имхо, проблема может бы ть с кодировкой, попробуйте отсылать юзверю Test ( латинскимим )

18.11.2007, 10:51

Сообщение от Morpheus

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

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

@morphyus · 18.11.2007, 11:04

<span class="vbquote">(sega @ 19:11:2007, 10:38 )</span>Латиницей пробовал, передаю: svbabichev@licard.ru, arserov@licard.ru, ошибок отправки не возникает но приходит в лотус отчет:
[snapback]86373" rel="nofollow" target="_blank[/snapback]?[/quote]
НУ так ошибка ведь описана , доме указан не правильно licard.ru,aserov

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

18.11.2007, 11:34

хм... а какой тогда должен быть разделитель между адресами? Вот нашел на офф сайте:
This script mails a document and yts 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).

@morphyus · 18.11.2007, 11:49

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

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

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

18.11.2007, 14:44

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

@morphyus · 18.11.2007, 14:59

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

Код

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

18.11.2007, 16:06

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

Код

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

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

@morphyus · 18.11.2007, 16:08

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

-=Syko=-
		1
	Отправить письмо нескольким получателям через Com интерфейс 18.11.2007, 10:26. Показов 19358. Ответов 9 Метки нет (Все метки) Здравствуйте, пишу небольшой клиентик для лотуса на Дельфи используя COM интерфейс Lotus Notes. Остро возникла необходимость отправлять одно письмо нескольким получателям одним документом(чтобы не засорялась почта одинаковыми письмами). Пример: хочу передать письмо 2-м получателям. Передаю следующую строку: ..., .... Письмо не отслылается с ошибкой: "Unable to send mail, no match found in Name & Address Book(s)".

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	18.11.2007, 10:33	2
	<!--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 ( латинскимим ) 0

syko
	18.11.2007, 10:51	3
	Сообщение от Morpheus имхо, проблема может бы ть с кодировкой, попробуйте отсылать юзверю Test ( латинскимим ) Ну если проблема с кодировкой, то почему тогда одному юзеру передается все нормально?

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	18.11.2007, 11:04	4
	<!--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го адресата, во вторіх папробуте разные разделители между множественными значениями 0

syko
	18.11.2007, 11:34	5
	хм... а какой тогда должен быть разделитель между адресами? Вот нашел на офф сайте: This script mails a document and yts 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).

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	18.11.2007, 11:49	6
	Для: sega НУ так recipients в даном слувчае МАССИВ, вот и кинте туда массив, а не строку о разделитель переноса каретки не подходит (#13#10). тут схватывает (#10) 0

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

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	18.11.2007, 14:59	8
	Для: sega Давно не писал, может так прокатить Код Memo.ReplaceItemValue( "а":"б":"и" ,test send); 0

syko
	18.11.2007, 16:06	9
	В общем решение нашел, в дельфи есть замечательная вещь VArarrayof. На всякий случай приведу решение, может кто-то еще столкнется: Код ReplaceItemValue(SendTo,VArarrayof([User@mail1.ru, User@mail2.ru])); Morheus спасибо биг!

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	18.11.2007, 16:08	10
	нема за шо Пользуйтсь тегами кода 0