![]() |
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
(Visual Basic 6.0) IMAP Download All Email One at a TimeDemonstrates how to download every email in an IMAP mailbox one at a time as a MIME string or as an email object. (The MIME contains the full contents of the email including all attachments.) Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Long success = 0 Dim imap As New ChilkatImap ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Connect to an IMAP server. ' Use TLS imap.Ssl = 1 imap.Port = 993 success = imap.Connect("imap.example.com") If (success = 0) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login success = imap.Login("myLogin","myPassword") If (success = 0) Then Debug.Print imap.LastErrorText Exit Sub End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success = 0) Then Debug.Print imap.LastErrorText Exit Sub End If ' Once the mailbox is selected, the NumMessages property ' will contain the number of messages in the mailbox. ' You may loop from 1 to NumMessages to ' fetch each message by sequence number. Dim bUid As Long bUid = 0 Dim mimeStr As String Dim i As Long Dim n As Long n = imap.NumMessages For i = 1 To n ' Download the email by sequence number. mimeStr = imap.FetchSingleAsMime(i,bUid) ' ... your application may process each MIME string... Next ' An alternative is to download each email in the form of an ' email object, like this: Dim email As New ChilkatEmail For i = 1 To n ' Download the email by sequence number. success = imap.FetchEmail(0,i,bUid,email) ' ... your application may process the email object... Next ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.