public bool IsVCard { get; }

Public ReadOnly Property IsVCard As Boolean
	Get

using System;
using MailBee.Mime;
using vCards;

class Sample
{
    static void Main(string[] args)
    {
        MailMessage msg = new MailMessage();
        msg.LoadMessage(@"C:\Docs\vcard.eml");

        foreach (Attachment attach in msg.Attachments)
        {
            if (attach.IsVCard)
            {
                vCard crd = new vCard(attach.GetData());

                Console.WriteLine("Name: " + crd.FormattedName);
                Console.WriteLine("Title: " + crd.Title);
                Console.WriteLine("BirthDate: " + crd.BirthDate);
                Console.WriteLine("Organization: " + crd.Organization);

                foreach (vCardPhone phone in crd.Phones)
                {
                    if (phone.IsCellular)
                    {
                        Console.WriteLine("Cellular phone number: " + phone.FullNumber);
                    }
                    else if (phone.IsHome)
                    {
                        Console.WriteLine("Home phone number: " + phone.FullNumber);
                    }
                    else if (phone.IsWork)
                    {
                        Console.WriteLine("Work phone number: " + phone.FullNumber);
                    }
                    else if (phone.IsFax)
                    {
                        Console.WriteLine("Fax number: " + phone.FullNumber);
                    }
                }
            }
        }
    }
}

Imports System
Imports MailBee.Mime
Imports vCards

Class Sample
    Shared Sub Main(ByVal args() As String)
        Dim msg As MailMessage = New MailMessage
        msg.LoadMessage("C:\Docs\vcard.eml")

        Dim attach As Attachment
        For Each attach In msg.Attachments
            If attach.IsVCard Then
                Dim crd As vCard = New vCard(attach.GetData())

                Console.WriteLine("Name: " & crd.FormattedName)
                Console.WriteLine("Title: " & crd.Title)
                Console.WriteLine("BirthDate: " & crd.BirthDate)
                Console.WriteLine("Organization: " & crd.Organization)

                Dim phone As vCardPhone
                For Each phone In crd.Phones
                    If phone.IsCellular Then
                        Console.WriteLine("Cellular phone number: " & phone.FullNumber)
                    ElseIf phone.IsHome Then
                        Console.WriteLine("Home phone number: " & phone.FullNumber)
                    ElseIf phone.IsWork Then
                        Console.WriteLine("Work phone number: " & phone.FullNumber)
                    ElseIf phone.IsFax Then
                        Console.WriteLine("Fax number: " & phone.FullNumber)
                    End If
                Next
            End If
        Next
    End Sub
End Class

using System;
using System.IO;
using System.Text;
using MailBee.Mime;
using MailBee.SmtpMail;
using vCards;

class Sample
{
    static void Main(string[] args)
    {
        // Create a new user profile.
        vCard crd = new vCard();

        crd.GivenName = "John";
        crd.FamilyName = "Smith";

        crd.Gender = vCardGender.Male;
        crd.BirthDate = new DateTime(1980, 3, 2);

        crd.Phones.Add(new vCardPhone("123-456-789", vCardPhoneTypes.Cellular));
        crd.Phones.Add(new vCardPhone("893-111-789", vCardPhoneTypes.Home));
        crd.Phones.Add(new vCardPhone("222-555-333", vCardPhoneTypes.Work));

        vCardPhoto photo = new vCardPhoto(@"C:\Docs\john_smith.jpg");

        crd.Photos.Add(photo);

        MailMessage msg = new MailMessage();
        msg.From.AsString = "user@mail.com";
        msg.To.Add("newuser@mail.com");
        msg.Subject = "See attached vCard";

        vCardStandardWriter wrt = new vCardStandardWriter();

        StringWriter sw = new StringWriter();

        // Specify charset to encode non-ascii strings.
        wrt.Write(crd, sw, "windows-1252");

        // Add vCard as attachment.
        msg.Attachments.Add(
            Encoding.GetEncoding("windows-1252").GetBytes(sw.ToString()),
            "John Smith.vcf", null, "application/octet-stream", null,
            NewAttachmentOptions.None, MailTransferEncoding.QuotedPrintable);

        // And send it.
        Smtp.QuickSend(msg);
    }
}

Imports System.IO
Imports System.Text
Imports MailBee.Mime
Imports MailBee.SmtpMail
Imports vCards

Class Sample
    Shared Sub Main(ByVal args() As String)
        ' Create a new user profile.
        Dim crd As vCard = New vCard

        crd.GivenName = "John"
        crd.FamilyName = "Smith"

        crd.Gender = vCardGender.Male
        crd.BirthDate = New DateTime(1980, 3, 2)

        crd.Phones.Add(New vCardPhone("123-456-789", vCardPhoneTypes.Cellular))
        crd.Phones.Add(New vCardPhone("893-111-789", vCardPhoneTypes.Home))
        crd.Phones.Add(New vCardPhone("222-555-333", vCardPhoneTypes.Work))

        Dim photo As vCardPhoto = New vCardPhoto("C:\Docs\john_smith.jpg")

        crd.Photos.Add(photo)

        Dim msg As MailMessage = New MailMessage
        msg.From.AsString = "user@mail.com"
        msg.To.Add("newuser@mail.com")
        msg.Subject = "See attached vCard"

        Dim wrt As vCardStandardWriter = New vCardStandardWriter

        Dim sw As StringWriter = New StringWriter

        ' Specify charset to encode non-ascii strings.
        wrt.Write(crd, sw, "windows-1252")

        ' Add vCard as attachment.
        msg.Attachments.Add( _
                Encoding.GetEncoding("windows-1252").GetBytes(sw.ToString()), _
                "John Smith.vcf", Nothing, "application/octet-stream", Nothing, _
                NewAttachmentOptions.None, MailTransferEncoding.QuotedPrintable)

        ' And send it.
        Smtp.QuickSend(msg)
    End Sub
End Class

using MailBee.Mime;
using vCards;

MailMessage msg = new MailMessage();
msg.LoadMessage(@"C:\Docs\vCardWithPhoto.eml");

foreach (Attachment attach in msg.Attachments)
{
    if (attach.IsVCard)
    {
        vCard crd = new vCard(attach.GetData());

        label1.Text = crd.GivenName;
        label2.Text = crd.FamilyName;

        pictureBox1.Image = Image.FromStream(
            new MemoryStream(crd.Photos[0].GetBytes()));
    }
}

Imports MailBee.Mime
Imports vCards

Dim msg As MailMessage = New MailMessage
msg.LoadMessage("C:\Docs\vCardWithPhoto.eml")

Dim attach As Attachment
For Each attach In msg.Attachments
    If attach.IsVCard Then
        Dim crd As vCard = New vCard(attach.GetData())

        label1.Text = crd.GivenName
        label2.Text = crd.FamilyName

        pictureBox1.Image = Image.FromStream( _
            New MemoryStream(crd.Photos(0).GetBytes()))
    End If
Next