أشرف حسين

السلام عليكم

أخي العزيز

صيغة CSV كما قال الغالي أبو أحمد

إن لم يقبل جهازك هذه الصيغة فلتلجأ للصيغة الأخري VCF

وهذه الاخيرة تحتاج خطوات أكثر 

1. ويلزم أن يكون عندك برنامج أوتلوك
2. ستنقل محتويات الأسماء بالأوتلوك إلي مكان آخر مؤقت
3. ثم تستورد إلي الأوتلوك من الملف الإكسل أو الـCSV 
4. ثم من الأوتلوك يمكنك إرسال جميع الأسماء إلي صيغة VCF 
5. إلغي الأسماء من الأوتلوك وإسترجع أسماء الأوتلوك الأصلية لمكانها مرة أخري 

في الخطوة 4 ،يلزمك كود صغير علي الأوتلوك وليس علي الإكسل ليمكن الأوتلوك من إرسال جميع الأسماء إلي صيغة VCF وليس إسما بإسم كما هو العادي 

هذا الكود هو

Sub Save_all_Contacts_as_VCF_format()    Dim ns As NameSpace
    Dim foldContact As Folder
    Dim itemContact As ContactItem
    Dim colItems As Outlook.Items
    Dim myProperty As Outlook.UserProperty
       
    Set ns = Application.GetNamespace("MAPI")
    Set foldContact = ns.GetDefaultFolder(olFolderContacts)
    Set colItems = foldContact.Items.Restrict("[MessageClass]='IPM.Contact'")
    
    For Each itemContact In colItems
    i = i + 1
            itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard

    Next
End Sub

ستلاحظ كما بالسطر قبل الأخير بالكود

itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard

أنك لابد أن تكون مجهز قبل تشغيل الكود مجلد وليكن AAA علي الدرايف D

 

إن أردت إرسل لي الملف مهما كان كبيرا وسأحوله لك بإذن الله

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

انا حاليا بواجه نفس المشكلة 

و عندي 4 ملفات ممكن تساعدني ؟