Visual FoxPro

Get an Email's MIME into a BinData

Demonstrates the Chilkat Email.GetMimeBd method, which serializes the complete RFC822/MIME message (headers, body representations, related items, and attachments) and appends the bytes to a BinData object. This example builds a message, serializes it to a BinData, and prints the byte count.

Background: A BinData holds raw bytes, which is the right container when you want the MIME as binary rather than text — for example to write it directly to a file or socket, hash it, or hand it to another API that expects a byte buffer. It is the binary counterpart to GetMime (string) and GetMimeSb (StringBuilder).

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loBdMime

lnSuccess = 0

*  Demonstrates the GetMimeBd method, which serializes the complete RFC822/MIME message
*  (headers, bodies, related items, and attachments) and appends the bytes to a BinData
*  object.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "GetMimeBd example"
loEmail.From = "alice@example.com"
loEmail.AddTo("Bob","bob@example.com")
loEmail.Body = "Hello!"

*  Append the complete MIME to a BinData object.
loBdMime = CreateObject('Chilkat.BinData')
lnSuccess = loEmail.GetMimeBd(loBdMime)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loBdMime
    CANCEL
ENDIF

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

RELEASE loEmail
RELEASE loBdMime