Outlook sẽ hiển thị tất cả các email liên hệ ở định dạng tên hiển thị mặc định, cụ thể là “tên đầy đủ (địa chỉ email)”. Nếu không thích, bạn sẽ cần thay đổi thủ công mỗi khi tạo danh bạ mới. Bài viết này sẽ hướng dẫn bạn một cách nhanh chóng để thay đổi chúng hàng loạt với Outlook VBA.
Khi bạn tạo một liên hệ Outlook mới, sau khi bạn nhập tên đầy đủ và địa chỉ email, sau đó nhấp vào hộp “Hiển thị dưới dạng”, tên hiển thị mặc định sẽ được điền tự động, hiển thị như ảnh chụp màn hình sau:
Tên hiển thị email này sẽ tạo hiệu ứng khi bạn cần chọn danh bạ. Giống như hình bên dưới, 2nd cột “Tên hiển thị” tương ứng với thông tin trong trường “Hiển thị dưới dạng”.
Khi bạn muốn thay đổi định dạng tên hiển thị email, bạn phải thay đổi thủ công. Nhưng với sự trợ giúp của VBA, bạn có thể thay đổi hàng loạt định dạng tên hiển thị email của các liên hệ thành định dạng mong muốn của mình.
Thay đổi định dạng tên hiển thị email của tất cả các địa chỉ liên hệ của bạn theo lô
- Trước tiên, hãy khởi chạy Outlook và nhấn các nút phím “Alt + F11” để truy cập cửa sổ “Visual Basic”.
- Sau đó mở một mô-đun mới và sao chép các mã VBA sau vào đó.
Sub BatchChangeContactDisplayName()
Dim obApp As Application
Dim olContacts As Outlook.Items
Dim obj As Object
Dim oContact As Outlook.ContactItem
Dim strName As String
Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
For Each obj In olContacts
If TypeName(obj) = "ContactItem" Then
Set oContact = obj
With oContact
'Display name format: "fullname (company name)(email address)"
strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
.Email1DisplayName = strName
.Save
End With
End If
Next
End Sub
Mẹo bổ sung:
- Bạn có thể thay đổi thứ tự giữa “full name”, “company name” và “email address” theo sở thích của mình.
- Các ".Họ và tên” đề cập đến định dạng trong “Firstname Lastname”. Nếu bạn muốn hiển thị trong “Lastname Firstname”, hãy sử dụng “.LastNameAndFirstName" thay thế.
- Sau đó, sau khi dán mã VBA, bạn nên thêm macro mới vào Thanh công cụ truy cập nhanh. Làm theo các bước dưới đây:
- Đầu tiên, quay lại cửa sổ chính của Outlook và nhấn vào mũi tên xuống trong Thanh công cụ truy cập nhanh.
- Từ danh sách thả xuống, chọn “More Commands”.
- Sau đó, trong cửa sổ “Tùy chọn Outlook”, bạn nên chọn “Macro” trong hộp “Chọn lệnh từ”.
- Tiếp theo, chọn macro mục tiêu và nhấn nút “Thêm” ở giữa.
- Cuối cùng nhấp vào nút “OK”.
- Cuối cùng, bạn có thể quay lại thư mục liên hệ mặc định của mình. Nhấp vào nút macro trong Thanh công cụ truy cập nhanh. Sau đó, bạn có thể mở một số liên lạc để kiểm tra. Bạn sẽ thấy rằng định dạng tên hiển thị email đã được thay đổi.
Thoát khỏi mất dữ liệu Outlook
Như chúng ta đã biết, Outlook rất dễ bị lỗi, bị hỏng. Do đó, đây là một nhiệm vụ khó khăn để giữ cho dữ liệu Outlook được bảo vệ và ngăn ngừa mất dữ liệu. Vì vậy, bạn nên tạo bản sao lưu thường xuyên cho dữ liệu Outlook của mình, điều này sẽ đóng góp rất nhiều vào Phục hồi thiệt hại dữ liệu Outlook trong trường hợp Outlook gặp sự cố. Ngoài ra, điều cần thiết là phải có được một công cụ sửa chữa mạnh mẽ, chẳng hạn như DataNumen Outlook Repair. Nói chung, nó sẽ rất hữu ích nếu bản sao lưu không cập nhật hoặc không có tác dụng.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa SQL Server thiệt hại cơ sở dữ liệu mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm