Hapus kode negara dari nomor telepon kontak

Hapus kode negara dari nomor telepon kontak dengan VBA

Jika Anda hanya perlu menghapus kode negara dari salah satu nomor telepon kontak, Anda dapat menghapusnya secara manual sebagai berikut:

1. Dalam Konsultan Ahli (Atau kontak) tampilan, klik View > Ubah Tampilan > Nomor Hp / Telephone. Lihat tangkapan layar:

2. Klik dua kali untuk membuka kontak yang nomor teleponnya akan Anda hapus nomor negaranya.

3. Di jendela Kontak pembuka, hapus tanda plus dan kode negara dari telepon yang ditentukan di Nomor Telepon bagian, lalu klik Kontak > Simpan & Tutup.

Sejauh ini, kode negara telah dihapus dari nomor telepon yang ditentukan seperti gambar di bawah ini yang ditampilkan:

Jika Anda perlu menghapus kode negara dari semua nomor telepon semua kontak di Outlook, saya merekomendasikan VBA untuk menanganinya dengan mudah.

1. Dalam Konsultan Ahli (Atau kontak), buka folder kontak tempat Anda akan menghapus kode negara dari semua kontak.

2. tekan lain + F11 bersamaan untuk membuka jendela Microsoft Visual Basic for Applications.

3. klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke dalam skrip Modul pembuka yang baru.

VBA: Hapus kode negara dari semua nomor telepon dari semua kontak

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. tekan F5 atau klik Rutombol n untuk menjalankan VBA ini.

5. Dan kemudian sebuah kotak dialog muncul dan menunjukkan kepada Anda berapa banyak kontak yang telah diproses, silakan klik OK tombol untuk menutupnya.

Sekarang, Anda akan melihat kode negara telah dihapus dari semua jenis nomor telepon dari semua kontak. Lihat tangkapan layar:

Lacak panggilan telepon dengan jurnal di Outlook

Cari kontak dengan nomor telepon di Outlook