Upload (Append) Email to an IMAP Mailbox

Upload / append an email to an IMAP mailbox.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set imap = CreateObject("Chilkat.Imap")

'  Anything unlocks the component and begins a fully-functional 30-day trial.
success = imap.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Login
success = imap.Login("myLogin","myPassword")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

set email = CreateObject("Chilkat.Email2")

'  Load the email from a .eml file.
success = email.LoadEml("myEmail.eml")
If (success <> 1) Then
    MsgBox email.LastErrorText
    WScript.Quit
End If

success = imap.AppendMail("Inbox",email)
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

outFile.WriteLine("Email uploaded to Inbox!")

'  Disconnect from the IMAP server.
imap.Disconnect 

outFile.Close