Set emailObj    = CreateObject("CDO.Message")

Set emailConfig = emailObj.Configuration

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60     

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "tut_pochta_otkuda_send@mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "tut_tvoy_parol"

emailObj.From     = "tut_pochta_otkuda_send@mail.ru"
emailObj.To       = "tut_pochta_kuda_send@mail.ru"

emailObj.Subject  = "Tsdfsfsf"
emailObj.TextBody = "fffasdasdasd"

emailConfig.Fields.Update

emailObj.Send