![]() |
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.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. Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Long success = 0 ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim imap As New ChilkatImap ' Connect to an IMAP server. ' Use TLS imap.Ssl = 1 imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success = 0) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login success = imap.Login("****","****") 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 ' Get the message IDs of all the emails in the mailbox ' We can choose to fetch UIDs or sequence numbers. Dim fetchUids As Long fetchUids = 1 Dim messageSet As New MessageSet success = imap.QueryMbx("ALL",fetchUids,messageSet) If (success = 0) 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. ' Attachments will not be included. However, it is ' possible to get information about the attachments ' as well as the complete size of the email. Dim bundle As New ChilkatEmailBundle Dim headersOnly As Long headersOnly = 1 success = imap.FetchMsgSet(headersOnly,messageSet,bundle) If (success = 0) Then Debug.Print imap.LastErrorText Exit Sub End If ' Loop over the email objects and display information about each: Dim email As New ChilkatEmail Dim i As Long i = 0 Dim j As Long j = 0 Dim numEmails As Long numEmails = bundle.MessageCount Do While i < numEmails success = bundle.EmailAt(i,email) ' Display the From and Subject Debug.Print email.From Debug.Print email.Subject ' Display the recipients: j = 0 Do While j < email.NumTo Debug.Print "TO: " & email.GetToName(j) & ", " & email.GetToAddr(j) j = j + 1 Loop j = 0 Do While j < email.NumCC Debug.Print "CC: " & email.GetCcName(j) & ", " & email.GetCcAddr(j) j = j + 1 Loop ' 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: Dim numAttach As Long numAttach = imap.GetMailNumAttach(email) j = 0 Do While j < numAttach Debug.Print imap.GetMailAttachFilename(email,j) Dim attachSize As Long attachSize = imap.GetMailAttachSize(email,j) Debug.Print " size = " & attachSize & " bytes" j = j + 1 Loop Debug.Print "--" i = i + 1 Loop ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.