![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Retrieve UIDL's from POP3 ServerRetrieve a list of UIDLs from a POP3 server. UIDLs are unique identifiers, 1 to 70 characters long, composed of characters ranging from 0x21 to 0x7E. These identifiers uniquely distinguish messages within a mailbox and remain consistent across sessions. Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set mailman = CreateObject("Chilkat.MailMan") mailman.MailHost = "pop.example.com" mailman.PopUsername = "myLogin" mailman.PopPassword = "myPassword" mailman.MailPort = 995 mailman.PopSsl = 1 set stUidls = CreateObject("Chilkat.StringTable") success = mailman.FetchUidls(stUidls) If (success = 0) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If ' Download each email by UIDL. set email = CreateObject("Chilkat.Email") count = stUidls.Count i = 0 Do While i < count ' Download the full email. uidl = stUidls.StringAt(i) success = mailman.FetchByUidl(uidl,0,0,email) If (success = 0) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If outFile.WriteLine(i) outFile.WriteLine("UIDL: " & uidl) outFile.WriteLine("From: " & email.From) outFile.WriteLine("Subject: " & email.Subject) i = i + 1 Loop success = mailman.Pop3EndSession() outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.