كيفية إزالة رمز البلد من أرقام هواتف جهات الاتصال في Outlook؟
في نافذة جهة الاتصال ، عند النقر فوق ملف شركة/الصفحة الرئيسية/ رقم الفاكس/الجوال زر الحقل قبل أرقام الهواتف لتنشيط مربع الحوار التحقق من رقم الهاتف كما هو موضح أدناه ، ستتم إضافة رمز البلد قبل أرقام الهواتف تلقائيًا. لكن في بعض الأحيان قد لا يكون رمز الدولة ضروريًا على الإطلاق ، وتريد إزالته من جميع أرقام الهواتف ، فكيف يمكنك التعامل معه؟ جرب الحلول أدناه:
قم بإزالة رمز الدولة من رقم هاتف جهة اتصال
قم بإزالة رمز البلد من أرقام هواتف جهات الاتصال باستخدام VBA
- أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
- احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
- تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
- تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع
قم بإزالة رمز الدولة من رقم هاتف جهة اتصال
إذا كنت تحتاج فقط إلى إزالة رمز البلد من رقم هاتف واحد لجهة اتصال ، فيمكنك حذفه يدويًا على النحو التالي:
1. في ال مجتمع (أو معلومات الاتصال) عرض ، انقر فوق المزيد > تغيير العرض > الجوال. انظر لقطة الشاشة:
2. انقر نقرًا مزدوجًا لفتح جهة الاتصال التي ستزيل رقم الهاتف منها.
3. في نافذة جهة الاتصال الافتتاحية ، قم بإزالة علامة الجمع ورمز البلد من الهاتف المحدد في أرقام الهاتف ، ثم انقر فوق الاتصال > حفظ وإغلاق.
حتى الآن ، تمت إزالة رمز البلد من رقم الهاتف المحدد كما هو موضح أدناه في لقطة الشاشة:
قم بإزالة رمز البلد من أرقام هواتف جهات الاتصال باستخدام VBA
إذا كنت بحاجة إلى إزالة رمز البلد من جميع أرقام الهواتف لجميع جهات الاتصال في Outlook ، فإنني أوصي باستخدام VBA للتعامل معه بسهولة.
1. في ال مجتمع (أو معلومات الاتصال) ، افتح مجلد جهات الاتصال حيث ستزيل رمز البلد من جميع جهات الاتصال.
2. صحافة قديم + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications.
3. انقر إدراج > وحدة، ثم قم بلصق كود 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)
' 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. صحافة F5 مفتاح أو انقر فوق Ruزر n لتشغيل هذا VBA.
5. ثم يظهر مربع حوار ويظهر لك عدد جهات الاتصال التي تمت معالجتها ، يرجى النقر فوق OK زر لإغلاقه.
الآن ، سترى أنه قد تمت إزالة رمز البلد من جميع أنواع أرقام الهواتف من جميع جهات الاتصال. انظر لقطة الشاشة:
مقالات ذات صلة
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.