(Xojo Plugin) Upload .eml File to an IMAP Mailbox
Demonstrates how to upload the MIME source of an email to a mailbox on an IMAP server.
Dim imap As New Chilkat.Imap
// This example assumes Chilkat Imap to have been previously unlocked.
// See Unlock Imap for sample code.
// Connect to an IMAP server.
// Use TLS
imap.Ssl = True
imap.Port = 993
Dim success As Boolean
success = imap.Connect("MY-IMAP-DOMAIN")
If (success <> True) Then
System.DebugLog(imap.LastErrorText)
Return
End If
// Login
success = imap.Login("MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
If (success <> True) Then
System.DebugLog(imap.LastErrorText)
Return
End If
Dim sbMime As New Chilkat.StringBuilder
success = sbMime.LoadFile("qa_data/eml/emoji_pizza.eml","utf-8")
// Upload to the mailbox.
success = imap.AppendMime("[Gmail]/testFolder",sbMime.GetAsString())
If (success <> True) Then
System.DebugLog(imap.LastErrorText)
Return
End If
success = imap.Disconnect()
System.DebugLog("OK.")
|