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

بشكل عام، تُعرض جهات الاتصال في 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

3. اضغط على مفتاحF5لتشغيل الكود، وبعدها سيُغيَّر تنسيق «حفظ باسم» لجميع جهات الاتصال المحددة إلى اسم الشركة.

ملاحظة:

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

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