(Visual FoxPro) Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loImap
LOCAL lnSuccess
LOCAL loMessageSet
LOCAL lnFetchUids
LOCAL loBundle
LOCAL i
LOCAL loEmail
LOCAL lnNumAttach
LOCAL lcUidStr
LOCAL lnUid
LOCAL loFullEmail
LOCAL j
LOCAL lcFilename

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* Connect to an IMAP server.
* Use TLS
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.someMailServer.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Login
lnSuccess = loImap.Login("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* We can choose to fetch UIDs or sequence numbers.
lnFetchUids = 1

* Get the message IDs of all the emails in the mailbox
loMessageSet = loImap.Search("ALL",lnFetchUids)
IF (loImap.LastMethodSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Fetch the email headers into a bundle object:

loBundle = loImap.FetchHeaders(loMessageSet)
IF (loImap.LastMethodSuccess <> 1) THEN
    RELEASE loMessageSet
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Scan for emails with attachments, and save the attachments
* to a sub-directory.

FOR i = 0 TO loBundle.MessageCount - 1

    loEmail = loBundle.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.)
    lnNumAttach = loImap.GetMailNumAttach(loEmail)

    IF (lnNumAttach > 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.
        lcUidStr = loEmail.GetHeaderField("ckx-imap-uid")
        lnUid = VAL(lcUidStr)

        loFullEmail = loImap.FetchSingle(lnUid,1)
        IF (loImap.LastMethodSuccess = 1) THEN
            lnSuccess = loFullEmail.SaveAllAttachments("attachmentsDir")
            RELEASE loFullEmail
        ENDIF

        FOR j = 0 TO lnNumAttach - 1
            lcFilename = loImap.GetMailAttachFilename(loEmail,j)
            ? lcFilename
        NEXT

    ENDIF

    RELEASE loEmail
NEXT

* Disconnect from the IMAP server.
lnSuccess = loImap.Disconnect()

RELEASE loMessageSet
RELEASE loBundle

RELEASE loImap