Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip pašalinti šalies kodą iš "Outlook" kontaktų telefono numerių?

Kontaktų lange, spustelėję mygtuką verslas/Namai/faksas/Mobilus lauko mygtukas, kol telefono numeriai aktyvuos dialogo langą Tikrinti telefono numerį, kaip parodyta paveikslėlyje, šalies kodas bus pridėtas prieš telefono numerius automatiškai. Bet kartais šalies kodas gali būti nereikalingas ir norite pašalinti jį iš visų telefono numerių, kaip su juo galėtumėte spręsti? Išbandykite toliau pateiktus sprendimus:

Kutools for Outlook: 100 + nauji Išplėstiniai įrankiai "Outlook".
Office Tab: Įgalinti skirtukų redagavimą ir naršymą "Office", Just Like Chrome, Firefox, IE 8 / 9 / 10.
Klasikinis meniu: Grąžinkite senus meniu ir įrankių juostas į "Office 2007", "2010", "2013", "2016" ir "2019".

rodyklė mėlyna dešinė burbulasPašalinti šalies kodą iš telefono numerio

Jei jums reikia pašalinti šalies kodą iš vieno telefono numerio, galite jį rankiniu būdu ištrinti taip:

1. Viduje žmonės (Arba kontaktai) rodinys spustelėkite Vaizdas > Keisti vaizdą > Telefonas. Žr. Ekrano kopiją:

2. Dukart spustelėkite norėdami atidaryti kontaktą, kurio telefono numeriu pašalinsite šalies numerį.

3. Atsidariusiame "Kontaktai" langelyje pašalinkite pliuso ženklą ir šalies kodą iš nurodyto telefono Telefono numeriai skirsnyje, tada spustelėkite Kontaktai > Išsaugoti ir uždaryti.

Kol kas šalies kodas buvo pašalintas iš nurodyto telefono numerio, kaip parodyta paveikslėlyje:


rodyklė mėlyna dešinė burbulasPašalinti šalies kodą iš telefono numerių kontaktų su VBA

Jei jums reikia pašalinti šalies kodą iš visų "Outlook" kontaktų visų telefonų numerių, rekomenduoju VBA lengvai ją tvarkyti.

1. Viduje žmonės (Arba kontaktai), atidarykite kontaktų katalogą, kuriame pašalinsite šalies kodą iš visų kontaktų.

2. Paspauskite Kitas + F11 raktai vienu metu atidaryti "Microsoft Visual Basic for Applications" langą.

3. spragtelėjimas įsiuvas > Moduliai, tada įklijuokite žemiau VBA kodą į naują atidarymo modulio scenarijų.

VBA: Pašalinkite šalies kodą iš visų kontaktų telefonų numerių

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. Paspauskite F5 klavišą arba spustelėkite mygtuką Run mygtuką paleisti šį VBA.

5. Paskui pasirodo dialogo langas ir parodo, kiek kontaktų buvo apdorota, spustelėkite mygtuką OK mygtuką, kad jį uždarytumėte.

Dabar pamatysite, kad šalies kodas buvo pašalintas iš visų rūšių telefono numerių iš visų kontaktų. Žr. Ekrano kopiją:


rodyklė mėlyna dešinė burbulasSusiję straipsniai



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Richard · 1 months ago
    this works well, although i would like to understand how it works more as it puts brackets, where i dont really need then. I am in Australia.
    My other issue is that somehow, somewhere, it is reverting back to all having the country code