Note: The other languages of the website are Google-translated. Back to English

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 .

Sau đó, dòng chủ đề sẽ được điền tên của tệp đính kèm được chèn tự động.

Chú ý:

1) Nếu bạn đã điền chủ đề, việc chèn tệp đính kèm sẽ không bật lên hộp thoại.
2) Nếu bạn xóa chủ đề hiện có khỏi email hiện tại nhưng con trỏ vẫn hiển thị trong dòng chủ đề, thì việc chèn tệp đính kèm cũng sẽ không hiển thị hộp thoại. Sau khi xóa chủ đề, bạn cần nhấp ra khỏi dòng chủ đề để làm mới hộp thông báo để làm cho mã hoạt động.
3) Nếu bạn chèn nhiều tệp đính kèm cùng một lúc, chỉ tên của tệp đính kèm đầu tiên có thể được sử dụng làm chủ đề của email.

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.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (6)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с Иалась из XNUMX и более файлов с Иалене и Làm thế nào bạn có thể làm điều đó với bạn? Заранее спасибо
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Александр,

Ý của bạn là thêm nhiều tệp đính kèm đồng thời thêm các tên tệp đính kèm đó vào chủ đề và sau đó liên kết chúng với AND?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Да. Например перетащил два файла và он их имена написал через И. Именно два файла, больше не надо.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đúng vậy. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Александр,

Mã VBA sau đây có thể giúp giải quyết vấn đề của bạn. Xin vui lòng cung cấp cho nó một thử.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL