Bagaimana cara menyimpan semua lampiran dari beberapa email ke folder di Outlook?
Mudah untuk menyimpan semua lampiran dari email dengan fitur Simpan Semua Lampiran bawaan di Outlook. Namun, jika Anda ingin menyimpan semua lampiran dari beberapa email sekaligus, tidak ada fitur langsung yang dapat membantu. Anda perlu berulang kali menerapkan fitur Simpan Semua Lampiran di setiap email hingga semua lampiran disimpan dari email tersebut. Itu memakan waktu. Pada artikel ini, kami memperkenalkan dua metode bagi Anda untuk menyimpan semua lampiran secara massal dari beberapa email ke folder tertentu dengan mudah di Outlook.
Simpan semua lampiran dari beberapa email ke folder dengan kode VBA
Beberapa klik untuk menyimpan semua lampiran dari beberapa email ke folder dengan alat yang luar biasa
Simpan semua lampiran dari beberapa email ke folder dengan kode VBA
Bagian ini menunjukkan kode VBA dalam panduan langkah demi langkah untuk membantu Anda menyimpan semua lampiran dengan cepat dari beberapa email ke folder tertentu sekaligus. Silakan lakukan sebagai berikut.
1. Pertama, Anda perlu membuat folder untuk menyimpan lampiran di komputer Anda.
Masuk ke Documents folder dan buat folder bernama "Lampiran". Lihat tangkapan layar:
2. Pilih email yang lampirannya akan Anda simpan, lalu tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. klik Menyisipkan > Modul untuk membuka Modul jendela, lalu salin salah satu kode VBA berikut ke jendela.
Kode VBA 1: Simpan lampiran secara massal dari beberapa email (simpan lampiran nama yang sama persis secara langsung)
Tips: Kode ini akan menyimpan lampiran nama yang sama persis dengan menambahkan angka 1, 2, 3 ... setelah nama file.
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 & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
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
Kode VBA 2: Simpan lampiran secara massal dari beberapa email (periksa duplikat)
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
Dim xYesNo As Integer
Dim xFlag As Boolean
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
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Catatan:
5. tekan F5 kunci untuk menjalankan kode.
Kemudian semua lampiran di email yang dipilih disimpan ke folder yang Anda buat di langkah 1.
Catatan: Mungkin ada a Microsoft Outlook kotak prompt muncul, silakan klik mengizinkan tombol untuk melanjutkan.
Simpan semua lampiran dari beberapa email ke folder dengan alat yang luar biasa
Jika Anda seorang pemula di VBA, di sini sangat merekomendasikan Simpan Semua lampiran kegunaan Kutools untuk Outook untukmu. Dengan utilitas ini, Anda dapat dengan cepat menyimpan semua lampiran dari beberapa email sekaligus hanya dengan beberapa klik di Outlook.
Sebelum menerapkan fitur tersebut, harap unduh dan instal Kutools for Outlook terlebih dahulu.
1. Pilih email yang berisi lampiran yang ingin Anda simpan.
Tip: Anda dapat memilih beberapa email yang tidak berdekatan dengan menahan Ctrl kunci dan pilih satu per satu;
Atau pilih beberapa email yang berdekatan dengan menahan perubahan kunci dan pilih email pertama dan yang terakhir.
2. klik Kutools >Alat Lampiran > Simpan semua. Lihat tangkapan layar:
3. Dalam Simpan Pengaturan dialog, klik untuk memilih folder untuk menyimpan lampiran, dan kemudian klik OK .
3. klik OK dua kali di kotak dialog popping up berikutnya, Kemudian semua lampiran di email yang dipilih disimpan dalam folder tertentu sekaligus.
Catatan:
- 1. Jika Anda ingin menyimpan lampiran di folder berbeda berdasarkan email, periksa Buat subfolder dengan gaya berikut kotak, dan pilih gaya folder dari drop-down.
- 2. Selain menyimpan semua lampiran, Anda dapat menyimpan lampiran dengan kondisi tertentu. Misal anda hanya ingin menyimpan lampiran file pdf yang nama filenya mengandung kata "Invoice", silahkan klik Advanced options tombol untuk memperluas kondisi, dan kemudian konfigurasikan seperti gambar di bawah ini yang ditampilkan.
- 3. Jika Anda ingin menyimpan lampiran secara otomatis saat email masuk, file Simpan Otomatis lampiran fitur dapat membantu.
- 4. Untuk melepaskan lampiran langsung dari email yang dipilih, file Lepaskan Semua lampiran fitur dari Kutools untuk Outlook dapat membantu Anda
Jika Anda ingin memiliki uji coba gratis (60 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Terkait artikel
Sisipkan lampiran di badan pesan email di Outlook
Biasanya lampiran ditampilkan di bidang Terlampir di email penulisan. Di sini tutorial ini memberikan metode untuk membantu Anda memasukkan lampiran dengan mudah di badan email di Outlook.
Unduh / simpan lampiran secara otomatis dari Outlook ke folder tertentu
Secara umum, Anda bisa menyimpan semua lampiran dari satu email dengan mengklik Lampiran> Simpan Semua Lampiran di Outlook. Tapi, jika Anda perlu menyimpan semua lampiran dari semua email yang diterima dan menerima email, idealnya? Artikel ini akan memperkenalkan dua solusi untuk mengunduh lampiran secara otomatis dari Outlook ke folder tertentu.
Cetak semua lampiran dalam satu / beberapa email di Outlook
Seperti yang Anda ketahui, ini hanya akan mencetak konten email seperti header, body saat Anda mengklik File> Print di Microsoft Outlook, tetapi tidak mencetak lampiran. Di sini kami akan menunjukkan kepada Anda cara mencetak semua lampiran dalam email yang dipilih dengan mudah di Microsoft Outlook.
Cari kata dalam lampiran (konten) di Outlook
Saat kita mengetik kata kunci di kotak Pencarian Instan di Outlook, ia akan mencari kata kunci di subjek email, badan, lampiran, dll. Tapi sekarang saya hanya perlu mencari kata kunci di konten lampiran saja di Outlook, tahu? Artikel ini memperlihatkan kepada Anda langkah-langkah mendetail untuk mencari kata-kata dalam konten lampiran di Outlook dengan mudah.
Simpan lampiran saat membalas di Outlook
Saat kami meneruskan pesan email di Microsoft Outlook, lampiran asli di pesan email ini tetap ada di pesan yang diteruskan. Namun, saat kami membalas pesan email, lampiran asli tidak akan dilampirkan di pesan balasan baru. Di sini kami akan memperkenalkan beberapa trik tentang menyimpan lampiran asli saat membalas di Microsoft Outlook.
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.