(PowerBuilder) Send Email with Hotmail (live.com) -- smtp-mail.outlook.com

Demonstrates the SMTP settings required for sending email through Hotmail (A live.com email address). The Hotmail SMTP server is smtp-mail.outlook.com and receives connections on the SMTP port 587. It expects STARTTLS to establish an explicit TLS connection.

Note: When I first tested this code, I received the following error:

550 5.3.4 554-554 5.2.0 STOREDRV.Deliver; delivery result banner

Mozilla Thunderbird also encountered the same error. I then started a browser, visited outlook.live.com, and logged in to my account. I probably hadn't done that for a very long time. I then retried running this example, and everything worked.

Also, it seems that the SMTP server hostname can be either "smtp-mail.outlook.com" or "smtp.live.com". Both worked.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Mailman
oleobject loo_Email
integer li_Success

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// The mailman object is used for sending (SMTP) and receiving (POP3) email.
loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat_9_5_0.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Set the SMTP server.
// Apparently, both "smtp-mail.outlook.com" and "smtp.live.com" are valid.
loo_Mailman.SmtpHost = "smtp.live.com"
loo_Mailman.SmtpPort = 587

// Set the SMTP login/password (if required)
loo_Mailman.SmtpUsername = "myLogin@live.com"
loo_Mailman.SmtpPassword = "MY-HOTMAIL-PASSWORD"

// Create a new email object
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat_9_5_0.Email")

loo_Email.Subject = "This is a test"
loo_Email.Body = "This is a test"
loo_Email.From = "My Hotmail Account <myLogin@live.com>"
li_Success = loo_Email.AddTo("Chilkat Admin","admin@chilkatsoft.com")

li_Success = loo_Mailman.OpenSmtpConnection()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    Write-Debug "ConnectFailReason = " + string(loo_Mailman.ConnectFailReason)
    destroy loo_Mailman
    destroy loo_Email
    return
end if

li_Success = loo_Mailman.SmtpAuthenticate()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    return
end if

li_Success = loo_Mailman.SendEmail(loo_Email)
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    return
end if

loo_Mailman.CloseSmtpConnection()

Write-Debug "Email Sent."


destroy loo_Mailman
destroy loo_Email