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) Imap.GetMailSize vs Email.SizeShows how to get the total size of an email, as well as the sizes of the attachments. This can be done when either full-emails or headers-only are downloaded.
' 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("****","****") 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 ' We can choose to fetch UIDs or sequence numbers. fetchUids = True ' Get the message IDs of all the emails in the mailbox Set messageSet = imap.Search("ALL",fetchUids) If (imap.LastMethodSuccess = False) Then Debug.Print imap.LastErrorText Exit Sub End If ' When downloading headers, each email object contains ' (obviously) the headers, but the body will be missing. ' Also, attachments will not be included. However, it is ' possible to get information about the attachments ' as well as the complete size of the email. Set bundle = imap.FetchHeaders(messageSet) If (imap.LastMethodSuccess = False) Then Debug.Print imap.LastErrorText Exit Sub End If ' Loop over the email objects and display information ' about each: i = 0 numEmails = bundle.MessageCount Do While i < numEmails Set email = bundle.GetEmail(i) ' Display the From and Subject Debug.Print email.From Debug.Print email.Subject ' 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) 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 "--" i = i + 1 Loop ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.