Kuinka erä tallentaa kaikki Outlook-tehtävän liitteet Windows-kansioon

Jos Outlook-tehtävä sisältää useita liitteitä, sinun on yleensä purettava ne yksitellen manuaalisesti, jotta voit purkaa ja tallentaa ne paikalliseen kansioon. Tässä artikkelissa esitämme kuitenkin menetelmän, jolla kaikki liitteet voidaan tallentaa kerralla.

Toisinaan saatat saada jonkun muun tehtävän. Ja tämä tehtävä voi sisältää useita tärkeitä liitteitä sen ruumiissa. Tällaisen tehtävän edessä saatat joutua purkamaan ja tallentamaan nämä liitteet Windows-kansioon. Toisin kuin sähköposti, et kuitenkaan voi tallentaa niitä oletusarvoisesti erissä. Outlook sallii sinun tallentaa vain yksi kerrallaan. On selvää, että on liian ikävää, jos liitetiedostoja on liian paljon. Näin ollen tässä esitellään tapa antaa sinun suorittaa tämä tehtävä irtotavarana.

Erä Tallenna kaikki tehtävän liitteet Windows-kansioon

1. Käynnistä Outlook-sovellus heti alusta.
2. Käynnistä sitten Outlook VBA -editori viittaamallaKuinka suorittaa VBA-koodi Outlookissa".
3. Kopioi seuraavaksi seuraava koodi käyttämättömään moduuliin.

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. Poistu sitten VBA-editorista.
5. Lisää tämän jälkeen tämä makro Pikakäynnistystyökaluriville tai nauhalle.
6. Lopulta voit kokeilla.

• Valitse ensin tai avaa tehtävä.
• Napsauta sitten vasta lisättyä makropainiketta.
• Valitse ponnahdusikkunassa Windows-kansio tarpeidesi mukaan.
• Napsauta sen jälkeen “OK”.
• Samanaikaisesti tulee näkyviin Windows-kansio, josta löydät puretut liitteet.

Selviytyä häiritsevistä Outlook-ongelmista

Kuten me kaikki tiedämme, Outlook PST-tiedosto on alttiina erilaisille virheille ja korruptiolle. Esimerkiksi, jos suljet Outlookin usein väärin tai lataat haitallisia tiedostoja, Outlook PST -tiedostosi saattaa olla jonain päivänä käyttämätön. Tuolloin edes postilaatikon korjaustyökalu ei voi auttaa sinua. Se, mihin voit turvautua, on kokeneempaa ja luotettavampaa PST-korjaus ohjelmisto, kuten DataNumen Outlook Repair. Se voi poimia enintään Outlook-datan PST-tiedostosta nopeasti.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com