' The following example codes demonstrate parsing failure delivery report
' To get full sample projects, please download and install EAGetMail on your machine.
' To run it correctly, please change email server, user, password, folder, file name value to yours

Option Explicit 

Private Sub ParseReport(ByVal emlFile As String) 

    Const FailureReport = 0 
    Const DeliveryReceipt = 1 
    Const ReadReceipt = 2 

    Dim oMail As New EAGetMailObjLib.Mail 
    oMail.LicenseCode = "TryIt" 
    oMail.LoadFile emlFile, False 

    If Not oMail.IsReport Then 
        MsgBox "this is not a report" 
        Exit Sub 
    End If 

    Dim oReport As EAGetMailObjLib.MailReport 
    Set oReport = oMail.GetReport() 
    ' Get report type
    Select Case oReport.ReportType 
    Case DeliveryReceipt 
        MsgBox "This is a deliver receipt" 
    Case ReadReceipt 
        MsgBox "This is a read receipt" 
    Case Else 
        MsgBox "This is a failure report" 
    End Select 

    ' Get original message information
    MsgBox oReport.OriginalSender 
    MsgBox oReport.OriginalRecipient 
    MsgBox oReport.OriginalMessageID 

    If oReport.ReportType = FailureReport Then 
        MsgBox oReport.ErrCode 
        MsgBox oReport.ErrDescription 
        MsgBox oReport.OriginalSubject 
        MsgBox oReport.ReportMTA 

        Dim oHeaders As EAGetMailObjLib.HeaderCollection 
        Set oHeaders = oReport.OriginalHeaders 
        Dim i, nCount As Integer 
        nCount = oHeaders.Count 
        For i = 0 To nCount - 1 
            Dim oHeader As EAGetMailObjLib.HeaderItem 
            Set oHeader = oHeaders.Item(i) 
            MsgBox oHeader.HeaderKey & ": " & oHeader.HeaderValue 
        Next 
    End If 

End Sub 

Private Sub Command1_Click() 

    ParseReport "c:\my folder\test.eml" 

    Exit Sub 
ErrorHandle: 
    MsgBox Err.Description 
End Sub