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