Cara Batch Menyimpan Semua Lampiran dalam Tugas Outlook ke Folder Windows

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

1. Pertama-tama, luncurkan aplikasi Outlook.
2. Kemudian, picu editor Outlook VBA dengan referensi ke "Cara Menjalankan Kode VBA di Outlook Anda".
3. Selanjutnya, salin kode berikut ke modul yang tidak digunakan.

Sub BatchSaveAttachmentsFromTask()
    Dim objTask As Outlook.TaskItem
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objAttachment As Outlook.Attachment
    Dim strFolder, strFilePath As String

    'Get the task
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objTask = ActiveInspector.CurrentItem
           Case olExplorer
                Set objTask = ActiveExplorer.Selection.Item(1)
    End Select

    'Select a Windows folder for saving extracted attachments
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder to save Tasks' attachments:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       If objTask.Attachments.Count > 0 Then

          For Each objAttachment In objTask.Attachments
              strFilePath = strWindowsFolder & objAttachment.FileName
              objAttachment.SaveAsFile strFilePath
          Next
       End If

       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
    End If
End Sub

4. Selanjutnya, keluar dari editor VBA.
5. Setelah itu, tambahkan makro ini ke pita atau Bilah Alat Akses Cepat.
6. 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