(VB.NET) Upload (Append) Email to an IMAP Mailbox
Upload / append an email to an IMAP mailbox.
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim imap As New Chilkat.Imap
' Connect to an IMAP server.
' Use TLS
imap.Ssl = True
imap.Port = 993
Dim success As Boolean = imap.Connect("imap.someMailServer.com")
If (success <> True) Then
Debug.WriteLine(imap.LastErrorText)
Exit Sub
End If
' Login
success = imap.Login("myLogin","myPassword")
If (success <> True) Then
Debug.WriteLine(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
Debug.WriteLine(email.LastErrorText)
Exit Sub
End If
success = imap.AppendMail("Inbox",email)
If (success <> True) Then
Debug.WriteLine(imap.LastErrorText)
Exit Sub
End If
Debug.WriteLine("Email uploaded to Inbox!")
' Disconnect from the IMAP server.
success = imap.Disconnect()
|