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

Author: Sun Last Modified: 2025-08-07

Genel olarak, kişi dosyaları Outlook'ta Soyadı Ad olarak görüntülenir, ancak aşağıdaki ekran görüntüsünde gösterildiği gibi, kişilere ait dosyaların biçimini hızlı bir şekilde toplu olarak Şirket veya başka bir sırayla nasıl değiştirebilirsiniz? Varsayılan 'Dosya Olarak' seçeneği yalnızca yeni kişi için çalışır, mevcut olanlar için çalışmaz. Burada, Outlook'taki tüm mevcut kişiler için dosya biçimini toplu olarak değiştirmek üzere bir VBA kodu tanıtacağım.

VBA ile tüm kişiler için toplu dosya değiştirme

VBA ile tüm kişiler için toplu dosya değiştirme

1. Dosya olarak değiştirmek istediğiniz kişileri seçin ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Proje-Proje1 bölmesinde ThisOutlookSession öğesine çift tıklayın ve aşağıdaki kodu boş betiğe kopyalayıp yapıştırın.

VBA: Dosya olarak 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

doc change file as 3

3. Kodu çalıştırmak için F5 tuşuna basın, ardından tüm seçili kişilerin dosya olarak şirkete değiştirilmiş olacaktır.

Not:

1. Kodda, CompanyName alanını görüntülemek istediğiniz diğer alanlarla değiştirebilirsiniz.

2. Şirket bilgisi yoksa, tam ad görüntülenecektir.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler: