Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '' cdoSendUsingPort

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "АДРЕС_SMTP_СЕРВЕРА"

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

    .Update

End With



With iMsg

    Set .Configuration = iConf

    .BodyPart.Charset = "windows-1251"

    .From = "от@почта"

    .To = "кому@почта"

    .Subject = "Тема"

    

    ''.TextBody = "текст" '' текстовое письмо

    ''.HtmlBody = "текст" '' html письмо 



    .Send

End With



Set iMsg = Nothing

Set iConf = Nothing

Set Flds = Nothing