Get IMAP Attachment Sizes

See more IMAP Examples

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.

Dim success As Boolean = False

'  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 Chilkat.Imap

imap.Ssl = True
imap.Port = 993

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

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


success = imap.SelectMailbox("Inbox")
If (success = False) Then
    Debug.WriteLine(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 Boolean = True
Dim useUid As Boolean = False
Dim seqNum As Integer = 1
Dim email As New Chilkat.Email
success = imap.FetchEmail(headersOnly,seqNum,useUid,email)
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


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

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

success = imap.Disconnect()
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If