Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Download MIME Source of Emails in IMAP MailboxDemonstrates how to download the MIME source for emails on an IMAP server. There are several Chilkat IMAP methods for downloading email into a MIME string: FetchSingleAsMime, FetchSequenceAsMime, and FetchBundleAsMime. This example demonstrates FetchSequenceAsMime.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim imap As Chilkat.Imap Set imap = Chilkat.NewImap ' Connect to an IMAP server. ' Use TLS imap.Ssl = True imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login success = imap.Login("myLogin","myPassword") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' The NumMessages property contains the number of messages in the selected mailbox. numToFetch = imap.NumMessages ' Download all the email in the Inbox. Set sa = imap.FetchSequenceAsMime(1,numToFetch) If (imap.LastMethodSuccess = False) Then Debug.Print imap.LastErrorText Exit Sub End If ' Loop over the MIME strings contained within sa: i = 0 Do While i < sa.Count strMime = sa.GetString(i) ' Now you have the MIME source of this email... i = i + 1 Loop ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.