(Xojo Plugin) 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
success = imap.Connect("imap.someMailServer.com")
If (success <> True) Then
System.DebugLog(imap.LastErrorText)
Return
End If
// Login
success = imap.Login("myLogin","myPassword")
If (success <> True) Then
System.DebugLog(imap.LastErrorText)
Return
End If
Dim email As New Chilkat.Email
// Load the email from a .eml file.
success = email.LoadEml("myEmail.eml")
If (success <> True) Then
System.DebugLog(email.LastErrorText)
Return
End If
success = imap.AppendMail("Inbox",email)
If (success <> True) Then
System.DebugLog(imap.LastErrorText)
Return
End If
System.DebugLog("Email uploaded to Inbox!")
// Disconnect from the IMAP server.
success = imap.Disconnect()
|