Outlook'taki kişilerin telefon numaralarından ülke kodu nasıl kaldırılır?
Kişi penceresinde, Business/Ana Sayfa/İletişim/Telefon Aşağıdaki ekran görüntüsü gibi Telefon Numarasını Kontrol Et iletişim kutusunu etkinleştirmek için telefon numaralarının önündeki alan düğmesi, ülke kodu otomatik olarak telefon numaralarının önüne eklenecektir. Ancak bazen ülke kodu hiç gerekli olmayabilir ve onu tüm telefon numaralarından çıkarmak istersiniz, bununla nasıl başa çıkabilirsiniz? Aşağıdaki çözümleri deneyin:
Ülke kodunu bir kişinin telefon numarasından kaldırın
Ülke kodunu VBA ile kişilerin telefon numaralarından kaldırın
- E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
- Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
- E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
- E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...
Ülke kodunu bir kişinin telefon numarasından kaldırın
Ülke kodunu bir kişinin bir telefon numarasından kaldırmanız gerekiyorsa, aşağıdaki şekilde manuel olarak silebilirsiniz:
1. içinde İnsanlar (Ya da Bize Ulaşın) görüntüleyin, tıklayın Görüntüle > Görünümü değiştir > Telefon. Ekran görüntüsüne bakın:
2. Telefon numarasını çıkaracağınız kişiyi açmak için çift tıklayın.
3. Açılan Kişi penceresinde, artı işaretini ve ülke kodunu ekranda belirtilen telefondan kaldırın. Telefon numaraları bölümünü ve ardından tıklayın Bize Ulaşın > Kaydet kapat.
Şimdiye kadar, ülke kodu aşağıda gösterilen ekran görüntüsü gibi belirtilen telefon numarasından kaldırılmıştır:
Ülke kodunu VBA ile kişilerin telefon numaralarından kaldırın
Outlook'taki tüm kişilerin tüm telefon numaralarından ülke kodunu kaldırmanız gerekirse, kolayca işlemesi için bir VBA öneririm.
1. içinde İnsanlar (Ya da Bize Ulaşın) görüntüleyin, ülke kodunu tüm kişilerden kaldıracağınız kişi klasörünü açın.
2. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına basın.
3. tık Ekle > modülve sonra yeni açılış Modülü komut dosyasına VBA kodunun altına yapıştırın.
VBA: Ülke kodunu tüm kişilerin tüm telefon numaralarından kaldır
Sub FixPhoneFormat()
Dim oFolder As MAPIFolder
Set oFolder = Application.ActiveExplorer.CurrentFolder
If Left(UCase(oFolder.DefaultMessageClass), 11) <> "IPM.CONTACT" Then
MsgBox "You need to select a Contacts folder", vbExclamation
Exit Sub
End If
Dim nCounter As Integer
nCounter = 0
Dim oItem
For Each oItem In oFolder.Items
Dim oContact As ContactItem
If TypeName(oItem) <> "DistListItem" Then
Set oContact = oItem
With oContact
.AssistantTelephoneNumber = FixFormatUSPhone(.AssistantTelephoneNumber)
.Business2TelephoneNumber = FixFormatUSPhone(.Business2TelephoneNumber)
.BusinessFaxNumber = FixFormatUSPhone(.BusinessFaxNumber)
.BusinessTelephoneNumber = FixFormatUSPhone(.BusinessTelephoneNumber)
.CallbackTelephoneNumber = FixFormatUSPhone(.CallbackTelephoneNumber)
.CarTelephoneNumber = FixFormatUSPhone(.CarTelephoneNumber)
.CompanyMainTelephoneNumber = FixFormatUSPhone(.CompanyMainTelephoneNumber)
.Home2TelephoneNumber = FixFormatUSPhone(.Home2TelephoneNumber)
.HomeFaxNumber = FixFormatUSPhone(.HomeFaxNumber)
.HomeTelephoneNumber = FixFormatUSPhone(.HomeTelephoneNumber)
.ISDNNumber = FixFormatUSPhone(.ISDNNumber)
.MobileTelephoneNumber = FixFormatUSPhone(.MobileTelephoneNumber)
.OtherFaxNumber = FixFormatUSPhone(.OtherFaxNumber)
.OtherTelephoneNumber = FixFormatUSPhone(.OtherTelephoneNumber)
.PagerNumber = FixFormatUSPhone(.PagerNumber)
.PrimaryTelephoneNumber = FixFormatUSPhone(.PrimaryTelephoneNumber)
.RadioTelephoneNumber = FixFormatUSPhone(.RadioTelephoneNumber)
.TelexNumber = FixFormatUSPhone(.TelexNumber)
.TTYTDDTelephoneNumber = FixFormatUSPhone(.TTYTDDTelephoneNumber)
.Save
nCounter = nCounter + 1
End With
End If
Next
MsgBox nCounter & " contacts processed.", vbInformation
End Sub
Private Function FixFormatUSPhone(Phone As String) As String
Phone = Trim(Phone)
FixFormatUSPhone = Phone
If Phone = "" Then Exit Function
Dim prefix As String
prefix = Left(Phone, 1)
' Configured for US
' Enter the correct prefix here
Do While (prefix = "+" Or prefix = "1")
' if the prefix is 2 digits, change to 4;
' if 3 digits, change to 5
Phone = Mid(Phone, 3)
prefix = Left(Phone, 1)
Loop
' After we clean up the country code, we remove non-numeric characters
' Can be tweaked to change formatting, ie: change 202.555.1212 to 202-555-1212
Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, ".", "")
Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "-", "")
FixFormatUSPhone = Phone
End Function
4. Basın F5 anahtarı veya tıklayın RuBu VBA'yı çalıştırmak için n düğmesine basın.
5. Ve sonra bir iletişim kutusu açılır ve size kaç kişinin işlendiğini gösterir, lütfen OK düğmesine basarak kapatın.
Şimdi, ülke kodunun tüm kişilerden her türlü telefon numarasından kaldırıldığını göreceksiniz. Ekran görüntüsüne bakın:
İlgili Makaleler
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.