Outlook’ta kişilerin Telefon Numarası alanlarından ülke kodu nasıl kaldırılır?

Bir kişinin Telefon Numarası alanındaki ülke kodunu kaldırın

Kişilerin Telefon Numarası alanlarındaki ülke kodlarını VBA ile kaldırın

Yalnızca bir kişinin Telefon Numarası alanından ülke kodunu kaldırmak istiyorsanız, bunu aşağıdaki gibi manuel olarak silebilirsiniz:

1. «Kişiler» (veya «Kişi») 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 göz atın:

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

3. Açılan Kişi penceresinde, «Telefon Numarası» bölümündeki ilgili alandan artı işaretini ve ülke kodunu kaldırın; ardından «Kişi» > «Kaydet ve Kapat» seçeneğine tıklayın.

Bu aşamada, belirtilen Telefon Numarası alanından ülke kodu aşağıda gösterildiği gibi kaldırılmıştır:

Outlook’ta tüm kişilerin Telefon Numarası alanlarından ülke kodunu kaldırmak istiyorsanız, bunu kolayca gerçekleştirmek için bir VBA makrosu kullanabilirsiniz.

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

2. «Microsoft Visual Basic for Applications» penceresini açmak için aynı anda «Alt» + «F11» tuşlarına 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 Numarası alanları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 ya da «Çalıştır» düğmesine tıklayın.

5. Ardından, kaç kişinin işlendiğini gösteren bir iletişim kutusu açılır. Kapatmak için lütfen «Tamam» düğmesine tıklayın.

Şimdi, tüm kişilerin her türlü Telefon Numarası alanından ülke kodlarının kaldırıldığını göreceksiniz. Ekran görüntüsüne göz atın:

Outlook’ta günlüklerle telefon görüşmelerini izleyin

Outlook’ta kişileri Telefon Numarası göre arayın