Upload (Append) Email to an IMAP Mailbox

Upload / append an email to an IMAP mailbox.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim imap As New Chilkat.Imap()

Dim success As Boolean

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


'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  Login
success = imap.Login("myLogin","myPassword")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


Dim email As New Chilkat.Email()

'  Load the email from a .eml file.
success = email.LoadEml("myEmail.eml")
If (success <> true) Then
    MsgBox(email.LastErrorText)
    Exit Sub
End If


success = imap.AppendMail("Inbox",email)
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


TextBox1.Text = TextBox1.Text & "Email uploaded to Inbox!" & vbCrLf

'  Disconnect from the IMAP server.
imap.Disconnect()