Sådan flytter du automatisk elementer i en mappe til dens overordnede mappe, før du sletter den i Outlook

Outlook-løsninger September 29, 2025

Som standard i Outlook, når du sletter en mappe, vil dens elementer også blive flyttet til mappen "Slettede elementer". Hvis du ønsker, at Outlook automatisk skal flytte elementerne i en mappe til dens overordnede mappe, før du sletter den, kan du bruge de midler, der er delt i denne artikel.

Når du sletter en mappe, vil Outlook advare dig om, at alt dens indhold også vil blive flyttet til mappen "Slettede elementer". Men det meste af tiden vil du blot slette denne mappe, inklusive de elementer, der er gemt i den. Derfor håber du, at elementerne automatisk kan flyttes til mappens overordnede mappe. Her vil vi lære dig, hvordan du gør det via VBA. Hvis du ikke ved noget om VBA, kan du først læse min tidligere artikel – “Sådan køres VBA-kode i din Outlook".Flyt automatisk elementer i en mappe til dens overordnede mappe, før du sletter den i Outlook

Flyt automatisk elementer i en mappe til dens overordnede mappe, før du sletter den

  1. Til at begynde med skal du få adgang til Outlook VBA-editor via “Alt + F11”.
  2. Åbn derefter projektet "ThisOutlookSession" i det nye vindue.
  3. Kopier og indsæt derefter følgende VBA-kode i dette projekt.
'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

Kopier kode til ThisOutlookSession Project

  1. Derefter kan du få et skud nu.
  2. Først skal du højreklikke på den undermappe, du vil slette.
  3. Vælg derefter "[Smart] Slet mappe" fra kontekstmenuen.Smart Slet en mappe
  4. På én gang vil Outlook slette mappen og flytte dens elementer til dens overordnede mappe.
  5. I mit tilfælde sletter jeg undermappen "Til Bob". Dens overordnede mappe er "Sendte elementer". Derfor er alle dens elementer blevet flyttet til "Sendte elementer", som det følgende skærmbillede.Elementer er automatisk flyttet til overordnet mappe

Husk, at Outlook er sårbart

Du bør huske en ubestridt kendsgerning - Outlook er modtagelig for fejl eller korruption. Derfor skal du passe på alle de potentielle trusler omkring din Outlook-datafil, inklusive virus, ukorrekt afslutning og så videre. Desuden må du hellere forberede et kraftfuldt og troværdigt Outlook-fixværktøj, f.eks DataNumen Outlook Repair. Det kan hjælpe dig med at rette Outlook problemer inden for få minutter

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.