كيفية تغيير تنسيق الملف دفعة واحدة لجميع جهات الاتصال في Outlook؟

Author: Sun Last Modified: 2025-08-06

بشكل عام، يتم عرض ملفات جهات الاتصال بصيغة اسم العائلة أولاً في Outlook، ولكن كيف يمكنك بسرعة تغيير صيغة ملفات جهات الاتصال دفعة واحدة إلى الشركة أو أي ترتيب آخر كما هو موضح في لقطة الشاشة أدناه؟ الخيار الافتراضي 'حفظ باسم' يعمل فقط على جهات الاتصال الجديدة وليس القديمة. هنا، أقدم لك كود VBA لتغيير التنسيق دفعة واحدة لجميع جهات الاتصال الموجودة في Outlook.

تغيير التنسيق دفعة واحدة لجميع جهات الاتصال باستخدام VBA

تغيير التنسيق دفعة واحدة لجميع جهات الاتصال باستخدام VBA

1. حدد جهات الاتصال التي تريد تغيير التنسيق لها واضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر نقراً مزدوجاً على ThisOutlookSession في لوحة Project-Project1، ثم انسخ والصق الكود أدناه في النص الفارغ.

VBA: تغيير التنسيق

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

doc change file as 3

3. اضغط على مفتاح F5 لتشغيل الكود، ثم سيتم تغيير جميع جهات الاتصال المحددة إلى الشركة.

ملاحظة:

1. في الكود، يمكنك تغيير CompanyName إلى الحقول الأخرى التي تريد عرضها كتنسيق للملف.

2. إذا لم يكن هناك معلومات عن الشركة، سيتم عرض الاسم الكامل.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم: