كيفية إزالة رمز الدولة من أرقام هواتف جهات الاتصال في Outlook؟

إزالة رمز الدولة من رقم هاتف جهة اتصال

إزالة رمز الدولة من أرقام هواتف جهات الاتصال باستخدام VBA

إذا كنت بحاجة فقط إلى إزالة رمز الدولة من رقم هاتف واحد لجهة اتصال، يمكنك حذفه يدويًا على النحو التالي:

1. في عرض "الأفراد" (أو "جهات الاتصال")، انقر فوق "عرض" > "تغيير العرض" > "الهاتف". انظر لقطة الشاشة:

2. انقر مرتين لفتح جهة الاتصال التي تريد إزالة رمز الدولة من رقم هاتفها.

3. في نافذة جهة الاتصال المفتوحة، قم بإزالة علامة الجمع ورمز الدولة من حقل الهاتف المحدد في قسم "أرقام الهواتف"، ثم انقر فوق "جهة الاتصال" > "حفظ وإغلاق".

حتى الآن، تم إزالة رمز الدولة من رقم الهاتف المحدد كما هو موضح أدناه:

إذا كنت بحاجة إلى إزالة رمز الدولة من جميع أرقام هواتف جميع جهات الاتصال في Outlook، يمكنك تطبيق VBA للتعامل مع الأمر بسهولة.

1. في عرض "الأفراد" (أو "جهات الاتصال")، افتح مجلد جهة الاتصال حيث تريد إزالة رمز الدولة من جميع جهات الاتصال.

2. اضغط على مفتاحي "Alt" + "F11" معًا لفتح نافذة "Microsoft Visual Basic for Applications".

3. انقر فوق "إدراج" > "وحدة"، ثم الصق الكود البرمجي VBA التالي في نص الوحدة الجديدة المفتوحة.

VBA: إزالة رمز الدولة من جميع أرقام هواتف جميع جهات الاتصال

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. اضغط على "F5" أو انقر فوق زر "تشغيل" لتنفيذ VBA.

5. بعد ذلك، سيظهر مربع حوار ينبثق يُظهر عدد جهات الاتصال التي تم معالجتها. يرجى النقر فوق زر "موافق" لإغلاقه.

الآن، سترى أن رموز الدول قد تم إزالتها من جميع أنواع أرقام الهواتف لجميع جهات الاتصال. انظر لقطة الشاشة:

تتبع المكالمات الهاتفية باستخدام اليوميات في Outlook

البحث عن جهات الاتصال برقم الهاتف في Outlook