PowerBuilder

Load EML and Send

Demonstrates how to load an email from a .eml file and send. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Mailman
oleobject loo_Email

li_Success = 0

//  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 and receiving email.
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

//  Set the SMTP server.
loo_Mailman.SmtpHost = "smtp.chilkatsoft.com"

//  Set the SMTP login/password (if required)
loo_Mailman.SmtpUsername = "myLogin"
loo_Mailman.SmtpPassword = "myPassword"

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

//  Load a .eml file into the email object.
li_Success = loo_Email.LoadEml("/data/myEmail.eml")

//  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

//  Some SMTP servers do not actually send the email until 
//  the connection is closed.  In these cases, it is necessary to
//  call CloseSmtpConnection for the mail to be  sent.  
//  Most SMTP servers send the email immediately, and it is 
//  not required to close the connection.  We'll close it here
//  for the example:
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!"


destroy loo_Mailman
destroy loo_Email