Tcl

MailMan GetSentToEmailAddrs

Demonstrates how to get the email addresses accepted by the SMTP server during an SMTP send. Tcl

load ./chilkat.dll

set success 0

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

# Demonstrates how to get the successful recipients for the last email sent.

# Note: Success does not ensure actual delivery, nor does it mean the email address is actually valid.
# It may be that the email address is invalid and will get bounced at the destination.

# Also: An SMTP client (such as Chilkat, Mozilla Thunderbird, etc.) is only responsible for "handing off" the email to the SMTP server 
# for delivery (either to a local mailbox, or to a remote mailbox where the SMTP server acts as a relay). 
# The SMTP client's task is ended when the SMTP protocol exchange is completed, and the SMTP server says "OK, I've got it and I'll take it from here.". 
# If the email never actually gets delivered, then there is a problem downstream of the Chilkat-->SMTP server handoff.

set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "outlook.office365.com"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

# Set the SMTP login/password
CkMailMan_put_SmtpUsername $mailman "OFFICE365-SMTP-LOGIN"
CkMailMan_put_SmtpPassword $mailman "OFFICE365-SMTP-PASSWORD"

# Create a new email object
set email [new_CkEmail]

CkEmail_put_Subject $email "Testing for Chilkat API..."
CkEmail_put_Body $email "Testing for Chilkat API..."
CkEmail_put_From $email "Chilkat Support <my-office365-user@mydomain.com>"
set success [CkEmail_AddTo $email "Chilkat Admin" "admin@chilkatsoft.com"]
set success [CkEmail_AddTo $email "Chilkat Support" "support@chilkatsoft.com"]
# To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

# Allow SendEmail to succeed even if some recipients are rejected immediately
# by the SMTP server.
CkMailMan_put_AllOrNone $mailman 0

# Call SendEmail to connect to the SMTP server and send.
# The connection (i.e. session) to the SMTP server remains
# open so that subsequent SendEmail calls may use the
# same connection.  
set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    exit
}

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

puts "Mail Sent!"

# Examine which email addresses were accepted by the SMTP server during the SMTP conversation. 
# (i.e. during the SendEmail)
# acceptedAddrs is a CkStringArray
set acceptedAddrs [CkMailMan_GetSentToEmailAddrs $mailman]
set numAddrs [CkStringArray_get_Count $acceptedAddrs]
set i 0
while {$i < $numAddrs} {
    puts "Accepted recipient $i: [CkStringArray_getString $acceptedAddrs $i]"
    set i [expr $i + 1]
}
delete_CkStringArray $acceptedAddrs


delete_CkMailMan $mailman
delete_CkEmail $email