Outlook'taki tüm kişiler için dosya biçimini toplu olarak nasıl değiştirebilirim?

Genel olarak, kişi dosyaları Outlook'ta Soyadı Adı olarak görüntülenir, ancak kişi dosyalarını biçim olarak Şirket veya aşağıda gösterilen ekran görüntüsü gibi başka bir sırada nasıl hızlı bir şekilde toplu olarak değiştirebilirsiniz? Seçenek Varsayılan "Farklı dosyala" sırası yalnızca yeni kişi için çalışabilir ancak mevcut kişiler için geçerli değildir. Burada, Outlook'taki tüm mevcut kişiler için biçim olarak toplu değişiklik dosyasına bir VBA kodu ekliyorum.

VBA ile tüm kişiler için olduğu gibi toplu değişiklik dosyası

VBA ile tüm kişiler için olduğu gibi toplu değişiklik dosyası

1. Dosyayı değiştirmek istediğiniz kişileri seçin, Alt + F11 etkinleştirmek için anahtarlar Microsoft Visual Basic for Applications pencere.

2. simgesini çift tıklayın ThisOutlookSession in Project-Project1 bölmesini açın ve aşağıdaki kodu kopyalayıp boş komut dosyasına yapıştırın.

VBA: Dosyayı şu şekilde değiştir

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 değişiklik dosyası 3 olarak