PowerBuilder

MailMan GetSentToEmailAddrs

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

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_Email
oleobject loo_AcceptedAddrs
integer li_NumAddrs
integer i

li_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.

loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Mailman.SmtpHost = "outlook.office365.com"
loo_Mailman.SmtpPort = 587
loo_Mailman.StartTLS = 1

// Set the SMTP login/password
loo_Mailman.SmtpUsername = "OFFICE365-SMTP-LOGIN"
loo_Mailman.SmtpPassword = "OFFICE365-SMTP-PASSWORD"

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

loo_Email.Subject = "Testing for Chilkat API..."
loo_Email.Body = "Testing for Chilkat API..."
loo_Email.From = "Chilkat Support <my-office365-user@mydomain.com>"
li_Success = loo_Email.AddTo("Chilkat Admin","admin@chilkatsoft.com")
li_Success = loo_Email.AddTo("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.
loo_Mailman.AllOrNone = 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.  
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

li_Success = loo_Mailman.CloseSmtpConnection()
if li_Success <> 1 then
    Write-Debug "Connection to SMTP server not closed cleanly."
end if

Write-Debug "Mail Sent!"

// Examine which email addresses were accepted by the SMTP server during the SMTP conversation. 
// (i.e. during the SendEmail)
loo_AcceptedAddrs = loo_Mailman.GetSentToEmailAddrs()
li_NumAddrs = loo_AcceptedAddrs.Count
i = 0
do while i < li_NumAddrs
    Write-Debug "Accepted recipient " + string(i) + ": " + loo_AcceptedAddrs.GetString(i)
    i = i + 1
loop
destroy loo_AcceptedAddrs


destroy loo_Mailman
destroy loo_Email