Outlook’ta tüm kişilerin dosya biçimini toplu olarak nasıl değiştirebilirim?

Genellikle kişi kayıtları Outlook’ta “Soyad Ad” biçiminde görüntülenir; ancak aşağıdaki ekran görüntüsünde gösterildiği gibi, tüm kişileri “Şirket” veya başka bir sıraya göre topluca nasıl değiştirebilirsiniz? “Dosya olarak” sıralama seçeneğinin varsayılan ayarı yalnızca yeni eklenen kişiler için geçerlidir ve mevcut kişiler üzerinde etkili değildir. İşte bu sorunu çözmek için, Outlook’taki tüm mevcut kişilerinizin “dosya olarak” biçimini topluca değiştirmenizi sağlayacak bir VBA kodu sunuyoruz.

Tüm kişiler için "dosya olarak" bilgisini VBA ile topluca değiştirme

---

Tüm kişiler için "dosya olarak" bilgisini VBA ile topluca değiştirme

1. "Dosya olarak" bilgisini değiştirmek istediğiniz kişileri seçin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini etkinleştirin.

2. ThisOutlookSession bölümünde Project-Project1 bölmesine çift tıklayın ve aşağıdaki kodu boş betiğe kopyalayıp yapıştırın.

VBA: "Dosya olarak" bilgisini değiştirme

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. Kodu çalıştırmak için F5 tuşuna basın; ardından seçili tüm kişilerin "dosya olarak" bilgisi şirket adına göre güncellenecektir.

Not:

1. Kodda, CompanyName kısmını "dosya olarak" görüntülemek istediğiniz diğer alanlarla değiştirebilirsiniz.

2. Şirket bilgisi girilmemişse, Tam Ad görüntülenir.