Outlook'taki Seçim Adları Listesinde faks numarasını nasıl gizlersiniz?
Outlook'ta, 'Seçim Adları' listesi veya adres defterinde, E-posta adresi sütununun yalnızca e-posta adreslerini değil aynı zamanda faks girişlerini de içerdiğini fark etmiş olabilirsiniz ki bu durum rahatsız edici olabilir. Bu makalede, size faks numaralarını gizleme yöntemlerinden bahsediyorum.
VBA ile Seçim Adları listesindeki faks numarasını gizleme
VBA ile Seçim Adları listesindeki faks numarasını gizleme
Eğer Seçim Adları listesinde mevcut olan faks numarasını gizlemek istiyorsanız, lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayarak yeni boş bir modül ekleyin, ardından aşağıdaki kodu kopyalayıp betiğe yapıştırın.
VBA: Seçim Adları'ndaki mevcut faks numarasını gizleme
Sub HideFaxNumbers_ExistingContacts()
'UpdatebyExtendoffice2018-5-23
Dim xStores As Outlook.Stores
Dim xStore As Outlook.Store
Dim xRootFolder As Outlook.Folder
Dim xFolder As Folder
On Error Resume Next
Set xStores = Outlook.Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal CurrentFolder As Outlook.Folder)
Dim xContactItem As Outlook.ContactItem
Dim xSubFolder As Outlook.Folder
Dim xFax As String
Dim I As Integer
On Error Resume Next
If CurrentFolder.DefaultItemType <> olContactItem Then Exit Sub
xFax = "Fax: "
For I = CurrentFolder.Items.Count To 1 Step -1
Set xContactItem = CurrentFolder.Items.Item(I)
With xContactItem
If (Len(.BusinessFaxNumber) <> 0) And InStrRev(.BusinessFaxNumber, Trim(xFax)) = 0 Then
.BusinessFaxNumber = xFax & .BusinessFaxNumber
End If
If (Len(.HomeFaxNumber) <> 0) And InStrRev(.HomeFaxNumber, Trim(xFax)) = 0 Then
.HomeFaxNumber = xFax & .HomeFaxNumber
End If
If (Len(.OtherFaxNumber) <> 0) And InStrRev(.OtherFaxNumber, Trim(xFax)) = 0 Then
.OtherFaxNumber = xFax & .OtherFaxNumber
End If
.Save
End With
Next I
If CurrentFolder.Folders.Count <> 0 Then
For I = CurrentFolder.Folders.Count To 1 Step -1
Set xSubFolder = CurrentFolder.Folders.Item(I)
Call ProcessFolders(xSubFolder)
Next I
End If
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın, şimdi faks numaraları gizlenmiş olacaktır.
Yeni kişilerdeki faks numarasını gizlemek istiyorsanız, şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Proje-1 bölmesinden ThisOutlookSession öğesine çift tıklayın ve ardından aşağıdaki kodu kopyalayıp betiğe yapıştırın.
VBA: Yeni eklenen kişilerde faks numarasını gizleme
Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xContactItem As Outlook.ContactItem
Private Sub Application_Startup()
'UpdatebyExtendoffice2018-5-23
Set xInspectors = Outlook.Application.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "ContactItem" Then
Set xContactItem = Inspector.CurrentItem
End If
End Sub
Private Sub xContactItem_PropertyChange(ByVal Name As String)
Dim xArr() As Variant
Dim xFax As String
On Error Resume Next
xArr = Array("BusinessFaxNumber", "HomeFaxNumber", "OtherFaxNumber")
xFax = "Fax: "
With xContactItem
Select Case Name
Case xArr(0)
If InStrRev(.BusinessFaxNumber, Trim(xFax)) = 0 Then
.BusinessFaxNumber = xFax & .BusinessFaxNumber
End If
Case xArr(1)
If InStrRev(.HomeFaxNumber, Trim(xFax)) = 0 Then
.HomeFaxNumber = xFax & .HomeFaxNumber
End If
Case xArr(2)
If InStrRev(.OtherFaxNumber, Trim(xFax)) = 0 Then
.OtherFaxNumber = xFax & .OtherFaxNumber
End If
End Select
End With
End Sub

3. Kodu kaydedin ve Outlook'u yeniden başlatarak kodun etkili olmasını sağlayın.
Şimdi itibaren, yeni oluşturulan Kişilerin tüm faks numaraları Seçim Adları: Kişiler penceresinde gizlenecektir.
![]() |
![]() |
![]() |
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:
- Akıllı e-posta yanıtları
- Optimize edilmiş içerik
- Anahtar kelimeye dayalı taslaklar
- Akıllı içerik genişletme
- E-posta özetleme
- Çok dilli çeviri
En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Başlattı!
Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...
🌟 Arayüz Sihri: 😊Daha Fazla Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna Küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

