Const cdoSendUsingPort =  2 
Const cdoBasic =  1 

Public Sub SendMessage()
    Dim cdoMsg As cdo.Message
    Dim cdoConf As cdo.Configuration
    Dim cdoFields As ADODB.Fields
    
    Set cdoConf = CreateObject("CDO.Configuration")
    Set cdoFields = cdoConf.Fields
    
    With cdoFields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = _
          cdoSendUsingPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
          "smtp.mail.ru"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = _
           25 
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = _
          False
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = _
           60 
        ' Если сервер требует аторизации.
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = _
          cdoBasic
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
          "abc"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
          "123"
        .Update
    End With
    
    Set cdoMsg = CreateObject("CDO.Message")
    
    With cdoMsg
        Set .Configuration = cdoConf
        cdoMsg.From = "abc@mail.ru"
        cdoMsg.To = "abc@mail.ru"
        cdoMsg.Subject = "Test"
        cdoMsg.TextBody = "Test Message."
        cdoMsg.Send
    End With
    
    MsgBox "Письмо отправлено!"
    
    Set cdoMsg = Nothing
    Set cdoConf = Nothing
    Set cdoFields = Nothing
End Sub