Làm cách nào để tự động điền chủ đề email với tên tệp đính kèm trong Outlook?
Đối với những người quen sử dụng tên tệp đính kèm làm chủ đề của email trong Outlook, việc nhập thủ công tên tệp đính kèm trong dòng chủ đề mỗi lần sẽ tốn nhiều thời gian. Như được hiển thị trong gif bên dưới, nếu bạn muốn tự động điền vào dòng tiêu đề email với tên tệp đính kèm khi bạn chèn tệp đính kèm, phương pháp VBA trong hướng dẫn này sẽ giúp bạn.
Tự động điền chủ đề email với tên tệp đính kèm với mã VBA
Vui lòng chạy mã VBA sau để tự động điền chủ đề email với tên của tệp đính kèm được chèn trong Outlook.
1. Khởi chạy Outlook của bạn, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp Dự án1 (VbProject.OTM) > Đối tượng Microsoft Outlook > ĐâyOutlookSession để mở ThisOutlookSession (Mã) biên tập viên.
3. Sau đó sao chép mã VBA sau vào ThisOutlookSession (Mã) biên tập viên.
Mã VBA: Tự động điền chủ đề email với tên tệp đính kèm
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Bây giờ bạn cần lưu mã và khởi động lại Outlook.
5. Từ bây giờ, khi bạn chèn tệp đính kèm vào email chưa điền chủ đề, Kutools cho Outlook hộp thoại sẽ bật lên hỏi bạn nếu bạn muốn sử dụng tên tệp đính kèm làm chủ đề, hãy nhấp vào Có .
Sau đó, dòng chủ đề sẽ được điền tên của tệp đính kèm được chèn tự động.
Chú ý:
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.