DataFlex

Explaining the Email FromName, FromAddress, and From Properties

See more Email Object Examples

This example explains the email object's FromName, FromAddress, and From properties. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail1
    Handle hoEmail2
    String sTemp1

    // The email's FROM name and address can be set in several ways.
    // It can include an optional friendly name (which is just a description),
    // and it must include an address.

    // For example:
    Get Create (RefClass(cComChilkatEmail)) To hoEmail1
    If (Not(IsComObjectCreated(hoEmail1))) Begin
        Send CreateComObject of hoEmail1
    End
    Set ComSubject Of hoEmail1 To "test"
    Set ComBody Of hoEmail1 To "test"

    Set ComFromName Of hoEmail1 To "Joe Sample"
    Set ComFromAddress Of hoEmail1 To "joe.sample@example.com"

    // the From property contains both the FromName and FromAddress
    // This produces the following output:
    // From: "Joe Sample" <joe.sample@example.com>
    Get ComFrom Of hoEmail1 To sTemp1
    Showln "From: " sTemp1
    Showln "--------------------------------------------------"

    // Examine the MIME of the email:
    Get ComGetMime Of hoEmail1 To sTemp1
    Showln sTemp1
    Showln "--------------------------------------------------"

    // Output is:

    // 	MIME-Version: 1.0
    // 	Date: Wed, 16 Nov 2016 12:32:13 -0600
    // 	Message-ID: <02B461C6D12FA6686C3151A649ED8D5BBFBE0721@CHILKAT13>
    // 	Content-Type: text/plain
    // 	Content-Transfer-Encoding: 7bit
    // 	X-Priority: 3 (Normal)
    // 	Subject: test
    // 	From: "Joe Sample" <joe.sample@example.com>
    // 
    // 	test

    // --------------------------------------------
    // Alternatively, the From property can be set, and this 
    // implicitly sets the FromName and FromAddress properties.

    Get Create (RefClass(cComChilkatEmail)) To hoEmail2
    If (Not(IsComObjectCreated(hoEmail2))) Begin
        Send CreateComObject of hoEmail2
    End
    Set ComFrom Of hoEmail2 To "Joe Sample <joe.sample@example.com>"

    Get ComFromName Of hoEmail2 To sTemp1
    Showln "FromName: " sTemp1
    Get ComFromAddress Of hoEmail2 To sTemp1
    Showln "FromAddress: " sTemp1
    Showln "--------------------------------------------------"

    Get ComGetMime Of hoEmail2 To sTemp1
    Showln sTemp1


End_Procedure