Задача: отослать письмо через SMTP-Server

Из всех вариантов, которые нашел, выбрал, как мне кажется, наиболее оптимальный .
Может быть есть вариант получше?


objEmail = CreateObject("CDO.Message")
objEmail.From = "from@microsoft.com" && вписать нужный кто
objEmail.To = "to@microsoft.com" && вписать нужный кому
objEmail.Subject = "Email" && Тема
objEmail.Textbody = "Text (email)" && "Тело" письма
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.microsoft.ru" && сервер
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 && порт
objEmail.Fields.item("urn:schemas:mailheader:disposition-notification-to") = "report@microsoft.com" && ПРИМЕР - адрес подтверждения - можно убрать
objEmail.Fields.Item("urn:schemas:mailheader:Myheader")= "Examle (Text)" && ПРИМЕР Свой Header со значением
objemail.TextBodyPart.Charset ="windows-1251"
objemail.TextBodyPart.ContentTransferEncoding ="quoted-printable"
objEmail.Configuration.Fields.Update
objEmail.Fields.update

ibp=objEmail.AddAttachment("c:\proba.txt") && примеры - прикрепление txt и zip
ibp.ContentMediaType="text/html"
ibp=objEmail.AddAttachment("c:\proba.zip")
ibp.ContentMediaType="application/zip"
objEmail.Send
objEmail=.null.

чем, мне кажется хорош CDO:
Нет ограничений при работе с объектом, надо всего лишь почитать вот тут:
http://msdn2.microsoft.com/en-us/library/ms527525.aspx
возможный минус - до Windows 2000 получается не работает?
PS Конечно, банальщина... Никакой рекламы :)

pivaвидимо поиском по MAPI пользоваться нет желания
На FoxClub'е если в решениях поисать по SMTP то получишь кучу решений, и не надо изобретать "лисапедов"

Пользовался
И на FoxClub'e (представленные там велосипеды хромают)
В данном случае , я не изобретаю, а консультируюсь.
В задаче необходимо было вставить header
disposition-notification-to с адресом
решения, кроме CDO, не нашел