Jika tugas Outlook berisi banyak lampiran, untuk mengekstrak dan menyimpannya ke folder lokal, secara umum, Anda harus menyimpannya satu per satu secara manual. Namun, dalam artikel ini, kami akan memperkenalkan metode untuk menyimpan semua lampiran sekaligus.
Terkadang, Anda mungkin menerima tugas yang ditugaskan dari orang lain. Dan tugas ini mungkin mengandung beberapa keterikatan penting di dalam tubuhnya. Untuk menghadapi tugas seperti itu, Anda mungkin perlu mengekstrak dan menyimpan lampiran ini ke folder Windows. Namun, tidak seperti email, Anda tidak dapat menyimpannya dalam batch secara default. Outlook hanya memungkinkan Anda untuk menyimpan satu per satu. Jelas sekali, akan terlalu membosankan jika ada terlalu banyak kemelekatan. Karenanya, di sini kami akan memperkenalkan cara agar Anda dapat menyelesaikan tugas ini secara massal.
Batch Simpan Semua Lampiran dalam Tugas ke Folder Windows
- Pertama-tama, luncurkan aplikasi Outlook.
- Kemudian, picu editor Outlook VBA dengan referensi ke "Cara Menjalankan Kode VBA di Outlook Anda".
- Selanjutnya, salin kode berikut ke modul yang tidak digunakan.
Sub BatchSaveAttachmentsFromTask () Redupkan objTask Sebagai Outlook.TaskItem Dim objShell, objWindowsFolder Sebagai Objek Dim strWindowsFolder Sebagai String Dim objAttachment Sebagai Outlook.Attachment Dim strFolder, strFilePath As String 'Dapatkan tugas Pilih Kasus Outlook.Application.ActiveWindow.ClassT olInspector ActiveInspector.CurrentItem Case olExplorer Set objTask = ActiveExplorer.Selection.Item (1) End Select 'Pilih folder Windows untuk menyimpan lampiran yang diekstraksi Set objShell = CreateObject ("Shell.Application") Atur objWindowsFolder = objShell.BrowseForFolder (0, "Pilih folder untuk menyimpan lampiran Tasks: ", 0," ") Jika Tidak objWindowsFolder Tidak Ada Lalu strWindowsFolder = objWindowsFolder.self.Path &" \ "Jika objTask.Attachments.Count> 0 Kemudian Untuk Setiap objAttachment Di objTask.Attachments strFilePath = strWindowsFolder & objAttachment.FileName objAttachment.SaveAsFile strFilePath Berikutnya Berakhir Jika Shell "Explorer.exe" & "" & strWindowsFolder, vbNormalFocus Akhiri Jika Akhiri Sub
- Selanjutnya, keluar dari editor VBA.
- Setelah itu, tambahkan makro ini ke pita atau Bilah Alat Akses Cepat.
- Akhirnya, Anda bisa mencobanya.
- Pertama, pilih atau buka tugas.
- Kemudian, klik tombol makro yang baru ditambahkan.
- Di kotak dialog popup, pilih folder Windows sesuai kebutuhan Anda.
- Setelah itu, klik "OK".
- Sekaligus, folder Windows akan ditampilkan, di mana Anda dapat menemukan lampiran yang diekstrak.
Atasi Masalah Outlook yang Mengganggu
Seperti yang kita semua tahu, file PST Outlook rentan terhadap berbagai kesalahan dan kerusakan. Misalnya, jika Anda sering menutup Outlook dengan tidak semestinya atau mengunduh file berbahaya, file PST Outlook Anda mungkin tidak dapat diakses suatu hari nanti. Pada saat itu, bahkan alat perbaikan kotak masuk tidak dapat membantu Anda. Apa yang dapat Anda gunakan adalah yang lebih berpengalaman dan dapat dipercaya Perbaikan PST perangkat lunak, seperti DataNumen Outlook Repair. Itu dapat mengekstrak data Outlook maksimum dari file PST dalam waktu cepat.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com