public class RblFilter : IComponent, IDisposable

Public Class RblFilter
	Implements IComponent, IDisposable

using System;
using MailBee;
using MailBee.Mime;
using MailBee.DnsMX;
using MailBee.AntiSpam;

class Sample
{
    static void Main(string[] args)
    {
        RblFilter rbl = new RblFilter();

        // Logging is helpful for debugging.
        rbl.Log.Enabled = true;
        rbl.Log.Filename = @"C:\Temp\log.txt";
        rbl.Log.Format = LogFormatOptions.AddContextInfo; // Context info is useful in multi-threaded mode.
        rbl.Log.Clear();

        // RBL check needs DNS servers.
        rbl.DnsServers.Autodetect();

        // For performance sake, avoid making redundant TCP queries. UDP is enough with RBL.
        // Also, the default 5000ms timeout can be too long.
        foreach (DnsServer dns in rbl.DnsServers)
        {
            dns.TryTcp = false;
            dns.UdpTimeout = 500;

            // Or you can leave UdpRetryCount=2 (default), it will end up in increased times to check against dead/slow RBLs
            // but the results will be more accurate.
            dns.UdpRetryCount = 1;
        }

        // Multi-threaded mode. This sample will run faster than single-threaded version.
        rbl.MaxThreadCount = -1;

        // Grab some mail message to check. In production, you can get it from IMAP server or elsewhere.
        MailMessage msg = new MailMessage();
        msg.LoadMessage(@"C:\Temp\msg.eml");

        // Ask some popular RBLs about this message.
        RblStatusCollection statuses = rbl.GetRblStatusesOfMailOriginatingIPAddress(msg, 0,
            new string[] { "zen.spamhaus.org", "bl.spamcop.net", "cbl.abuseat.org" });
        if (statuses == null)
        {
            Console.WriteLine("Can't extract originating IP address from the e-mail");
        }
        else
        {
            Console.WriteLine("Is in RBLs: " + statuses.IsInRbls.ToString());
            foreach (RblStatus status in statuses)
            {
                Console.WriteLine(string.Format("RBL: {0}, IP found: {1}, RBL check resulted in error: {2}, RBL reply: {3}",
                    status.RblHost, status.IsIPAddressInRbl, status.IsError, status.RblReplyText));
            }
        }
    }
}

Imports MailBee
Imports MailBee.Mime
Imports MailBee.DnsMX
Imports MailBee.AntiSpam

Class Sample
    Shared Sub Main(ByVal args As String())
        Dim rbl As New RblFilter()

        ' Logging is helpful for debugging.
        rbl.Log.Enabled = True
        rbl.Log.Filename = "C:\Temp\log.txt"
        rbl.Log.Format = LogFormatOptions.AddContextInfo ' Context info is useful in multi-threaded mode.
        rbl.Log.Clear()

        ' RBL check needs DNS servers.
        rbl.DnsServers.Autodetect()

        ' For performance sake, avoid making redundant TCP queries. UDP is enough with RBL.
        ' Also, the default 5000ms timeout can be too long.
        For Each dns As DnsServer In rbl.DnsServers
            dns.TryTcp = False
            dns.UdpTimeout = 500

            ' Or you can leave UdpRetryCount=2 (default), it will end up in increased times to check against dead/slow RBLs
            ' but the results will be more accurate.
            dns.UdpRetryCount = 1
        Next

        ' Multi-threaded mode. This sample will run faster than single-threaded version.
        rbl.MaxThreadCount = -1

        ' Grab some mail message to check. In production, you can get it from IMAP server or elsewhere.
        Dim msg As New MailMessage()
        msg.LoadMessage("C:\Temp\msg.eml")

        ' Ask some popular RBLs about this message.
        Dim statuses As RblStatusCollection = rbl.GetRblStatusesOfMailOriginatingIPAddress(msg, 0, _
         New String() {"zen.spamhaus.org", "bl.spamcop.net", "cbl.abuseat.org"})
        If statuses Is Nothing Then
            Console.WriteLine("Can't extract originating IP address from the e-mail")
        Else
            Console.WriteLine("Is in RBLs: " & statuses.IsInRbls.ToString())
            For Each status As RblStatus In statuses
                Console.WriteLine(String.Format("RBL: {0}, IP found: {1}, RBL check resulted in error: {2}, RBL reply: {3}", _
                 status.RblHost, status.IsIPAddressInRbl, status.IsError, status.RblReplyText))
            Next
        End If

    End Sub
End Class