Bagaimana Cara Menyimpan Hanya Lampiran Tertentu (Excel) Di Outlook?
Outlook menyediakan fitur Simpan Semua Lampiran untuk membantu Anda menyimpan semua lampiran dalam email ke folder tertentu sekaligus. Namun, jika Anda hanya ingin menyimpan jenis lampiran tertentu dalam satu atau beberapa email, seperti buku kerja Excel, dokumen Word, dan sebagainya, bagaimana cara mencapainya? Dalam tutorial ini, kami menyediakan dua metode untuk memecahkan masalah ini.
Simpan hanya lampiran format file tertentu di Outlook dengan kode VBA
Simpan dengan mudah hanya lampiran format file tertentu di Outlook dengan alat yang luar biasa
Simpan hanya lampiran format file tertentu di Outlook dengan kode VBA
Kode VBA berikut dapat membantu untuk menyimpan hanya lampiran format file tertentu dalam satu atau beberapa email yang dipilih ke folder tertentu. Silakan lakukan sebagai berikut.
1. Luncurkan Outlook Anda. Dalam daftar Mail, pilih satu atau beberapa email yang hanya ingin Anda simpan lampirannya dalam format file tertentu.
2. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela. Di jendela pembuka, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Simpan hanya lampiran tertentu dalam satu email atau beberapa email ke folder
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
xFilesSavePath = ""
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xExt = "." & xFSO.GetExtensionName(xFilePath)
xExtArr = VBA.Split(xExtStr, ",")
xS = VBA.Filter(xExtArr, xExt)
If UBound(xS) > -1 Then
xAttachment.SaveAsFile xFilePath
If xItem.BodyFormat <> olFormatHTML Then
xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub
3. klik Tools > Referensi, Dalam Referensi - Proyek dialog, periksa Runtime Microsoft Scripting kotak dan klik OK .
4. tekan F5 kunci untuk menjalankan kode. Di muncul keluar Jelajahi Folder kotak dialog, pilih satu folder untuk menyimpan lampiran.
5. Dan kemudian, klik OK, berikut ini Kutools untuk Outlook kotak dialog, masukkan ekstensi file dari lampiran yang akan Anda simpan ke dalam kotak teks dan klik OK.
Catatan: Untuk beberapa ekstensi file, Anda harus memisahkannya dengan koma.
Kemudian hanya lampiran tertentu yang disimpan.
Simpan dengan mudah hanya lampiran format file tertentu di Outlook dengan alat yang luar biasa
Jika Anda baru mengenal VBA, di sini kami menyarankan Anda untuk menggunakan Simpan Semua lampiran fitur dari Kutools untuk Outlook. Dengan fitur ini, Anda dapat dengan mudah menyimpan hanya lampiran dalam format file tertentu di Outlook.
1. Pilih email dari mana Anda hanya ingin menyimpan lampiran dalam format file tertentu.
2. klik Kutools > Alat Lampiran > Simpan semua.
3. Dalam Simpan Pengaturan kotak dialog, Anda perlu mengkonfigurasi sebagai berikut.
4. Sebuah kotak dialog muncul mengingatkan Anda jika Anda ingin menyimpan lampiran, klik OK untuk melanjutkan.
5. Kemudian kotak dialog lain muncul untuk memberi tahu Anda berapa banyak lampiran yang telah disimpan, klik OK .
Sekarang hanya lampiran format file tertentu yang disimpan.
Klik di sini untuk mengetahui lebih lanjut tentang fitur ini.
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Artikel terkait:
- Bagaimana cara menyimpan semua lampiran dari pesan email di Outlook?
- Bagaimana cara menghapus semua lampiran dari email di 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.