Задача: отправка почты VBA по условию

[Евгений Таб]

Добрый день!
Прошу в помощи в реализации кода.

Дано:
Код, который берет файл Excel>делает из него PDF>и сохраняется в определенной папке и определенным названием и отправляет его (PDF) на email, указанный в самом коде.

Вот отрывок кода:

Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.ReplaceItemValue("Form", "Memo")
Call MailDoc.ReplaceItemValue("SendTo", "кому@маил.ру")
Call MailDoc.ReplaceItemValue("Subject", "тема")
Set rtitem = MailDoc.CreateRichTextItem( "Body" )
Call rtitem.AppendText( "Текст письма" )
Set object = rtitem.EmbedObject ( 1454, "", "C:\Пути и имяфайла")
Call MailDoc.ComputeWithForm(False, False)
Call MailDoc.send(False)

Set Maildb = Nothing
Set MailDoc = Nothing
Set session = Nothing

End Sub

Вопроc:

Необходимо прописать код(я так понимаю в эту строку)на место кому@маил.ру
PHP код:
Call MailDoc.ReplaceItemValue("SendTo", "кому@маил.ру")
который будет отправлять почту на адрес согласно ячейке в первоначальном файле Excel(из которого я сделал PDF).

Можно было бы указать путь к этой ячейке и все, но лист не содержит конкретных почтовых адресов, но в нем есть значения, согласно которым код отправит на определенную почту - PDF файл.

Пример. Ячейка (С2) содержит текст "Программист", то в коде где кому@mail.ru ,будет VALERA666@DIABLO.COM, а если ячейка (С2) содержит текст "Маковод", то в поле будет NATASHA69@PROSTUDA.UA


Сложно ли это вообще реализовать?
Цену в личку.

Спасибо!

[Avazart]

Могу сделать в С++Builder или в Delphi если не принципиально VBA

Пишите :

Icq 673574224
E-mail avazart@yandex.ua

Для прикладных программ использую Delphi/С++Builder/C++Qt
Работаю только с предоплатой 30%.

[Евгений Таб]

Нужно исключильно в VBA

[doober]

Скрипт на отправку почты у вас рабочий?
Каким образом отправляется почта?

[Евгений Таб]

Берет файл>Конвертит в PDF>Сохраняет>Шлет в Lotus Notes на адрес

Call MailDoc.ReplaceItemValue("SendTo", "кому@маил.ру")

Надо чтобы вместо кому@маил.ру слалось на мыло взависимости от измениния ячейки, скажем C2, в исходном файле Excel

[Евгений Таб]

Например забить все адреса в VBA, их 13 штук, и взависимости от ячейки С2 слать разным людям

[doober]

Написал в личку