Elding
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору В общем и целом заработало. Задача была такова: http://forum.ru-board.com/topic.cgi?forum=8&topic=10323&start=1040#9 Обуславливалось это тем, что почту надо было слать по адресной книге коллег, где была указана их внутренняя адресация. Так как объяснять бабушкам-пенсионеркам и прочим блондинкам по 10 раз на дню, как изменить адрес получателя при отправке, желания не было, был написан скрипт по подмене адреса доставки в виде вася@АДРЕС_ИЗ_КНИГИ на вася@АДРЕС_В_ИНЕТЕ. срабатывает по правилу: если поле То содержит @АДРЕС_ИЗ_КНИГИ то выполнить функцию OnDeliverMessage. Скрипт выглядит так: Sub OnDeliverMessage(oMessage) Dim p, k, TempAddr(10000) ' oMessage.Recipients.Count k = oMessage.Recipients.Count For i = 0 to k - 1 TempAddr(i) = oMessage.Recipients.Item(i).Address p = InStr(1, TempAddr(i), "@АДРЕС_ИЗ_КНИГИ", 1) If p > 0 Then TempAddr(i) = Mid(TempAddr(i), 1, p-1) & "@АДРЕС_В_ИНЕТЕ" Next oMessage.ClearRecipients() For i = 0 to k - 1 oMessage.AddRecipient "", TempAddr(i) Next oMessage.Save Result.Value = 0 End Sub |