Làm cách nào để liệt kê tất cả các tên phần đính kèm vào nội dung thư khi soạn email trong Outlook?

Có bất kỳ cách tốt nào để chúng tôi chèn tất cả tên tệp đính kèm vào nội dung thư khi soạn email trong Outlook không? Bài viết này, tôi sẽ nói về cách giải quyết công việc này trong Outlook.

Liệt kê tất cả các tên tệp đính kèm vào nội dung thư khi soạn email bằng mã VBA

Liệt kê tất cả các tên tệp đính kèm vào nội dung thư khi soạn email bằng một tính năng đơn giản

Liệt kê tất cả các tên tệp đính kèm vào nội dung thư khi soạn email bằng mã VBA

Vui lòng thực hiện theo các bước sau để hoàn thành tác vụ này:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Liệt kê tất cả các tên tệp đính kèm vào nội dung thư:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở, xem ảnh chụp màn hình:

Mã VBA: Liệt kê tất cả các tên tệp đính kèm vào nội dung thư:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. Và sau đó nhấp vào CÔNG CỤ > dự án trong Microsoft Visual Basic cho các ứng dụng cửa sổ, trong cửa sổ bật ra Tài liệu tham khảo-Dự án1 hộp thoại, kiểm tra Thư viện đối tượng Microsoft Word tùy chọn từ Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:

5. Nhấp chuột OK để thoát khỏi hộp thoại, sau đó bạn nên thêm nút macro vào Thanh công cụ truy cập nhanh. Trong cái mới Tin nhắn cửa sổ, chọn Các lệnh khác từ Tùy chỉnh thanh công cụ truy cập nhanh thả xuống, xem ảnh chụp màn hình:

6. Trong Tùy chọn Outlook hộp thoại, hãy thực hiện các thao tác sau:

(1.) Chọn Macros từ Chọn lệnh từ danh sách thả xuống;

(2.) Nhấp vào tên macro mà bạn đã chèn ngay bây giờ;

(3.) Và sau đó nhấp vào Thêm để thêm macro vào Tùy chỉnh thanh công cụ truy cập nhanh.

7. Sau đó nhấn vào OK để đóng hộp thoại, bây giờ, nút macro đã được chèn vào Thanh công cụ truy cập nhanh, xem ảnh chụp màn hình:

8. Bây giờ, khi bạn tạo thư mới và nhấp vào nút macro, tên tệp đính kèm sẽ được chèn phía trên nội dung thư như ảnh chụp màn hình sau:

Liệt kê tất cả các tên tệp đính kèm vào nội dung thư khi soạn email bằng một tính năng đơn giản

Có thể đoạn mã trên hơi khó để bạn áp dụng, nếu bạn có Kutools cho Outlook, Với khả Sao chép tên tính năng này, bạn có thể nhanh chóng sao chép tên tệp đính kèm của thư và dán chúng vào bất kỳ đâu bạn cần.

Sau khi cài đặt Kutools cho Outlook, hãy làm như sau:

1. Trước tiên, hãy tạo email mới bạn cần, sau đó nhấp vào Kutools > Sao chép tên trong cái mới Tin nhắn cửa sổ, xem ảnh chụp màn hình:

2. Và sau đó, một hộp nhắc sẽ bật ra để nhắc bạn tên tệp đính kèm đã được sao chép vào khay nhớ tạm, hãy xem ảnh chụp màn hình:

3. Bây giờ, bạn chỉ cần nhấn Ctrl + V các phím với nhau để dán tên tệp đính kèm vào nội dung thư bạn cần, xem ảnh chụp màn hình:

Các bài viết tương đối hơn:

---

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

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 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.

Tìm hiểu thêm       Tải xuống miễn phí      Mua