pmsg             := ComObjCreate("CDO.Message")
pmsg.From         := """XXX"" <...@gmail.com>"
pmsg.To         := "...@gmail.com"
pmsg.BCC         := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
pmsg.CC         := ""
pmsg.Subject     := "Message_Subject"

;You can use either Text or HTML body like
pmsg.TextBody     := "MsgContent"

pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")   := "smtp.gmail.com" ; specify your SMTP server
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")    := 465 ; 25
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      := True ; False
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")     := 2   ; cdoSendUsingPort
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")     := 1   ; cdoBasic
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") := "...@gmail.com"
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") := "YouR_Password"
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") := 60

pmsg.Configuration.Fields.Update()

pmsg.Send()

ExitApp