Добрый день.
Пытаюсь отправить email. Outlook и Outlook Express мне по определенным причинам не подходят. Решил воспользоваться найденным кодом:

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

    'создаем объект Message это наше письмо
    Set oMSG = CreateObject("CDO.Message")
    
    'создаем объект Configuration это настройки соединения
    Set oConfig = CreateObject("CDO.Configuration")
    Set CFields = oConfig.Fields
    Set oMSG.Configuration = oConfig
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.МойСервер.ru" 
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "УчетнаяЗапись" '"user" 'Login
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Пароль" 'пароль
    CFields("urn:schemas:mailheader:content-language") = "windows-1251"
    CFields.Update
    
    oMSG.To = "Кому@mail.ru" 'адрес получателя
    oMSG.From = "ОтКого@ МойСервер.ru" 'адрес отправителя
    oMSG.Subject = "Тема" ' тема письма
    oMSG.BodyPart.Charset = "windows-1251" ' кодировака письма
    oMSG.AddAttachment "D:\Файл.txt" 'путь к вложенному файлу
    strBody = "Текст" ' Текст сообщения (может быть текстовым или в формате HTML)

oMSG.HTMLBody = strBody 'тело письма
oMSG.send 'отправляем
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing

Если в качестве сервера исходящей почты использовать сторонний сервис, например Майл.ру или Яндекс.ру, все замечательно работает.
Но я хочу отправлять письма со своего VPS арендованного сервера. Пытаюсь это сделать.
При выполнение строки кода oMSG.send выскакивает ошибка: «run-time error -2147220973(80040213)» далее какие-то краказяблы.
В Outlook Express завел учетную запись – работает.
В Telnetе пишу «o СерверМоейПочты 25», возвращает «220 ESMTP Exim 4.72”

Посоветуйте в какую сторону капать чтоб победить проблему?
Спасибо.

http://www.sql.ru/forum/1286031/smtp-otpravka-pochty-so-svoego-vps-servera