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

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

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

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

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

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

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

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

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

1. في طريقة عرض «الأشخاص» (أو «جهات الاتصال»)، افتح مجلد جهات الاتصال الذي ترغب في إزالة رمز الدولة من جميع جهات الاتصال الموجودة فيه.

2. اضغط معًا على مفتاحَي «Alt» + "F11" لفتح نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».

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