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ú ý:
Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!
- Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
- Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
- Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
- Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
- Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
