Simpan lampiran dari banyak email sekaligus di Outlook?

18

Seseorang mengirimi saya 200 email semalam, dengan satu lampiran file masing-masing. mendesah

Saya mengharapkan 200 lainnya setiap malam selama tiga malam berikutnya (email datang dari server, jadi meminta mereka untuk mengelompokkannya tidak mungkin).

Lampiran file memiliki nama file yang unik, jadi apakah ada cara mudah untuk menyimpan lampiran dari seluruh grup email sekaligus?

Aku benci harus membuka setiap email satu per satu, klik kanan, simpan, bilas, ulangi ...

Saya fasih dalam VBA, sangat nyaman membuat makro Excel, jadi saya bisa membayangkan seharusnya relatif mudah untuk menelusuri folder yang diberikan untuk semua pesan dan menyimpan lampiran untuk masing-masing, tapi saya belum menulis makro Outlook sebelumnya, tidak terbiasa dengan hirarki objek.

richardtallent
sumber

Jawaban:

14

OutlookAttachView dari NirSoft dapat melakukan ini dengan mudah, bahkan dari baris perintah!

OutlookAttachView memindai semua pesan yang tersimpan di Outlook Anda, dan menampilkan daftar semua file terlampir yang ditemukannya. Anda dapat dengan mudah memilih satu lampiran atau lebih dan menyimpan semuanya ke folder yang diinginkan, serta Anda dapat menghapus lampiran besar yang tidak diinginkan yang memakan terlalu banyak ruang disk di kotak surat Anda. Anda juga dapat menyimpan daftar lampiran ke file xml / html / text / csv.

teks alternatif

OutlookAttachView adalah freeware.

John T
sumber
Terima kasih atas utilitas ini. Dibantu dengan apa yang ingin saya lakukan pagi ini: unduh 99 lampiran pdf di kotak masuk saya.
Chaitanya MSV
6

Add-in Remover Outlook Attachment :

Free Outlook add-in untuk menyimpan dan mengekstraksi lampiran, mengurangi ukuran file Outlook Anda. Mudah digunakan. Banyak fitur.

gambar

harrymc
sumber
1
Ini tidak berfungsi di Outlook 2013. Add-in tidak ditemukan, dan tidak dikenali ketika saya mencoba memuatnya secara manual.
Milind R
3

Berikut ini beberapa opsi lainnya.

Situs Sue Mosher http://slipstick.com adalah sumber yang fantastis untuk Outlook. Ia juga seorang Microsoft MVP.

Untuk Anda pembuat kode di luar sana: Simpan Lampiran ke hard drive dan atau Simpan dan Buka Lampiran menggunakan VBA .

Kode berikut ini berfungsi di Outlook 2000 dan yang lebih tinggi. Ini menyimpan lampiran dari pesan yang dipilih tetapi tidak menghapus lampiran dari pesan.

...

Salin dan tempel kode dari halaman ini ke proyek ThisOutlookSession Anda.

Di Outlook, tekan Alt + F11 untuk membuka editor VBA dan memperluas Microsoft Outlook Objects kemudian klik dua kali pada ThisOutlookSession untuk membukanya di panel pengeditan dan Ctrl + V untuk menempelkan kode.

Untuk menggunakannya, Anda harus terlebih dahulu membuat folder di bawah Dokumen Saya bernama OLAttachments (kode tidak akan membuatnya untuk Anda). Kemudian pilih satu atau lebih pesan dan jalankan makro untuk menyimpan lampiran. Anda harus mengatur keamanan makro untuk memperingatkan sebelum mengaktifkan makro atau menandatangani makro. Anda dapat mengubah nama folder atau path tempat lampiran disimpan dengan mengedit kode.

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

Dan jika Anda tidak ingin memprogram: Alat Manajemen Lampiran untuk Outlook

Leptonator
sumber
Dalam kasus saya semua email saya memiliki baris subjek yang sama sehingga masing-masing file menimpa yang sebelumnya, meninggalkan saya dengan satu file tunggal. Perbaikan cepat dan kotor yang saya lakukan adalah dengan menambahkan nomor indeks sehingga setiap file dijamin unik, seperti ini: di bawah deklarasi saat ini tambahkan: Dim Index As Longdan baris berikutnya Index = 1 Ubah: strFile = strFolderpath & strFileke strFile = strFolderpath & Index & "_" & strFile dan sebelum "Next i" tambahkan:Index = Index + 1
Stax
0

Setelah saya dibom dengan e-mail dari seseorang yang berpikir itu bagus untuk mengirimkan saya split file RAR di 30 mail, Saya telah berhasil digunakan VBA script ini diterbitkan oleh Microsoft disebut mAttachmentSaver.

Pertama, Anda harus mengunduh arsip yang berisi skrip .

Penting bahwa makro diaktifkan. Di Outlook 2010, Anda dapat melakukannya dengan masuk ke File »Opsi» Pusat Kepercayaan »Pengaturan Pusat Kepercayaan» Pengaturan Makro »Aktifkan semua makro» OK »OK . Maka Anda perlu me-restart Outlook. Untuk versi sebelumnya, ada di bawah Alat »Makro» Keamanan… .

Kemudian, ikuti langkah-langkah yang diuraikan dalam artikel TechCenter:

  • Tekan Alt+F11untuk membuka VBE di Outlook.

  • Seret mAttachmentSaver.basfile ke Project Explorer (Tekan Ctrl+Rjika Anda tidak dapat melihatnya) atau melalui File >> Impor File ... ( Ctrl+M).

    Jalankan ExecuteSavingmakro untuk menyimpan lampiran.

  • Kembali ke Outlook UI, lalu tekan Alt+F8untuk membuka jendela Macro.

  • Pilih ExecuteSavingdi daftar nama, dan kemudian klik tombol Jalankan (Harap diingat untuk memilih item Outlook sebelum menjalankan makro ini).

  • Pilih folder tertentu untuk menyimpan lampiran dari kotak dialog Browse For Folder , dan kemudian klik tombol OK .

slhck
sumber