Làm cách nào để thay đổi hàng loạt tệp dưới dạng định dạng cho tất cả các liên hệ trong Outlook?
Nói chung, các tệp liên hệ được hiển thị dưới dạng Họ và Tên trong Outlook, nhưng làm cách nào bạn có thể nhanh chóng thay đổi hàng loạt các tệp liên hệ dưới dạng định dạng thành Công ty hoặc theo thứ tự khác như ảnh chụp màn hình bên dưới? Tùy chọn Mặc định thứ tự “Tệp dưới dạng” chỉ có thể hoạt động đối với liên hệ mới chứ không phải đối với những liên hệ đã tồn tại. Ở đây, tôi giới thiệu mã VBA để thay đổi hàng loạt tệp dưới dạng định dạng cho tất cả các liên hệ hiện có trong Outlook.
Tệp thay đổi hàng loạt đối với tất cả các liên hệ với VBA
Tệp thay đổi hàng loạt đối với tất cả các liên hệ với VBA
1. Chọn các số liên lạc bạn muốn thay đổi tệp, bấm Alt + F11 các phím để kích hoạt Microsoft Visual Basic for Applications cửa sổ.
2. Nhấp đúp vào ThisOutlookSession in Project-Project1 và sao chép và dán mã bên dưới vào tập lệnh trống.
VBA: Thay đổi tệp thành
Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
If xItem.Class = olContact Then
Set xContact = xItem
With xContact
If .CompanyName = "" Then
xFileAs = .FullName
Else
xFileAs = .CompanyName
End If
.FileAs = xFileAs
.Save
End With
End If
Next
End Sub
3. nhấn F5 để chạy mã, sau đó tất cả các liên hệ được chọn đã được thay đổi tệp thành công ty.
Lưu ý:
1. Trong mã, bạn có thể thay đổi CompanyName đến các trường khác mà bạn muốn hiển thị tệp dưới dạng.
2. Nếu không có thông tin công ty, nó sẽ hiển thị tên đầy đủ.
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.