(DataFlex) Getting TO / CC Email Recipients

Demonstrates how to examine the TO and CC recipients of an email.

Note: BCC recipients are generally NOT found in the email's MIME. "BCC" is a "Blind Carbon Copy", which means that the TO and CC recipients of the email should not be able to see the BCC recipients. If the BCC email addresses were found in the MIME header, then they would no longer be "blind" because nothing would prevent the other recipients from seeing the list of BCC recipients.

To understand how BCC recipients receive an email, I recommend reading this blog post: SMTP Protocol in a Nutshell. The BCC recipients are passed to the SMTP server in “RCPT TO” commands.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail
    Boolean iSuccess
    Integer i
    Integer iNumTo
    Integer iNumCC
    String sTemp1

    // An email can have any number of To, CC, or Bcc recipients.
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    Get ComLoadEml Of hoEmail "sample.eml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // It doesn't matter if the email object was loaded from a .eml file,
    // or if it was downloaded from a POP3 or IMAP server. 
    // The methods and properties for examining the TO and CC
    // recipients are the same.

    // The number of TO recipients is found in the NumTo property
    Get ComNumTo Of hoEmail To iNumTo

    // Iterate over each TO recipient
    If (iNumTo > 0) Begin
        For i From 0 To (iNumTo - 1)
            Get ComGetTo Of hoEmail i To sTemp1
            Showln "TO Friendly Name and Address: " sTemp1
            Get ComGetToAddr Of hoEmail i To sTemp1
            Showln "TO Address: " sTemp1
            Get ComGetToName Of hoEmail i To sTemp1
            Showln "TO Friendly Name: " sTemp1
            Showln "---"
        Loop

    End

    // The number of CC recipients is found in the NumCC property
    Get ComNumCC Of hoEmail To iNumCC

    // Iterate over each CC recipient
    If (iNumCC > 0) Begin
        For i From 0 To (iNumCC - 1)
            Get ComGetCC Of hoEmail i To sTemp1
            Showln "CC Friendly Name and Address: " sTemp1
            Get ComGetCcAddr Of hoEmail i To sTemp1
            Showln "CC Address: " sTemp1
            Get ComGetCcName Of hoEmail i To sTemp1
            Showln "CC Friendly Name: " sTemp1
            Showln "---"
        Loop

    End



End_Procedure