Lưu tệp đính kèm từ nhiều email cùng một lúc trong Outlook?

Ai đó đã gửi cho tôi 200 email qua đêm, với một tập tin đính kèm tập tin. thở dài

Tôi đang mong đợi thêm 200 mỗi đêm trong ba đêm tiếp theo (các email đến từ máy chủ, vì vậy yêu cầu họ xử lý hàng loạt chúng là không thể).

Tệp đính kèm có tên tệp duy nhất, vậy có cách nào đơn giản để lưu tệp đính kèm khỏi toàn bộ nhóm email cùng một lúc không?

Tôi ghét phải mở từng email riêng lẻ, nhấp chuột phải, lưu, rửa, lặp lại ...

Tôi thành thạo VBA, rất thoải mái khi tạo macro Excel, vì vậy tôi có thể tưởng tượng nó tương đối dễ dàng để duyệt qua một thư mục nhất định cho tất cả các thư và lưu tệp đính kèm cho từng thư, nhưng tôi chưa viết macro Outlook trước đây, không quen với hệ thống phân cấp đối tượng.

OutlookAttachView của NirSoft có thể thực hiện việc này một cách dễ dàng, ngay cả từ dòng lệnh!

OutlookAttachView quét tất cả các thư được lưu trữ trong Outlook của bạn và hiển thị danh sách tất cả các tệp đính kèm mà nó tìm thấy. Bạn có thể dễ dàng chọn một hoặc nhiều tệp đính kèm và lưu tất cả chúng vào thư mục mong muốn, cũng như bạn có thể xóa các tệp đính kèm lớn không mong muốn chiếm quá nhiều dung lượng đĩa trong hộp thư của bạn. Bạn cũng có thể lưu danh sách tệp đính kèm vào tệp xml / html / text / csv.

OutlookAttachView là phần mềm miễn phí.

Bổ trợ phần mềm đính kèm Outlook :

Bổ trợ Outlook miễn phí để lưu và trích xuất tệp đính kèm, giảm kích thước tệp Outlook của bạn. Dễ sử dụng. Rất nhiều tính năng.

Dưới đây là một số tùy chọn với điều này.

Trang web của Sue Mosher http://slipstick.com là một tài nguyên tuyệt vời cho Outlook. Cô ấy cũng là một MVP của Microsoft.

Đối với các lập trình viên ngoài kia: Lưu tệp đính kèm vào ổ cứng và thay vào đó là Lưu và mở tệp đính kèm bằng VBA .

Đoạn mã sau hoạt động trong Outlook 2000 trở lên. Nó lưu các tệp đính kèm từ các tin nhắn được chọn nhưng không xóa các tệp đính kèm khỏi (các) tin nhắn.

Giáo dục

Sao chép và dán mã từ trang này vào dự án ThisOutlookSession của bạn.

Trong Outlook, nhấn Alt + F11 để mở trình soạn thảo VBA và mở rộng Đối tượng Microsoft Outlook sau đó nhấp đúp chuột vào ThisOutlookSession để mở nó trong ngăn chỉnh sửa và Ctrl + V để dán mã.

Để sử dụng nó, trước tiên bạn phải tạo một thư mục trong Tài liệu của tôi có tên OLAttachments (mã sẽ không tạo thư mục cho bạn). Sau đó chọn một hoặc nhiều tin nhắn và chạy macro để lưu tệp đính kèm. Bạn sẽ cần đặt bảo mật macro để cảnh báo trước khi bật macro hoặc ký macro. Bạn có thể thay đổi tên thư mục hoặc đường dẫn lưu tệp đính kèm bằng cách chỉnh sửa mã.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

Và nếu bạn không muốn lập trình: Công cụ quản lý tệp đính kèm cho Outlook

Sau khi tôi bị ném bom với e-mail từ một người nghĩ rằng nó là tốt đẹp để gửi cho tôi một tập tin chia RAR trong 30 mail, tôi đã sử dụng thành công kịch bản này VBA xuất bản bởi Microsoft gọi mAttachmentSaver.

Đầu tiên, bạn phải tải về kho lưu trữ chứa tập lệnh .

Điều quan trọng là các macro được kích hoạt. Trong Outlook 2010, bạn có thể làm điều đó bằng cách đi tới Tệp »Tùy chọn» Trung tâm tin cậy »Cài đặt trung tâm tin cậy» Cài đặt macro »Kích hoạt tất cả các macro» OK »OK . Sau đó, bạn cần khởi động lại Outlook. Đối với các phiên bản cũ hơn, nó nằm dưới Công cụ »Macro» Bảo mật .

Sau đó, làm theo các bước được nêu trong bài viết của TechCenter:

• Nhấn Alt+F11để mở VBE trong Outlook.

• Kéo mAttachmentSaver.bastệp vào Project Explorer (Nhấn Ctrl+Rnếu bạn không thể nhìn thấy tệp) hoặc qua Tệp >> Nhập tệp ... ( Ctrl+M).

  Chạy ExecuteSavingmacro để lưu tệp đính kèm.

• Quay trở lại Outlook UI và sau đó nhấn Alt+F8để mở cửa sổ Macro.

• Chọn ExecuteSavingtrong danh sách tên, rồi bấm vào nút Run (Vui lòng nhớ chọn (các) mục Outlook trước khi chạy macro này).

• Chọn một thư mục cụ thể để lưu tệp đính kèm từ hộp thoại Duyệt tìm thư mục , sau đó bấm vào nút OK .