|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Upload (Append) Email to an IMAP Mailbox and get the UID of the Appended EmailUpload / append an email to an IMAP mailbox and get the UID of the appended email.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Imap") set imap = Server.CreateObject("Chilkat.Imap") ' Connect to an IMAP server. ' Use TLS imap.Ssl = 1 imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If ' Login success = imap.Login("myLogin","myPassword") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If ' Check the capabilities of the IMAP server. cap = imap.Capability() Response.Write "<pre>" & Server.HTMLEncode( "IMAP capabilities: " & cap) & "</pre>" ' If the capabilities string contains the substring "UIDPLUS", then ' the UID of the appended email will be available in the AppendUid property (see below). ' For example, the GMail IMAP server has these capabilities (at this current time) ' * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN ' X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT ' APPENDLIMIT=35882577 LIST-EXTENDED LIST-STATUS ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email") set email = Server.CreateObject("Chilkat.Email") ' Load the email from a .eml file. success = email.LoadEml("myEmail.eml") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>" Response.End End If success = imap.AppendMail("Inbox",email) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If ' If the IMAP server supports the UIDPLUS extension, then the ' imap.AppendUid will contain the UID of the appended email. ' Otherwise AppendUid will be 0. Response.Write "<pre>" & Server.HTMLEncode( "UID of appended email: " & imap.AppendUid) & "</pre>" ' If the IMAP server does NOT have UIDPLUS, then a program can ' first select the mailbox, get the value of the UidNext property, ' and then append. The appended email SHOULD have a UID equal to ' the UidNext that was obtained just prior to appending (assuming no other ' program is simultaneously appending an email to the same mailbox). ' Note: It is not required to select a mailbox to append. The select is only ' done for the purpose of obtaining the UIDNEXT value. success = imap.SelectMailbox("Inbox") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If uidNext = imap.UidNext success = imap.AppendMail("Inbox",email) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "The UID of the appended email SHOULD be " & uidNext) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Email uploaded to Inbox!") & "</pre>" ' Disconnect from the IMAP server. success = imap.Disconnect() %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.