Nếu bạn có nhiều liên hệ trong Outlook của mình và muốn xuất chúng thành một tệp vCard duy nhất, thay vì các tệp riêng biệt, bạn có thể sử dụng phương pháp thông minh được giới thiệu trong bài viết này.
Chẳng hạn, bạn cần gửi hàng trăm địa chỉ liên hệ cho một số người khác. Thay vì gửi chúng dưới dạng các tệp vCard riêng biệt, bạn có thể muốn kết hợp chúng thành một tệp vCard duy nhất rồi gửi. Thực ra, bài báo trước của tôi – “Cách xuất nhiều danh bạ Outlook dưới dạng một tệp VCard” đã giới thiệu một phương pháp. Tuy nhiên, cách tiếp cận đó yêu cầu bạn phải có tài khoản Gmail và sử dụng tính năng “Nhập và Xuất” của Gmail. Tóm lại, đó là khá cồng kềnh. Vì vậy, ở đây chúng tôi sẽ giới thiệu một phương pháp tiện dụng hơn cho bạn.
Nhanh chóng xuất nhiều danh bạ sang một tệp vCard
- Trước hết, hãy khởi chạy ứng dụng Outlook của bạn.
- Sau đó, nhấn vào phím “Alt + F11” để truy cập trình chỉnh sửa VBA.
- Tiếp theo, trong cửa sổ mới, đặt mã VBA vào một mô-đun.
Sub ExportMultipleContactsIntoOneVCardFile()
Dim objSelection As Outlook.Selection
Dim strLocalDrive, strFolder As String
Dim i As Long
Dim objContact As Outlook.ContactItem
Dim strVCardFile As String
'Get all selected contacts
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not objSelection Is Nothing Then
'Save contacts in "E:\Temp Contacts\"
strLocalDrive = "E:"
strFolder = "Temp Contacts"
MkDir (strLocalDrive & "\" & strFolder & "\")
'Save all selected contacts as separate vCards
For i = objSelection.Count To 1 Step -1
If TypeName(objSelection(i)) = "ContactItem" Then
Set objContact = objSelection(i)
strVCardFile = strLocalDrive & "\" & strFolder & "\" & objContact.FullName & ".vcf"
objContact.SaveAs strVCardFile, olVCard
End If
Next
'Use cmd to merge all exported vCard files into one
Shell "cmd.exe /K" & strLocalDrive & " & CD " & strFolder & " & copy *.vcf MergedContact.vcf"
End If
End Sub
- Sau đó, thêm macro này vào Thanh công cụ truy cập nhanh với tham chiếu đến “Cách chạy mã VBA trong Outlook của bạn".
- Cuối cùng, bạn có thể thử macro này ngay bây giờ.
- Trước tiên, hãy chọn những liên hệ mà bạn muốn xuất.
- Sau đó, bấm vào nút macro trong Thanh công cụ truy cập nhanh.
- Sau đó, bạn sẽ thấy một cửa sổ nhắc lệnh, cửa sổ này cho biết rằng tất cả các liên hệ đã được hợp nhất thành một.
- Bây giờ, bạn có thể vào thư mục “E:\Temp Contacts” trong Windows Explorer.
- Trong thư mục cục bộ này, bạn sẽ tìm thấy tệp vCard có tên là “Liên hệ đã hợp nhất”, đây là tệp chứa tất cả các liên hệ đã chọn.
Sửa chữa dữ liệu Outlook của bạn sau sự cố
Vì Outlook dễ bị hỏng, bạn cần bảo quản tốt tệp PST của mình. Chẳng hạn, bạn cần tiếp tục đóng Outlook của mình theo đúng cách. Ngoài ra, bạn không nên nhấp vào các liên kết không xác định hoặc tải xuống các tệp đính kèm được nhúng trong email. Hơn nữa, tốt hơn bạn nên có được một PST sửa chữa tiện ích, chẳng hạn như DataNumen Outlook Repair. Với nó, ngay cả khi tệp Outlook của bạn bị hỏng, bạn vẫn có thể sửa chữa nó một cách dễ 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 hư hỏng SQL Server 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