Kuinka siirtää kansiossa olevat kohteet automaattisesti emokansioon ennen sen poistamista Outlookista

Outlook-ratkaisut Syyskuu 29, 2025

Oletuksena Outlookissa, kun poistat kansion, myös sen kohteet siirretään Poistetut-kansioon. Jos haluat Outlookin siirtävän kansion kohteet automaattisesti vanhempaan kansioon ennen sen poistamista, voit käyttää tässä artikkelissa jaettuja keinoja.

Kun poistat kansion, Outlook varoittaa, että kaikki sen sisältö siirretään myös "Poistetut kohteet" -kansioon. Mutta useimmiten haluat vain poistaa tämän kansion, etkä sisällä olevia kohteita. Siksi toivot, että kohteet voidaan siirtää automaattisesti kansion pääkansioon. Tässä opetamme sinulle, miten se toteutetaan VBA:n avulla. Jos et tiedä mitään VBA:sta, voit ensin lukea edellisen artikkelini – "Kuinka suorittaa VBA-koodi Outlookissa".Siirrä kansiossa olevat kohteet automaattisesti emokansioon ennen niiden poistamista Outlookista

Siirrä kansiossa olevat kohteet automaattisesti emokansioon ennen sen poistamista

  1. Ensinnäkin, käytä Outlook VBA -editoria "Alt + F11" -toiminnolla.
  2. Avaa sitten uudessa ikkunassa “ThisOutlookSession” -projekti.
  3. Kopioi ja liitä seuraava VBA-koodi tähän projektiin.
'Display the macro in the context menu
Sub Application_FolderContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Folder As Outlook.Folder)
    Dim objCommandBarButton As Office.CommandBarButton
 
    Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
    With objCommandBarButton
         .Style = msoButtonIconAndCaption
         .Caption = "[Smart] Delete Folder"
         .FaceId = 1668
         .OnAction = "Project1.ThisOutlookSession.DeleteFolder_MoveItemsToParentFolder"
    End With
End Sub

Sub DeleteFolder_MoveItemsToParentFolder()
    Dim objCurrentFolder As Outlook.Folder
    Dim objParentFolder As Outlook.Folder

    Set objCurrentFolder = Outlook.ActiveExplorer.CurrentFolder
    Set objParentFolder = objCurrentFolder.Parent
    
    Dim i As Long
    'Move items to parent folder
    For i = objCurrentFolder.Items.Count To 1 Step -1
        objCurrentFolder.Items.Item(i).Move objParentFolder
    Next
 
    'Delete the current folder
    objCurrentFolder.Delete
End Sub

Kopioi koodi ThisOutlookSession-projektiin

  1. Sen jälkeen voit ottaa laukauksen nyt.
  2. Aluksi napsauta hiiren kakkospainikkeella poistettavaa alikansiota.
  3. Valitse sitten pikavalikosta vaihtoehto [Smart] Poista kansio.Smart Poista kansio
  4. Outlook poistaa kerralla kansion ja siirtää sen kohteet pääkansioonsa.
  5. Minun tapauksessani poistan "Bobille" -alikansion. Sen pääkansio on “Lähetetyt”. Siksi kaikki sen kohteet on siirretty Lähetetyt-kohteisiin, kuten seuraava kuvakaappaus.Kohteet siirretään automaattisesti vanhempien kansioon

Muista, että Outlook on haavoittuva

Sinun tulisi pitää mielessä kiistaton tosiasia - Outlook on altis virheille tai korruptiolle. Siksi sinun on varottava kaikkia mahdollisia uhkia Outlook-tiedostosi ympärillä, mukaan lukien virus, virheellinen poistuminen ja niin edelleen. Lisäksi sinun on parasta valmistaa tehokas ja uskottava Outlook-korjaustyökalu, kuten DataNumen Outlook Repair. Se voi auttaa sinua korjaa Outlook muutamassa minuutissa

Tekijän esittely:

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

Kommenttien lisääminen on estetty.