public class DeliveryStatusParser

Public Class DeliveryStatusParser

// To use the code below, import these namespaces at the top of your code.
using System;
using System.IO;
using MailBee.Mime;
using MailBee.BounceMail;

class Sample
{
    static void Main(string[] args)
    {
        // Load the templates database from file(s).
        DeliveryStatusParser parser = new DeliveryStatusParser(File.ReadAllBytes(@"C:\Temp\BounceDatabase\bouncedatabase.xdb"));

        string[] files = Directory.GetFiles(@"C:\Temp\IncomingMail", "*.eml");
        MailMessage msg = new MailMessage();

        // Check if e-mails are DSNs.
        foreach (string file in files)
        {
            msg.LoadMessage(file);
            Result result = parser.Process(msg);

            Console.WriteLine("\r\nProcessed e-mail: " + file);

            if (result == null)
            {
                Console.WriteLine("------------------------------------------------------");
                Console.WriteLine("This message is not a bounce.");
                Console.WriteLine("------------------------------------------------------");
            }
            else
            {
                // Get header params from the original e-mail message (for which this bounced message was sent).
                if (result.OriginalMessage != null)
                {
                    Console.WriteLine("-------------- Original message headers ------------");
                    Console.WriteLine("\tTo:     \t" + result.OriginalMessage.To.AsString);
                    Console.WriteLine("\tFrom:   \t" + result.OriginalMessage.From.AsString);
                    Console.WriteLine("\tSubject:\t" + result.OriginalMessage.Subject);
                    Console.WriteLine("----------------------------------------------------");
                }

                // Get the details for each e-mail address listed in the bounce.
                foreach (RecipientStatus res in result.Recipients)
                {
                    Console.WriteLine("E-mail address: \t" + res.EmailAddress);
                    Console.WriteLine("Status:         \tis " + (res.IsBounced ? "bounced" : "delivered successfully"));

                    Console.WriteLine("Common reason:  \t" + res.Common.ToString());
                    Console.WriteLine("Detailed reason:\t" + res.Detailed.ToString());
                    Console.WriteLine("Description:    \t" + res.Description);
                }
            }
        }
    }
}

' To use the code below, import these namespaces at the top of your code.
Imports System.IO
Imports Microsoft.VisualBasic
Imports MailBee.Mime
Imports MailBee.BounceMail

Class Sample
    Shared Sub Main(ByVal args() As String)
        ' Load the templates database from file(s).
        Dim parser As DeliveryStatusParser = New DeliveryStatusParser(File.ReadAllBytes("C:\Temp\BounceDatabase\bouncedatabase.xdb"))

        Dim files() As String = Directory.GetFiles("C:\Temp\IncomingMail", "*.eml")
        Dim msg As MailMessage = New MailMessage

        ' Check if e-mails are DSNs.
        For Each file As String In files
            msg.LoadMessage(file)
            Dim result As Result = parser.Process(msg)

            Console.WriteLine(ControlChars.CrLf & "Processed e-mail: " & file)

            If result Is Nothing Then
                Console.WriteLine("------------------------------------------------------")
                Console.WriteLine("This message is not a bounce.")
                Console.WriteLine("------------------------------------------------------")
            Else
                ' Get header params from the original e-mail message (for which this bounced message was sent).
                If Not result.OriginalMessage Is Nothing Then
                    Console.WriteLine("-------------- Original message headers ------------")
                    Console.WriteLine(ControlChars.Tab & "To:     " & ControlChars.Tab & result.OriginalMessage.To.AsString)
                    Console.WriteLine(ControlChars.Tab & "From:   " & ControlChars.Tab & result.OriginalMessage.From.AsString)
                    Console.WriteLine(ControlChars.Tab & "Subject:" & ControlChars.Tab & result.OriginalMessage.Subject)
                    Console.WriteLine("----------------------------------------------------")
                End If

                ' Get the details for each e-mail address listed in the bounce.
                For Each res As RecipientStatus In result.Recipients
                    Console.WriteLine("E-mail address: " & ControlChars.Tab & res.EmailAddress)
                    Console.Write("Status:         " & ControlChars.Tab & "is ")
                    If res.IsBounced Then Console.WriteLine("bounced") Else Console.WriteLine("delivered successfully")

                    Console.WriteLine("Common reason:  " & ControlChars.Tab & res.Common.ToString())
                    Console.WriteLine("Detailed reason:" & ControlChars.Tab & res.Detailed.ToString())
                    Console.WriteLine("Description:    " & ControlChars.Tab & res.Description)
                Next
            End If
        Next
    End Sub
End Class