(Tcl) Send Email using smtp-mail.outlook.com with Password Authentication

Demonstrates how to send an email using smtp-mail.outlook.com using password authentication.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "smtp-mail.outlook.com"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

# Set the SMTP login/password
CkMailMan_put_SmtpUsername $mailman "OFFICE365_USERNAME"
CkMailMan_put_SmtpPassword $mailman "OFFICE365_PASSWORD"

# Create a new email object
set email [new_CkEmail]

CkEmail_put_Subject $email "This is a test"
CkEmail_put_Body $email "This is a test"
CkEmail_put_From $email "My Name <my_office365_email@outlook.com>"
set success [CkEmail_AddTo $email "Chilkat Admin" "admin@chilkatsoft.com"]

set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    exit
}

puts [CkMailMan_smtpSessionLog $mailman]

set success [CkMailMan_CloseSmtpConnection $mailman]
if {$success != 1} then {
    puts "Connection to SMTP server not closed cleanly."
}

puts "Email Sent!"

delete_CkMailMan $mailman
delete_CkEmail $email