Visual Basic 6.0

Get IMAP Attachment Sizes

Demonstrates the Chilkat Imap.GetMailAttachSize method, which returns the size in bytes of an attachment. The first argument is the Email and the second is the zero-based attachment index. This example fetches headers only and prints each attachment's name and size.

Background: Like the attachment filename, the size comes from ckx-imap-* metadata and is available from a header-only fetch without downloading the body. A client can therefore show attachment sizes in a message preview, and decide whether to auto-download or prompt before pulling a large file.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the Imap.GetMailAttachSize method, which returns the size in bytes of an
'  attachment.  The 1st argument is the Email and the 2nd is the zero-based attachment index.

Dim imap As New ChilkatImap

imap.Ssl = 1
imap.Port = 993

success = imap.Connect("imap.example.com")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

success = imap.Login("user@example.com","myPassword")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

success = imap.SelectMailbox("Inbox")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

'  Fetch only the message headers.  Attachment bodies are NOT downloaded, but the ckx-imap-*
'  metadata describing the attachments is present, so the attachment info methods still work.
Dim headersOnly As Long
headersOnly = 1
Dim useUid As Long
useUid = 0
Dim seqNum As Long
seqNum = 1
Dim email As New ChilkatEmail
success = imap.FetchEmail(headersOnly,seqNum,useUid,email)
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

Dim numAttach As Long
numAttach = imap.GetMailNumAttach(email)
Dim i As Long
For i = 0 To numAttach - 1
    Dim fname As String
    fname = imap.GetMailAttachFilename(email,i)
    If (imap.LastMethodSuccess = 0) Then
        Debug.Print imap.LastErrorText
        Exit Sub
    End If

    Dim sz As Long
    sz = imap.GetMailAttachSize(email,i)
    Debug.Print fname & ": " & sz & " bytes"
Next

success = imap.Disconnect()
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If