Outlook'taki kişilerin telefon numaralarından ülke kodunu nasıl kaldırılır?

Bir kişinin telefon numarasından ülke kodunu kaldırma

VBA ile kişilerin telefon numaralarından ülke kodunu kaldırma

Eğer yalnızca bir kişinin tek telefon numarasından ülke kodunu kaldırmak istiyorsanız, şu şekilde manuel olarak silebilirsiniz:

1. "Kişiler" (veya "Kontaklar") görünümünde, "Görünüm" > "Görünümü Değiştir" > "Telefon" seçeneğine tıklayın. Ekran görüntüsüne bakın:

2. Ülke kodunu kaldırmak istediğiniz kişinin telefon numarasını açmak için çift tıklayın.

3. Açılan Kişi penceresinde, "Telefon Numaraları" bölümündeki belirli telefon alanından artı işareti ve ülke kodunu kaldırın ve ardından "Kişi" > "Kaydet ve Kapat" seçeneğine tıklayın.

Şimdiye kadar, belirtilen telefon numarasından ülke kodu aşağıdaki gibi kaldırılmıştır:

Eğer Outlook'taki tüm kişilerin tüm telefon numaralarından ülke kodunu kaldırmak istiyorsanız, bunu kolayca gerçekleştirmek için bir VBA uygulayabilirsiniz.

1. "Kişiler" (veya "Kontaklar") görünümünde, tüm kişilerden ülke kodunu kaldırmak istediğiniz kişi klasörünü açın.

2. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına aynı anda basın.

3. "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu yeni açılan Modül betiğine yapıştırın.

VBA: Tüm kişilerin tüm telefon numaralarından ülke kodunu kaldırma

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)

Do While (prefix = "+" Or prefix = "1")
Phone = Mid(Phone, 3)
prefix = Left(Phone, 1)
Loop

Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, ".", "")
Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "-", "")

FixFormatUSPhone = Phone

End Function

4. VBA'yı çalıştırmak için "F5" tuşuna basın veya "Çalıştır" düğmesine tıklayın.

5. Daha sonra, kaç kişinin işlendiğini gösteren bir iletişim kutusu açılır. Lütfen kapatmak için "Tamam" düğmesine tıklayın.

Şimdi, tüm kişilerin her türlü telefon numarasından ülke kodlarının kaldırıldığını göreceksiniz. Ekran görüntüsüne bakın:

Outlook'ta günlüklerle telefon görüşmelerini takip etme

Outlook'ta telefon numarasına göre kişileri arama