Làm cách nào để xóa mã quốc gia khỏi số điện thoại của các liên hệ trong Outlook?
Trong cửa sổ Liên hệ, khi bạn bấm vào Kinh doanh/Trang Chủ/Fax/di động nút trường trước số điện thoại để kích hoạt hộp thoại Kiểm tra số điện thoại như ảnh chụp màn hình dưới đây, mã quốc gia sẽ được thêm vào trước số điện thoại tự động. Tuy nhiên, đôi khi mã quốc gia có thể không cần thiết và bạn muốn xóa nó khỏi tất cả các số điện thoại, bạn có thể giải quyết như thế nào? Hãy thử các giải pháp dưới đây:
- Gửi email tự động với Auto CC / BCC, Tự động chuyển tiếp theo quy định; gửi Tự động trả lời (Vắng mặt) mà không cần máy chủ trao đổi...
- Nhận lời nhắc như Cảnh báo BCC khi trả lời tất cả khi bạn đang ở trong danh sách BCC và Nhắc nhở khi thiếu tệp đính kèm để quên các tệp đính kèm...
- Cải thiện hiệu quả email với Trả lời (Tất cả) kèm tệp đính kèm, Tự động thêm lời chào hoặc ngày và giờ vào chữ ký hoặc chủ đề, Trả lời nhiều emailhữu ích. Cảm ơn !
- Hợp lý hóa việc gửi email với Thu hồi email, Công cụ đính kèm (Nén tất cả, Tự động lưu tất cả...), Loại bỏ các bản saovà Báo cáo nhanhhữu ích. Cảm ơn !
Xóa mã quốc gia khỏi số điện thoại của một liên hệ
Nếu bạn chỉ cần xóa mã quốc gia khỏi một số điện thoại của một liên hệ, bạn có thể xóa thủ công như sau:
1. bên trong người (Hoặc Liên hệ) xem, nhấp vào Xem > Thay đổi góc nhìn > Điện thoại. Xem ảnh chụp màn hình:
2. Nhấp đúp để mở liên hệ có số điện thoại mà bạn sẽ xóa số quốc gia.
3. Trong cửa sổ Liên hệ đang mở, xóa dấu cộng và mã quốc gia khỏi điện thoại được chỉ định trong Số điện thoại và sau đó nhấp vào Liên hệ > Lưu & Đóng.
Cho đến nay, mã quốc gia đã bị xóa khỏi số điện thoại được chỉ định như ảnh chụp màn hình bên dưới:
Xóa mã quốc gia khỏi số điện thoại của các liên hệ bằng VBA
Nếu bạn cần xóa mã quốc gia khỏi tất cả các số điện thoại của tất cả các liên hệ trong Outlook, tôi khuyên bạn nên sử dụng VBA để xử lý dễ dàng.
1. bên trong người (Hoặc Liên hệ) xem, mở thư mục liên hệ nơi bạn sẽ xóa mã quốc gia khỏi tất cả các liên hệ.
2. nhấn Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.
3. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào tập lệnh Mô-đun mở mới.
VBA: Xóa mã quốc gia khỏi tất cả các số điện thoại của tất cả các liên hệ
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. nhấn F5 phím hoặc nhấp vào Runút n để chạy VBA này.
5. Và sau đó một hộp thoại bật ra và hiển thị cho bạn có bao nhiêu liên hệ đã được xử lý, vui lòng nhấp vào OK để đóng nó.
Bây giờ, bạn sẽ thấy mã quốc gia đã bị xóa khỏi tất cả các loại số điện thoại khỏi tất cả danh bạ. Xem ảnh chụp màn hình:
Bài viết liên quan
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.