Visual Basic 6.0

Get IMAP Attachment Filenames

Demonstrates the Chilkat Imap.GetMailAttachFilename method, which returns the filename of an attachment. The first argument is the Email and the second is the zero-based attachment index. This example fetches only the message headers and lists the attachment filenames.

Background: This method reads the filename from ckx-imap-* metadata, so it works on a header-only email even though the attachment bodies have not been downloaded. That is exactly what a mail client needs to render the paperclip list — the names of the attached files — before the user decides to download any of them.

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.GetMailAttachFilename method, which returns the filename 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

'  Loop over the attachments and print each filename.
Dim numAttach As Long
numAttach = imap.GetMailNumAttach(email)
Debug.Print "Attachments: " & numAttach
Dim i As Long
For i = 0 To numAttach - 1
    '  GetMailAttachFilename returns a string, so assign it to a string variable.
    Dim fname As String
    fname = imap.GetMailAttachFilename(email,i)
    If (imap.LastMethodSuccess = 0) Then
        Debug.Print imap.LastErrorText
        Exit Sub
    End If

    Debug.Print fname
Next

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