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