PowerBuilder

Async Upload (Append) Email to an IMAP Mailbox

Use the AppendMailAsync method call to append an email to an IMAP mailbox. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Imap
oleobject loo_Email
oleobject loo_Task

li_Success = 0

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

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

//  Connect to an IMAP server.
//  Use TLS
loo_Imap.Ssl = 1
loo_Imap.Port = 993
li_Success = loo_Imap.Connect("MY-IMAP-DOMAIN")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

//  Login
li_Success = loo_Imap.Login("MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

//  Create a simple email with 2 recipients.
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

loo_Email.From = "support@chilkatsoft.com"
loo_Email.AddTo("Chilkat Sales","sales@chilkatsoft.com")
loo_Email.AddTo("Chilkat GMail","chilkat.support@gmail.com")
loo_Email.Body = "This is a test email."
loo_Email.Subject = "This is a test email."

//  Imagine we've sent this email via SMTP, and now we want to 
//  save the email to our "Sent" mailbox.  On GMail, the mailbox name
//  for sent email is "[Gmail]/Sent Mail".

//  Call the async version of the AppendMail method to return a task object.
loo_Task = loo_Imap.AppendMailAsync("[Gmail]/Sent Mail",loo_Email)
if loo_Imap.LastMethodSuccess <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    destroy loo_Email
    return
end if

//  Schedule the task for running on the thread pool.  This changes the task's state
//  from Inert to Live.  The task is now running...
li_Success = loo_Task.Run()
if li_Success <> 1 then
    Write-Debug loo_Task.LastErrorText
    destroy loo_Task
    destroy loo_Imap
    destroy loo_Email
    return
end if

//  -------------------------------------------------------------------------------
//  The following is a general note that applies to all programming languages:
//  -------------------------------------------------------------------------------
//  Your application can keep a reference to the task object and periodically check back later to see if it's finished.
//  If your programming language is one that supports callbacks, then the TaskCompleted callback can
//  be setup to be called when the task completes.  (See the "Async" category on example-code.com for more information.)
//  
//  NOTE: This is very important:  A TaskCompleted callback runs in the background thread.  
//  (All callbacks from an async task, such as AbortCheck, PercentDone, ProgressInfo, etc. are in the background thread.) 
//  An application that uses TaskCompleted must be very careful.  
//  For example, user interface elements (such as labels, text boxes, etc.) may not be directly
//  accessible from a background thread, and could crash the application if directly accessed.  Also, attempting to debug
//  code running in a background thread from an IDE, especially an older IDE (such as VB6) is likely to crash the IDE.


destroy loo_Imap
destroy loo_Email