[VB.NET] تصدير الداتاجريد لملف vcf - نسخة قابلة للطباعة

كود :
       Dim outApp As Application

        outApp = CType(CreateObject("Outlook.Application"), Application)

        Dim oNS As Outlook.NameSpace = outApp.GetNamespace("MAPI")

        oNS.Logon("", "", True, True)

        Dim oCt As ContactItem = CType(outApp.CreateItem(OlItemType.olContactItem), ContactItem)

        'Time to set some properties. There are many many more

        oCt.FullName = "Larry Bogipski"

        oCt.AddBusinessCardLogoPicture("D:\New folder\BCardPic.jpg")

        oCt.Gender = OlGender.olMale

        oCt.Title = "Actor, Extra"

        oCt.Birthday = Convert.ToDateTime("08/21/1961")

        oCt.CompanyName = "RCA Studios "

        oCt.Department = "A5"

        oCt.Body = "This would be a description"

        oCt.FileAs = "LBogipski"

        oCt.Email1Address = "private@hotmail.com"

        oCt.BusinessHomePage = "http://www.notvrhnot.com/"

        oCt.MailingAddress = "12345 Hollywood Blvd"

        oCt.BusinessAddress = "12345 Hollywood Blvd, Hollywood, CA 90001"

        oCt.OfficeLocation = "Top Floor"

        oCt.Subject = "My Contact Info"

        oCt.JobTitle = "Drama, Stunts"

        oCt.SaveAs("D:\New folder\Test.vcf", OlSaveAsType.olVCard)

        oCt.SaveBusinessCardImage("D:\New folder\Test.jpg")

        oNS.Logoff()

        oCt = Nothing

        outApp = Nothing

        oCt.Disposing()

        outApp.disposing()

        MessageBox.Show("All Done")