Google GMail SMTP Sending Email

Send an email using smtp.gmail.com

set mm = CreateObject("ChilkatMail2.ChilkatMailMan2")
mm.UnlockComponent "test"

'     SMTP server: smtp.gmail.com.
'     Port: 465.
'     Require SSL/STARTTLS: Yes.
'     Require SMTP authentication: Yes.
'     User name: your Gmail email address.
'     Password: your Gmail password. 

mm.SmtpHost = "smtp.gmail.com"
mm.SmtpPort = 465
mm.SmtpSsl = 1
mm.SmtpUsername = "****"
mm.SmtpPassword = "****"

set email = CreateObject("ChilkatMail2.ChilkatEmail2")
email.Subject = "test from Chilkat"
email.Body = "this is a test for our customer"
email.AddTo "Chilkat Support","support@chilkatsoft.com"
email.From = SmtpUsername

mm.SendEmail email

MsgBox mm.LastErrorText
mm.SaveLastError "error.txt"