Paano I-save ang Batch Lahat ng Mga Attachment sa isang Gawain sa Outlook sa isang Windows Folder

Kung ang isang gawain sa Outlook ay naglalaman ng maraming mga kalakip, upang makuha at mai-save ang mga ito sa isang lokal na folder, sa pangkalahatan, kailangan mong i-save ang mga ito isa-isa nang manu-mano. Gayunpaman, sa artikulong ito, magpapakilala kami ng isang paraan upang mai-save ang lahat ng mga kalakip nang sabay-sabay.

Sa mga oras, maaari kang makatanggap ng isang gawain na itinalaga mula sa iba. At ang gawaing ito ay maaaring maglaman ng maraming mahahalagang kalakip sa katawan nito. Sa harap ng naturang gawain, maaaring kailangan mong kunin at i-save ang mga kalakip na ito sa isang folder ng Windows. Gayunpaman, hindi katulad ng email, hindi mo mai-save ang mga ito sa mga batch bilang default. Pinapayagan ka lamang ng Outlook na i-save isa-isa. Malinaw na, magiging nakakapagod kung maraming mga kalakip. Samakatuwid, dito magpapakilala kami ng isang paraan upang hayaan kang magawa ang gawaing ito nang maramihan.

Batch I-save ang Lahat ng Mga Attachment sa isang Gawain sa isang Windows Folder

1. Sa simula pa lang, ilunsad ang application ng Outlook.
2. Pagkatapos, i-trigger ang Outlook VBA editor na may sanggunian sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
3. Susunod, kopyahin ang sumusunod na code sa isang hindi nagamit na module.

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. Kasunod, lumabas sa editor ng VBA.
5. Pagkatapos nito, idagdag ang macro na ito sa Quick Access Toolbar o laso.
6. Sa paglaon, maaari kang magkaroon ng isang pagsubok.

• Una, pumili o magbukas ng isang gawain.
• Pagkatapos, i-click ang bagong idinagdag na pindutan ng macro.
• Sa popup dialog box, pumili ng isang folder ng Windows alinsunod sa iyong mga pangangailangan.
• Pagkatapos, i-click ang "OK".
• Kaagad, ipapakita ang folder ng Windows, kung saan maaari mong makita ang mga na-attach na attachment.

Makaya ang mga Nakagambalang Isyu ng Outlook

Tulad ng alam nating lahat, ang file ng Outlook PST ay madaling kapitan sa iba't ibang mga pagkakamali at katiwalian. Halimbawa, kung madalas mong isara nang hindi wasto ang iyong Outlook o mag-download ka ng anumang nakakahamak na mga file, ang iyong Outlook PST file ay maaaring hindi maa-access sa isang araw. Sa oras na iyon, kahit na ang tool sa pag-aayos ng inbox ay hindi makakatulong sa iyo. Ang maaari mong gamitin ay mas may karanasan at mapagkakatiwalaan Ayusin ang PST software, tulad ng DataNumen Outlook Repair. Maaari itong makuha ang maximum na data ng Outlook mula sa isang PST file sa mabilis na oras.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin SQL Server at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa