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
(VBScript) Delete Individual Emails from POP3 MailboxDemonstrates how to delete individual emails from a POP3 mailbox.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The mailman object is used for receiving (POP3) ' and sending (SMTP) email. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan") set mailman = CreateObject("Chilkat.MailMan") ' Set the POP3 server's hostname mailman.MailHost = "pop.someMailServer.com" ' Set the POP3 login/password. mailman.PopUsername = "myLogin" mailman.PopPassword = "myPassword" ' Set the ImmediateDelete property = 0 ' When the DeleteEmail method is called, the POP3 session ' will remain open and the emails will be deleted all at once ' when the session closes. mailman.ImmediateDelete = 0 ' Download email headers. ' bundle is a Chilkat.EmailBundle Set bundle = mailman.GetAllHeaders(1) If (mailman.LastMethodSuccess = 0) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If i = 0 Do While i < bundle.MessageCount ' email is a Chilkat.Email Set email = bundle.GetEmail(i) outFile.WriteLine("From: " & email.From) outFile.WriteLine("Subject: " & email.Subject) ' If you decide the email is to be deleted, call DeleteEmail. ' This marks the email for deletion on the POP3 server. success = mailman.DeleteEmail(email) If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If i = i + 1 Loop ' Make sure the POP3 session is ended to finalize the deletes. success = mailman.Pop3EndSession() If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) End If outFile.WriteLine("Success!") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.