(VBScript) Async Upload (Append) Email to an IMAP Mailbox

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Imap")
set imap = CreateObject("Chilkat.Imap")

' Connect to an IMAP server.
' Use TLS
imap.Ssl = 1
imap.Port = 993
success = imap.Connect("MY-IMAP-DOMAIN")
If (success <> 1) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
End If

' Login
success = imap.Login("MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
If (success <> 1) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
End If

' Create a simple email with 2 recipients.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = CreateObject("Chilkat.Email")
email.From = "support@chilkatsoft.com"
success = email.AddTo("Chilkat Sales","sales@chilkatsoft.com")
success = email.AddTo("Chilkat GMail","chilkat.support@gmail.com")
email.Body = "This is a test email."
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.
' task is a Chilkat.Task
Set task = imap.AppendMailAsync("[Gmail]/Sent Mail",email)
If (imap.LastMethodSuccess <> 1) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
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...
success = task.Run()
If (success <> 1) Then
    outFile.WriteLine(task.LastErrorText)

    WScript.Quit
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.

outFile.Close