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) Fetch Single Email by UID or Sequence NumberAssuming the UID is known, download a single email by UID from an IMAP mail server.
' This example requires 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("***","***") 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 uid = 2014 isUid = True Set email = imap.FetchSingle(uid,isUid) If (imap.LastMethodSuccess = True) Then ' Display the From and Subject Debug.Print email.FromAddress Debug.Print email.Subject ' Display the Body property, which is the default body. ' If an email has an HTML body, the Body property contains ' the HTML source. Otherwise it contains the plain-text ' body. Debug.Print "---- EMAIL BODY ----" Debug.Print email.Body Debug.Print "--------------------" ' Display the recipients: For j = 0 To email.NumTo - 1 Debug.Print email.GetToName(j); ", "; email.GetToAddr(j) Next For j = 0 To email.NumCC - 1 Debug.Print email.GetCcName(j); ", "; email.GetCcAddr(j) Next ' Show the total size of the email, including body and attachments: Debug.Print email.Size ' When a full email is downloaded, we would use the ' email.NumAttachments property in conjunction with the ' email.GetMailAttach* methods. ' However, when an email object contains only the header, ' we need to access the attachment info differently: numAttach = imap.GetMailNumAttach(email) Debug.Print numAttach For j = 0 To numAttach - 1 Debug.Print imap.GetMailAttachFilename(email,j) attachSize = imap.GetMailAttachSize(email,j) Debug.Print " size = "; attachSize; " bytes" Next Debug.Print "--" End If ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.