3 Cara Mengunduh semua Lampiran dari Outlook

Baca panduan ini untuk mempelajari semua cara

Sebagai pengguna profesional, mengunduh banyak lampiran dari email yang diterima di Outlook bisa jadi membosankan dan menghabiskan waktu.

Untungnya, Anda dapat dengan mudah mengunduh banyak lampiran dari satu email di Outlook sekaligus tanpa harus menekan tombol Simpan untuk masing-masing lampiran. Selain itu, Anda juga dapat mengunduh banyak lampiran yang ada di banyak email melalui solusi sederhana.

Jika Anda penasaran untuk mengetahui prosedur langkah demi langkah, tetaplah bersama kami saat kami memandu Anda melalui prosedur ini.

Bagaimana cara mengunduh semua lampiran dari email?

1. Menggunakan aplikasi desktop

1. Luncurkan Microsoft Outlook aplikasi di PC Windows Anda.
2. Cari dan buka email tersebut di panel baca tempat Anda mengunduh lampiran.
instagram story viewer
3. Beralih ke Lampiran bagian dari bilah menu atas, klik kanan salah satu lampiran file di bagian kanan, dan pilih Simpan semua lampiran di menu tarik-turun.
4. tekan Ctrl kunci dan pilih semua lampiran yang ingin Anda unduh di kotak dialog kecil yang terbuka.
5. tekan OKE tombol setelah memilih lampiran yang diperlukan.
6. Baru Simpan sebagai pop-up untuk menyimpan lampiran Anda akan terbuka. Jelajahi folder tempat Anda ingin menyimpan file lampiran dan tekan OKE tombol di kanan bawah untuk memulai unduhan lampiran.

Anda dapat dengan mudah mengunduh semua file yang dilampirkan ke email sekaligus daripada mengunduh setiap file satu per satu.

2. Menggunakan aplikasi web

1. Akses Aplikasi web Microsoft Outlook menggunakan browser web pilihan Anda dan berikan kredensial login Anda saat diminta untuk masuk.
2. Pilih Kotak masuk folder dari bilah menu kiri di Rumah bagian dari aplikasi web.
3. Klik dua kali email yang dimaksud untuk melihat konten email di jendela baru.
4. Klik Unduh semua tombol untuk mengunduh lampiran dalam bentuk file ZIP.
5. Pilih lokasi pengunduhan dan tekan OKE tombol jika Simpan sebagai kotak dialog terbuka.

Ini adalah metode langsung untuk mengunduh semua lampiran email dari satu email jika Anda lebih suka aplikasi web daripada aplikasi Outlook.

Bagaimana cara mengunduh semua lampiran dari beberapa email?

CATATAN

Anda dapat mencoba metode ini hanya jika menggunakan Outlook 2019, 2016, 2013, 2010, 2007, atau 2003.

1. Buat folder baru

1. Menggunakan Windows + e jalan pintas untuk meluncurkan File Explorer.
2. Arahkan ke Dokumen folder dari sidebar kiri.
3. Klik kanan di mana saja di bagian kanan dan pilih Baru diikuti oleh Map dari menu konteks.
4. Klik dua kali nama folder dan ganti namanya menjadi Lampiran.

2. Buat skrip VBA

1. Sekarang luncurkan aplikasi Outlook di PC Windows Anda.
2. Memilih Mengajukan pilihan lalu pilih Pilihan dari bilah sisi kiri.
3. Pilih Sesuaikan Pita dari panel kiri Opsi Kata jendela.
4. Pilih Pengembang pilihan di Tab Utama dan tekan Plus ikon untuk menambahkan mode Pengembang ke menu pita Outlook.
5. Tutup popup Opsi Word lalu pilih Mode pengembang diikuti oleh Dasar visual dari menu utama.
6. Pilih Proyek1 ditampilkan sebagai default dan kemudian pilih Menyisipkan diikuti oleh Modul untuk mengakses jendela Modul.
7. Sekarang salin dan tempel kode berikut ke Modul 1 dan tutup jendela.

Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -1 GCount = 0 xFilePath = xFolderPath & xAttachments.Item(i).FileName GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function 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

3. Jalankan skrip VBS

1. Beralih ke Mode pengembang lalu pilih Dasar visual dari pita Outlook.
2. Pilih Modul 1 dan tekan F5 kunci untuk menjalankan kode.
3. Klik Simpan Lampiran tombol setelah memilih lampiran untuk mengonfirmasi tindakan.

Skrip VBA memungkinkan Anda mengotomatiskan proses pengunduhan lampiran di Microsoft Outlook. Namun, Anda harus melanjutkan dengan hati-hati dengan skrip VBA untuk menghindari kerusakan pada komputer Anda.

Itu saja dalam panduan ini! Semoga Anda mengetahui berbagai cara agar Anda dapat dengan mudah mengunduh semua lampiran email dari aplikasi Microsoft Outlook.

Jika Anda mengalami Terjadi kesalahan kesalahan di Outlook app, coba solusi yang disarankan dalam panduan ini.

Jika Anda memiliki pertanyaan, atau Anda tahu tentang metode lain, beri tahu kami di bagian komentar.