Check Whether a Message is a DSN

Download Chilkat Email ActiveX

This example shows how to determine whether a mail message is a DSN.

Private Sub Command1_Click()

    ' Check to see whether an email message is a
    ' delivery status notification (DSN)
    Dim mailman As New ChilkatMailMan2
    mailman.UnlockComponent "Anything for 30-day trial"
    
    ' Load a .eml file into the email object.
    ' A zip containing 10 DSN sample emails can be found at:
    ' http://www.chilkatsoft.com/dsn_samples/DSN_Samples.zip
    Dim email As New ChilkatEmail2
    email.LoadEml "dsnSample1.eml"
    
    If (email.IsMultipartReport() = 1) Then
        MsgBox "Yes, this is a DSN!"
    Else
        MsgBox "Not a DSN."
    End If

End Sub