Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để lưu tệp đính kèm mà không cần mở email trong Outlook?

Bạn có thể thường xuyên phải lưu các tệp đính kèm từ các email đã nhận vào đĩa máy tính của mình. Thật dễ dàng để lưu một tệp đính kèm hoặc tất cả các tệp đính kèm từ một email, nhưng làm thế nào để lưu tệp đính kèm từ nhiều email cùng một lúc? Thông thường, bạn cần mở nhiều lần email và lưu các tệp đính kèm. Có bất kỳ thủ thuật nào để thoát khỏi các hoạt động lặp lại? Ở đây các phương pháp trong hướng dẫn này có thể giúp bạn.

Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng mã VBA
Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng một công cụ tuyệt vời


Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng mã VBA

Mã VBA dưới đây có thể giúp lưu tệp đính kèm từ một hoặc nhiều email cùng một lúc mà không cần mở email trong Outlook. Hãy làm như sau.

1. Chọn một email hoặc nhiều email mà bạn sẽ lưu các tệp đính kèm, bấm Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Mở rộng Đối tượng Microsoft Outlook thư mục, nhấp đúp vào ThisOutlookSession để mở và sau đó sao chép mã VBA bên dưới vào đó.

Mã VBA: Lưu tệp đính kèm mà không cần mở email

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. Nhấn nút F5 phím để chạy mã. Sau đó a Chọn thư mục cửa sổ bật lên, vui lòng chọn một thư mục để lưu các tệp đính kèm, sau đó nhấp vào OK .

Sau đó, tất cả các tệp đính kèm trong các email đã chọn sẽ được lưu vào thư mục đã chọn ngay lập tức.

Lưu ý: Tất cả các tệp đính kèm sẽ được tách ra khỏi email và giữ các liên kết đường dẫn lưu tương ứng trong nội dung email.


Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng một công cụ tuyệt vời

Nếu bạn là người mới trong VBA, phương pháp trong phần này sẽ là lựa chọn tốt cho bạn.

Ở đây giới thiệu Lưu tất cả tệp đính kèm tiện ích của Kutools cho Outlook cho bạn. Nếu bạn chỉ muốn lưu tệp đính kèm mà không tách khỏi các email đã chọn, tính năng Lưu tất cả tệp đính kèm có thể giúp bạn dễ dàng hoàn thành. Hãy làm như sau.
Trước khi áp dụng Kutools cho Outlook, vui lòng tải về và cài đặt nó trước hết.

1. Chọn các email có chứa các tệp đính kèm bạn sẽ lưu, nhấp vào Kutools > Công cụ đính kèmLưu tất cả.

2. bên trong Lưu các thiết lập hộp thoại, bạn cần:

  • 2.1) Trong Lưu (các) tệp đính kèm vào thư mục này phần, chọn một thư mục để lưu các tệp đính kèm;
  • 2.2) Lưu (các) tệp đính kèm theo kiểu bên dưới là tùy chọn để bạn tạo một thư mục con với kiểu certian để lưu các tệp đính kèm hoặc đổi tên các tệp đính kèm đã lưu bằng kiểu certian.
  • 2.3) Nhấp OK để bắt đầu lưu tất cả các tệp đính kèm từ các email đã chọn.

Lời khuyên: Với các cấu hình trên, tất cả các tệp đính kèm sẽ được lưu vào thư mục được chỉ định. Nếu bạn chỉ muốn lưu một số tệp đính kèm chứng nhận, chẳng hạn như chỉ lưu tệp PDF với từ "hóa đơn" chứng nhận trong tên tệp, bạn có thể định cấu hình các điều kiện bộ lọc như sau.  

  • Nhấn vào Tùy chọn cấp cao nút để mở rộng Điều kiện lọcs;
  • Chỉ định các điều kiện dựa trên nhu cầu của bạn.
    Lời khuyên: Ở đây tôi kiểm tra Tên tệp đính kèm hộp chứa và sau đó nhập "hóa đơn" vào hộp văn bản, sau đó chọn Kiểu đính kèm , nhập ".pdf" vào hộp văn bản.

3. Trong hộp thoại bật lên tiếp theo, hãy nhấp vào để tiếp tục.

Sau đó, các tệp đính kèm trong các email đã chọn sẽ được lưu vào thư mục được chỉ định cùng một lúc.

Lời khuyên: Để tách các tệp đính kèm khỏi các email đã chọn và chỉ để lại các siêu liên kết tệp đính kèm trong nội dung email, Tách tất cả các tệp đính kèm tính năng có thể giúp.

  Nếu bạn muốn dùng thử miễn phí (60 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Các bài liên quan

Tự động tải xuống / lưu tệp đính kèm từ Outlook vào một thư mục nhất định
Nói chung, bạn có thể lưu tất cả các tệp đính kèm của một email bằng cách nhấp vào Tệp đính kèm> Lưu Tất cả Tệp đính kèm trong Outlook. Nhưng, nếu bạn cần lưu tất cả các tệp đính kèm từ tất cả các email đã nhận và email đã nhận, thì có lý tưởng nào không? Bài viết này sẽ giới thiệu hai giải pháp để tự động tải xuống tệp đính kèm từ Outlook vào một thư mục nhất định.

Giữ tệp đính kèm khi trả lời trong Outlook
Khi chúng tôi chuyển tiếp một thư email trong Microsoft Outlook, các tệp đính kèm ban đầu trong thư email này vẫn còn trong thư được chuyển tiếp. Tuy nhiên, khi chúng tôi trả lời thư email, các tệp đính kèm ban đầu sẽ không được đính kèm trong thư trả lời mới. Ở đây chúng tôi sẽ giới thiệu một số thủ thuật về việc giữ các tệp đính kèm gốc khi trả lời trong Microsoft Outlook.

Tìm kiếm từ trong tệp đính kèm (nội dung) trong Outlook
Khi chúng tôi nhập một từ khóa vào hộp Tìm kiếm Tức thì trong Outlook, nó sẽ tìm kiếm từ khóa đó trong các chủ đề, nội dung, tệp đính kèm của email, v.v. Nhưng bây giờ tôi chỉ cần tìm kiếm từ khóa trong nội dung tệp đính kèm duy nhất trong Outlook, có ý kiến ​​gì không? Bài viết này chỉ cho bạn các bước chi tiết để dễ dàng tìm kiếm các từ trong nội dung phần đính kèm trong Outlook.


    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
     
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.