war_fish

Sub Test ()
Call SendEmail("xxxxx@rambler.ru", "zzzzzzz@mail.ru", "Test", "TestMessage", "")
End Sub

Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment)
Dim smtpServer, smtpPort, userLogin, userPassword
Dim authenticationType, useSSL, connectionTimeout
Dim schema, mConfig, mMessage

smtpServer = "smtp.rambler.ru"
smtpPort = 587
userLogin = "xxxxxxx" ' e.g. "abc" if the address is abc@gmail.com
userPassword = "zzzzzzzz"
authenticationType = 1 ' cdoBasic
connectionTimeout = 30
' Required by Gmail
useSSL = True

Err.Clear()
On Error Resume Next

schema = "http://schemas.micro...configuration/"


Set mMessage = Sys.OleObject("CDO.Message")
Set mMessage.Configuration = mConfig
mMessage.From = mFrom
mMessage.To = mTo
mMessage.Subject = mSubject
mMessage.HTMLBody = mBody

mMessage.Configuration.Fields.Item(schema & "sendusing") = 2 ' cdoSendUsingPort
mMessage.Configuration.Fields.Item(schema & "smtpserver") = smtpServer
mMessage.Configuration.Fields.Item(schema & "smtpserverport") = smtpPort
mMessage.Configuration.Fields.Item(schema & "sendusername") = userLogin
mMessage.Configuration.Fields.Item(schema & "sendpassword") = userPassword
mMessage.Configuration.Fields.Item(schema & "smtpauthenticate") = authenticationType
mMessage.Configuration.Fields.Item(schema & "smtpusessl") = useSSL
mMessage.Configuration.Fields.Item(schema & "smtpconnectiontimeout") = connectionTimeout
mMessage.Configuration.Fields.Update()


mMessage.Send()

If Err.Number > 0 Then
Call Log.Error("E-mail cannot be sent", Err.Description)
SendEMail = False
Err.Clear()
Else
Log.Message("Message to <" & mTo & "> was successfully sent")
SendEMail = True
End If
End Function