|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
Delete IMAP Email
To delete an email, the "Deleted" flag must be set to 1 for each message to be deleted. You must also call Expunge or ExpungeAndClose to remove the emails marked as deleted. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example deletes email matching a criteria from Inbox. set imap = Server.CreateObject("Chilkat.Imap") ' Anything unlocks the component and begins a fully-functional 30-day trial. success = imap.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Turn on session logging: imap.KeepSessionLog = 1 ' Connect to an IMAP server. success = imap.Connect("mail.chilkatsoft.com") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Login success = imap.Login("myLogin","myPassword") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If fetchUids = 1 ' Get the message IDs for all emails having "FTP2" in the subject. Set messageSet = imap.Search("SUBJECT FTP2",fetchUids) If (messageSet Is Nothing ) Then Response.Write imap.LastErrorText & "<br>" End If ' Set the Deleted flag for each message: success = imap.SetFlags(messageSet,"Deleted",1) If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Expunge and close the mailbox. success = imap.ExpungeAndClose() If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Display the session log. Response.Write imap.SessionLog & "<br>" ' Disconnect from the IMAP server. imap.Disconnect %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
