public class TnefParser

Public Class TnefParser

using System;
using MailBee.Mime;
using MailBee.Tnef;

class Sample
{
    static void RecursivelySaveAllAttachmentsFromTnef(AttachmentCollection attachs)
    {
        foreach (Attachment att in attachs)
        {
            Console.WriteLine(att.Filename);
            if (att.IsMessageInside)
            {
                Console.WriteLine("Nested mail message in winmail.dat");
                MailMessage innerMsg = att.GetEncapsulatedMessage();
                RecursivelySaveAllAttachmentsFromTnef(innerMsg.Attachments);
            }
            else
            {
                // Content-type will be "application/rtf".
                if (att.Filename == "richbody.rtf")
                {
                    Console.WriteLine("Got RTF message body. Content-type: " + att.ContentType);
                }
                att.SaveToFolder(@"C:\Temp", true);
            }
        }
    }

    static void Main(string[] args)
    {
        AttachmentCollection attachs = TnefParser.GetAttachments(@"C:\Temp\winmail.dat",
            TnefExtractionOptions.ExtractAttachments | TnefExtractionOptions.ExtractRtfBody);
        RecursivelySaveAllAttachmentsFromTnef(attachs);
    }
}

Imports MailBee.Mime
Imports MailBee.Tnef

Class Sample
    Private Shared Sub RecursivelySaveAllAttachmentsFromTnef(ByVal attachs As AttachmentCollection)
        For Each att As Attachment In attachs
            Console.WriteLine(att.Filename)
            If att.IsMessageInside Then
                Console.WriteLine("Nested mail message in winmail.dat")
                Dim innerMsg As MailMessage = att.GetEncapsulatedMessage()
                RecursivelySaveAllAttachmentsFromTnef(innerMsg.Attachments)
            Else
                ' Content-type will be "application/rtf".
                If att.Filename = "richbody.rtf" Then
                    Console.WriteLine("Got RTF message body. Content-type: " & att.ContentType)
                End If
                att.SaveToFolder("C:\Temp", True)
            End If
        Next
    End Sub

    Shared Sub Main(ByVal args As String())
        Dim attachs As AttachmentCollection = TnefParser.GetAttachments("C:\Temp\winmail.dat", _
         TnefExtractionOptions.ExtractAttachments Or TnefExtractionOptions.ExtractRtfBody)
        RecursivelySaveAllAttachmentsFromTnef(attachs)
    End Sub
End Class