public class BayesFilter

Public Class BayesFilter

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

class Sample
{
    static void Main(string[] args)
    {
        BayesFilter filter = new BayesFilter();
        MailMessage msg = new MailMessage();

        // Train Bayesian filter for spam messages.
        string[] files = Directory.GetFiles(@"C:\AntiSpam\Spam", "*.eml");
        foreach (string file in files)
        {
            msg.LoadMessage(file);
            filter.TrainFilter(msg, true); // Mark as spam.
        }

        // Train Bayesian filter for non-spam messages.
        files = Directory.GetFiles(@"C:\AntiSpam\NonSpam", "*.eml");
        foreach (string file in files)
        {
            msg.LoadMessage(file);
            filter.TrainFilter(msg, false); // Mark as non-spam.
        }

        // Save Bayesian database to disk.
        filter.SaveDatabase(@"C:\AntiSpam\spam.dat", @"C:\AntiSpam\nonspam.dat");

        // Test our emails for spam.
        files = Directory.GetFiles(@"C:\AntiSpam\Emails", "*.eml");
        foreach (string file in files)
        {
            msg.LoadMessage(file);
            Console.WriteLine("Spam probability is: {0}%", filter.ScoreMessage(msg));
        }
    }
}

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

Module Sample
    Sub Main(ByVal args() As String)
        Dim filter As BayesFilter = New BayesFilter()
        Dim msg As MailMessage = New MailMessage()

        ' Train Bayesian filter for spam messages.
        Dim files() As String = Directory.GetFiles("C:\AntiSpam\Spam", "*.eml")
        For Each file As String In files
            msg.LoadMessage(file)
            filter.TrainFilter(msg, True) ' Mark as spam.
        Next

        ' Train Bayesian filter for non-spam messages.
        files = Directory.GetFiles("C:\AntiSpam\NonSpam", "*.eml")
        For Each file As String In files
            msg.LoadMessage(file)
            filter.TrainFilter(msg, False) ' Mark as non-spam.
        Next

        ' Save Bayesian database to disk.
        filter.SaveDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")

        ' Test our emails for spam.
        files = Directory.GetFiles("C:\AntiSpam\Emails", "*.eml")
        For Each file As String In files
            msg.LoadMessage(file)
            Console.WriteLine("Spam probability is: {0}%", filter.ScoreMessage(msg))
        Next
    End Sub
End Module