Cách tự động đánh dấu các từ khóa cụ thể từ các email đến trong Outlook
Trong Outlook, bạn có thể nhận được hàng trăm và hàng nghìn email mỗi ngày, bạn đã bao giờ muốn tự động đánh dấu một số từ khóa cụ thể từ các email đến chưa? Trong bài viết này, tôi giới thiệu mã VBA để tự động đánh dấu các từ khóa bạn chỉ định từ các email đến trong Outlook.
Tự động đánh dấu các từ khóa từ các email đến
Tự động đánh dấu các từ khóa từ các email đến
Không có chức năng tích hợp nào trong outlook có thể xử lý công việc này ngoại trừ VBA.
1. nhấn Alt + F11 chìa khóa để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Sau đó nhấp đúp vào ĐâyOutlookSession bên trái Dự án và sao chép và dán mã bên dưới vào cửa sổ mã mới.
VBA: Tự động đánh dấu từ khóa trong email đến
Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
If Item.Class <> olMail Then Exit Sub
AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
Dim xWord As Variant
Dim xHTMLBody As String, xStr As String
Dim xWordArr
On Error Resume Next
xWordArr = Array("Kutools", "Important") 'keyword
xHTMLBody = Mail.HTMLBody
For Each xWord In xWordArr
If InStr(xHTMLBody, xWord) > 0 Then
xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
xHTMLBody = Replace(xHTMLBody, xWord, xStr)
Mail.HTMLBody = xHTMLBody
End If
Next
Mail.Save
End SubMẹo: trong mã, bạn có thể thay đổi các từ khóa khi bạn cần trong tập lệnh này xWordArr = Mảng ("Kutools""Quan trọng") .
3. Sau đó lưu mã và quay lại Outlook ， trong Trang Chủ tab, nhấp vào Nội quy > Quản lý Quy tắc & Cảnh báo.
4. bên trong Quy tắc và Cảnh báo thoại, bấm Quy tắc mới Dưới Quy tắc e-mail tab, sau đó trong Trình hướng dẫn quy tắc thoại, bấm Áp dụng quy tắc về thư tôi nhận được.
5. nhấp chuột Sau > Sau > Có để chuyển đến hộp thoại thứ ba, hãy kiểm tra chạy một tập lệnh từ Step1 phần, sau đó nhấp vào một kịch bản in Step2 phần để kích hoạt Chọn tập lệnh hộp thoại, chọn mã này Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Nhấp chuột OK.
6. nhấp chuột Sau > Sau, trong hộp thoại cuối cùng, hãy đặt tên cho quy tắc này.
7. nhấp chuột Kết thúc > OK để hoàn thành quy tắc.
Từ bây giờ, các từ khóa bạn đã chỉ định sẽ tự động được đánh dấu trong các email đến.
Lưu hoặc xuất Nhiều email sang các tệp fomat khác (PDF / HTML / WORD / EXCEL) trong Outlook
|
| Đôi khi, bạn có thể muốn lưu hoặc xuất email vào một thư mục dưới dạng tệp định dạng khác, chẳng hạn như tệp PDF, Word hoặc Excel trong Outlook. Trong Outlook, không chức năng Lưu dưới dạng và Xuất nào có thể xử lý công việc này. Tuy nhiên, Kutools cho Outlook's Save as file tiện ích có thể xuất nhiều email vào một thư mục dưới dạng tệp với nhiều định dạng cùng một lúc. Nhấp để dùng thử miễn phí 45 ngày! |
 |
| Kutools cho Outlook: với hàng tá bổ trợ Outlook tiện dụng, dùng thử miễn phí không giới hạn trong 45 ngà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.
