[محمد اسماعيل]

السلام عليكم ورحمة الله وبركاتة

انا بحثت قبل عرض السؤال ولكن الانترنت فقير جدا بمثال لو بسيط افهم بية ما اريدة وهو تصدير الداتاجريدفيو الي ملف الاسماء او vcf

الداتاجريد بيها عمود واحد فقط ارقام تم استيرادة من ملف اكسيل


فورمات الارقام ياخذ الشكل التالي بالداتاجريد


966500001546
966500001547
966500001544
966500001545
966500001550

دية الطريقة الي لقتها بس الملف لايتم انشاؤة باستخدام مكتبة 
Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Outlook

لو في طريقة بدون المكتبة يبقي افضل

كود :

       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")