public AttachmentCollection GetAttachmentsFromTnef(
	TnefExtractionOptions options
)

Public Function GetAttachmentsFromTnef ( 
	options As TnefExtractionOptions
) As AttachmentCollection

using System;
using System.Collections;
using System.Text;
using MailBee;
using MailBee.ImapMail;
using MailBee.Mime;

class Sample
{
    static void Main(string[] args)
    {
        Imap imp = new Imap();

        // Connect to the server, login and select inbox.
        imp.Connect("imap.domain.com");
        imp.Login("user", "password");
        imp.SelectFolder("INBOX");

        // Download the last e-mail in the inbox.
        // We assume that e-mail includes winmail.dat attachment.
        MailMessage msg = imp.DownloadEntireMessage(imp.MessageCount, false);

        bool tnefFound = false;
        bool rtfFound = false;

        foreach (Attachment attach in msg.Attachments)
        {
            // Check if it's MS-TNEF (e.g. winmail.dat).
            if (attach.IsTnef)
            {
                tnefFound = true;

                // Extract all the attachments and RTF body.
                AttachmentCollection tnefItems = attach.GetAttachmentsFromTnef(
                    TnefExtractionOptions.ExtractAttachments | TnefExtractionOptions.ExtractRtfBody);

                // If RTF body exists, it's the last item in the collection with name "richbody.rtf".
                if (tnefItems.Count > 0 && tnefItems[tnefItems.Count - 1].Filename == "richbody.rtf")
                {
                    rtfFound = true;
                    Attachment rtfBody = tnefItems[tnefItems.Count - 1];

                    // Print the RTF contents to the console.
                    Console.WriteLine(Global.DefaultEncoding.GetString(rtfBody.GetData()));

                    // Remove the RTF from the collection. But if you wish to have the RTF body saved
                    // with all the attachments, comment this line out.
                    tnefItems.RemoveAt(tnefItems.Count - 1);
                }

                // Save everything in a folder. If you commented out the removal of RTF (see above),
                // RTF will be saved as well, with "richbody.rtf" filename.
                tnefItems.SaveAll(@"C:\Temp");
                Console.WriteLine();
                Console.WriteLine(tnefItems.Count.ToString() + " item(s) saved");
            }
        }

        if (!tnefFound)
        {
            Console.WriteLine("No TNEF found");
        }
        else if (!rtfFound)
        {
            Console.WriteLine("No RTF found in TNEF");
        }

        imp.Disconnect();
    }
}

Imports System
Imports System.Collections
Imports System.Text
Imports MailBee
Imports MailBee.ImapMail
Imports MailBee.Mime

Class Sample
    Shared Sub Main(ByVal args() As String)
        Dim imp As Imap = New Imap

        ' Connect to the server, login and select inbox.
        imp.Connect("imap.domain.com")
        imp.Login("user", "password")
        imp.SelectFolder("INBOX")

        ' Download the last e-mail in the inbox.
        ' We assume that e-mail includes winmail.dat attachment.
        Dim msg As MailMessage = imp.DownloadEntireMessage(imp.MessageCount, False)

        Dim tnefFound As Boolean = False
        Dim rtfFound As Boolean = False

        Dim attach As Attachment
        For Each attach In msg.Attachments
            ' Check if it's MS-TNEF (e.g. winmail.dat).
            If attach.IsTnef Then
                tnefFound = True

                ' Extract all the attachments and RTF body.
                Dim tnefItems As AttachmentCollection = attach.GetAttachmentsFromTnef( _
                 TnefExtractionOptions.ExtractAttachments + TnefExtractionOptions.ExtractRtfBody)

                ' If RTF body exists, it's the last item in the collection with name "richbody.rtf".
                If (tnefItems.Count > 0 AndAlso tnefItems(tnefItems.Count - 1).Filename = "richbody.rtf") Then
                    rtfFound = True
                    Dim rtfBody As Attachment = tnefItems(tnefItems.Count - 1)

                    ' Print the RTF contents to the console.
                    Console.WriteLine(Global.DefaultEncoding.GetString(rtfBody.GetData()))

                    ' Remove the RTF from the collection. But if you wish to have the RTF body saved
                    ' with all the attachments, comment this line out.
                    tnefItems.RemoveAt(tnefItems.Count - 1)
                End If

                ' Save everything in a folder. If you commented out the removal of RTF (see above),
                ' RTF will be saved as well, with "richbody.rtf" filename.
                tnefItems.SaveAll("C:\Temp")
                Console.WriteLine()
                Console.WriteLine(tnefItems.Count.ToString() + " item(s) saved")
            End If
        Next

        If (Not tnefFound) Then
            Console.WriteLine("No TNEF found")
        ElseIf (Not rtfFound) Then
            Console.WriteLine("No RTF found in TNEF")
        End If

        imp.Disconnect()
    End Sub
End Class