(Xojo Plugin) Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim imap As New Chilkat.Imap

// Connect to an IMAP server.
// Use TLS
imap.Ssl = True
imap.Port = 993
Dim success As Boolean
success = imap.Connect("imap.someMailServer.com")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Login
success = imap.Login("myLogin","myPassword")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

Dim messageSet As Chilkat.MessageSet
// We can choose to fetch UIDs or sequence numbers.
Dim fetchUids As Boolean
fetchUids = True

// Get the message IDs of all the emails in the mailbox
messageSet = imap.Search("ALL",fetchUids)
If (imap.LastMethodSuccess <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Fetch the email headers into a bundle object:
Dim bundle As Chilkat.EmailBundle
bundle = imap.FetchHeaders(messageSet)
If (imap.LastMethodSuccess <> True) Then

    System.DebugLog(imap.LastErrorText)
    Return
End If

// Scan for emails with attachments, and save the attachments
// to a sub-directory.
Dim i As Int32
For i = 0 To bundle.MessageCount - 1
    Dim email As Chilkat.Email
    email = bundle.GetEmail(i)

    // Does this email have attachments?
    // Use GetMailNumAttach because the attachments
    // are not actually in the email object because
    // we only downloaded headers.
    // (Had we downloaded the full emails by
    // calling mailman.FetchBundle, we could look
    // at the email object's NumAttachments property.)
    Dim numAttach As Int32
    numAttach = imap.GetMailNumAttach(email)

    If (numAttach > 0) Then
        // Download the entire email and save the
        // attachments. (Remember, we 
        // need to download the entire email because
        // only the headers were previously downloaded.
        // If the entire emails were downloaded by
        // calling FetchBundle instead of FetchHeaders,
        // this would not be necessary.

        // The ckx-imap-uid header field is added when
        // headers are downloaded.  This makes it possible
        // to get the UID from the email object.
        Dim uidStr As String
        uidStr = email.GetHeaderField("ckx-imap-uid")
        Dim uid As Int32
        uid = Val(uidStr)

        Dim fullEmail As Chilkat.Email
        fullEmail = imap.FetchSingle(uid,True)
        If (imap.LastMethodSuccess = True) Then
            success = fullEmail.SaveAllAttachments("attachmentsDir")

        End If

        Dim j As Int32
        For j = 0 To numAttach - 1
            Dim filename As String
            filename = imap.GetMailAttachFilename(email,j)
            System.DebugLog(filename)
        Next

    End If

Next

// Disconnect from the IMAP server.
success = imap.Disconnect()