public event DataTransferEventHandler LowLevelDataSent

Public Event LowLevelDataSent As DataTransferEventHandler

using System;
using MailBee;
using MailBee.SmtpMail;

class Sample
{
    // Total bytes sent counters.
    private static int _totalBytesSmtp = 0;
    private static int _totalBytesDns = 0;

    // LowLevelDataSent event handler.
    private static void OnLowLevelDataSent(object sender, DataTransferEventArgs e)
    {
        if (e.Protocol == TopLevelProtocolType.Smtp)
        {
            // Increment SMTP traffic counter.
            _totalBytesSmtp += e.Data.Length;
        }
        else if (e.Protocol == TopLevelProtocolType.Dns)
        {
            // Increment DNS traffic counter.
            _totalBytesDns += e.Data.Length;
        }
    }

    // The actual code.
    static void Main(string[] args)
    {
        Smtp mailer = new Smtp();

        // Get DNS servers from config file/OS settings.
        mailer.DnsServers.Autodetect();

        // Subscribe to the LowLevelDataSent event.
        mailer.LowLevelDataSent += new DataTransferEventHandler(OnLowLevelDataSent);

        // Produce some DNS and SMTP traffic by performing direct send of empty message.
        mailer.Send("sender@domain.com", "user1@domain1.com, user2@domain2.com");

        // Print the total number of bytes sent to the network.
        Console.WriteLine(_totalBytesSmtp + " bytes sent in all SMTP sessions");
        Console.WriteLine(_totalBytesDns + " bytes sent in all DNS queries");
    }
}

Imports System
Imports MailBee
Imports MailBee.SmtpMail

Class Sample
    ' Total bytes sent counters.
    Private Shared _totalBytesSmtp = 0
    Private Shared _totalBytesDns = 0

    ' LowLevelDataReceived event handler.
    Private Shared Sub OnLowLevelDataSent(ByVal sender As Object, ByVal e As DataTransferEventArgs)
        If e.Protocol = TopLevelProtocolType.Smtp Then
            ' Increment SMTP traffic counter.
            _totalBytesSmtp += e.Data.Length
        ElseIf e.Protocol = TopLevelProtocolType.Dns Then
            ' Increment DNS traffic counter.
            _totalBytesDns += e.Data.Length
        End If
    End Sub

    ' The actual code.
    Shared Sub Main(ByVal args As String())
        Dim mailer As New Smtp

        ' Get DNS servers from config file/OS settings.
        mailer.DnsServers.Autodetect()

        ' Subscribe to the LowLevelDataSent event.
        AddHandler mailer.LowLevelDataSent, AddressOf OnLowLevelDataSent

        ' Produce some DNS and SMTP traffic by performing direct send of empty message.
        mailer.Send("sender@domain.com", "user1@domain1.com, user2@domain2.com")

        ' Print the total number of bytes sent to the network.
        Console.WriteLine(_totalBytesSmtp & " bytes sent in all SMTP sessions")
        Console.WriteLine(_totalBytesDns & " bytes sent in all DNS queries")
    End Sub
End Class