Visual FoxPro

Fetch an IMAP Attachment into a BinData

Demonstrates the Chilkat Imap.FetchAttachmentBd method, which stores one attachment's bytes in a BinData object. The first argument is the Email, the second is the zero-based attachment index, and the third is the BinData, which is cleared before the operation. This example fetches the first attachment and prints its byte count.

Background: A BinData holds raw bytes, so it works for any attachment type — image, PDF, zip, and so on. From there you can save it, hash it, or hand it to another API expecting a byte buffer, all without touching the filesystem. Use the string/StringBuilder variants only when the attachment is known to be text.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loImap
LOCAL lnHeadersOnly
LOCAL lnUseUid
LOCAL lnSeqNum
LOCAL loEmail
LOCAL lnNumAttach
LOCAL loBd

lnSuccess = 0

*  Demonstrates the Imap.FetchAttachmentBd method, which downloads one attachment's bytes into
*  a BinData object.  The 1st argument is the Email, the 2nd is the zero-based attachment
*  index, and the 3rd is the BinData (which is cleared first).
*  
*  The message is fetched headers-only, then the attachment is downloaded on demand.

loImap = CreateObject('Chilkat.Imap')

loImap.Ssl = 1
loImap.Port = 993

lnSuccess = loImap.Connect("imap.example.com")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

lnSuccess = loImap.Login("user@example.com","myPassword")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

*  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.
lnHeadersOnly = 1
lnUseUid = 0
lnSeqNum = 1
loEmail = CreateObject('Chilkat.Email')
lnSuccess = loImap.FetchEmail(lnHeadersOnly,lnSeqNum,lnUseUid,loEmail)
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loEmail
    CANCEL
ENDIF

lnNumAttach = loImap.GetMailNumAttach(loEmail)
IF (lnNumAttach > 0) THEN
    *  Download just the first attachment's bytes from the server into a BinData.
    loBd = CreateObject('Chilkat.BinData')
    lnSuccess = loImap.FetchAttachmentBd(loEmail,0,loBd)
    IF (lnSuccess = 0) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        RELEASE loEmail
        RELEASE loBd
        CANCEL
    ENDIF

    ? "Attachment size: " + STR(loBd.NumBytes) + " bytes"
ENDIF

lnSuccess = loImap.Disconnect()
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loEmail
    RELEASE loBd
    CANCEL
ENDIF

RELEASE loImap
RELEASE loEmail
RELEASE loBd