منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

انا بحثت قبل عرض السؤال ولكن الانترنت فقير جدا بمثال لو بسيط افهم بية ما اريدة وهو تصدير الداتاجريدفيو الي ملف الاسماء او 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")

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل