GMail SMTP port 587

Download Chilkat Email ActiveX

Send email using GMail's SMTP server on port 587 (SSL via STARTTLS).

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail


loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Use the GMail SMTP server
loMailman.SmtpHost = "smtp.gmail.com"
loMailman.SmtpPort = 587
loMailman.StartTLS = 1

*  Set the SMTP login/password.
loMailman.SmtpUsername = "chilkat.support"
loMailman.SmtpPassword = "myPassword"

*  Create a new email object
loEmail = CreateObject('Chilkat.Email2')

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "Chilkat Support <chilkat.support@gmail.com>"
loEmail.AddTo("Chilkat","support@chilkatsoft.com")

lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMailman.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("Mail Sent!")