public class PstReader

Public Class PstReader

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

class Sample
{
    static void Main(string[] args)
    {
        PstReader reader = new PstReader(@"C:\OutlookMessageBase\Outlook.pst");

        string outPath = @"C:\OutlookMessageBase\PstOutputDir";

        PstFolderCollection pstColl = reader.GetPstRootFolders(true);

        foreach (PstFolder fItem in pstColl)
        {
            int i = 0;
            Console.WriteLine(":::    " + fItem.Name);

            string folderPath = Path.Combine(outPath, fItem.SafeName);
            if (!Directory.Exists(folderPath))
            {
                Directory.CreateDirectory(folderPath);
            }

            foreach (PstItem item in fItem.Items)
            {
                if (item != null && item.PstType == PstItemType.Message)
                {
                    MailMessage msg = ((PstMessage) item).GetAsMailMessage();

                    Console.WriteLine(msg.Subject);

                    string fileName = Path.Combine(folderPath, string.Format("{0}_{1}.eml",
                        PstMessage.MakeStringSafeForFileName(msg.Subject), i++));

                    // Charset fix.
                    msg.Parser.CharsetMetaTagMode = CharsetMetaTagProcessing.RemoveCharsetMetaTag;
                    msg.Charset = "UTF-8";
                    msg.EncodeAllHeaders(System.Text.Encoding.UTF8, HeaderEncodingOptions.None);

                    msg.SaveMessage(fileName);

                    //msg = null;
                    //GC.Collect(); // For big amount of large messages
                }
            }
        }
    }
}

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

Class Sample
    Shared Sub Main(ByVal args() As String)
        Dim reader As PstReader = New PstReader("C:\OutlookMessageBase\Outlook.pst")

        Dim outPath As String = "C:\OutlookMessageBase\PstOutputDir"

        Dim pstColl As PstFolderCollection = reader.GetPstRootFolders(True)

        Dim fItem As PstFolder
        For Each fItem In pstColl
            Dim i As Integer = 0
            Console.WriteLine(":::    " & fItem.Name)

            Dim folderPath As String = Path.Combine(outPath, fItem.SafeName)
            If Not Directory.Exists(folderPath) Then
                Directory.CreateDirectory(folderPath)
            End If

            Dim item As PstItem
            For Each item In fItem.Items
                If Not item Is Nothing And item.PstType = PstItemType.Message Then
                    Dim msg As MailMessage = (CType(item, PstMessage)).GetAsMailMessage()

                    Console.WriteLine(msg.Subject)

                    i = i + 1
                    Dim fileName As String = Path.Combine(folderPath, String.Format("{0}_{1}.eml", _
                     PstMessage.MakeStringSafeForFileName(msg.Subject), i))

                    ' Charset fix.
                    msg.Parser.CharsetMetaTagMode = CharsetMetaTagProcessing.RemoveCharsetMetaTag
                    msg.Charset = "UTF-8"
                    msg.EncodeAllHeaders(System.Text.Encoding.UTF8, HeaderEncodingOptions.None)

                    msg.SaveMessage(fileName)

                    'msg = Nothing
                    'GC.Collect() 'For big amount of large messages
                End If
            Next
        Next
    End Sub
End Class