Send email using smtp.att.yahoo.com with SSL (port 465).

Send email using smtp.att.yahoo.com with SSL (port 465).

Download Chilkat Email ActiveX

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail

*  The mailman object is used for sending and receiving email.
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

*  Set the SMTP server.
loMailman.SmtpHost = "smtp.att.yahoo.com"

loMailman.SmtpUsername = "myUsername@sbcglobal.net"
loMailman.SmtpPassword = "myPassword"

loMailman.SmtpSsl = 1
loMailman.SmtpPort = 465

*  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 <support@chilkatsoft.com>"
loEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")

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

lnSuccess = loMailman.CloseSmtpConnection()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Connection to SMTP server not closed cleanly.")
ENDIF

=MESSAGEBOX("Mail Sent!")