Visual FoxPro

Fetch an IMAP Message's MIME into a BinData

Demonstrates the Chilkat Imap.FetchSingleBd method, which downloads one message's MIME bytes into a BinData object. If the second argument (bUid) is true, the first argument is a UID; otherwise it is a sequence number. This example downloads message 1's MIME into a BinData and prints the byte count.

Background: This is the binary counterpart to FetchSingleAsMime (which returns a string). A BinData holds raw bytes, so it preserves the message exactly — the right choice when you plan to write the MIME straight to a file, hash it, or hand it to an API expecting a byte buffer, with no charset conversion that could alter binary content.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loImap
LOCAL loBdMime

lnSuccess = 0

*  Demonstrates the Imap.FetchSingleBd method, which downloads one message's MIME bytes into a
*  BinData object.  If the 2nd argument (bUid) is 1, the 1st argument is a UID; otherwise
*  it is a sequence number.

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

*  Download message sequence number 1's MIME bytes into a BinData.  bUid = 0.
loBdMime = CreateObject('Chilkat.BinData')
lnSuccess = loImap.FetchSingleBd(1,0,loBdMime)
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loBdMime
    CANCEL
ENDIF

? "MIME size (bytes) = " + STR(loBdMime.NumBytes)

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

RELEASE loImap
RELEASE loBdMime