Hogyan lehet automatikusan áthelyezni egy mappában lévő elemeket a szülőmappába, mielőtt törli őket az Outlook programban

Alapértelmezés szerint az Outlook programban, amikor töröl egy mappát, a benne lévő elemek is átkerülnek a „Törölt elemek” mappába. Ha azt szeretné, hogy az Outlook automatikusan áthelyezze egy mappa elemeit a szülőmappába a törlés előtt, használhatja a cikkben megosztott eszközöket.

Amikor töröl egy mappát, az Outlook figyelmeztet, hogy annak teljes tartalma is a „Törölt elemek” mappába kerül. De az esetek többségében egyszerűen csak ezt a mappát szeretné törölni, a benne tárolt elemeket nem. Ezért reméli, hogy az elemek automatikusan átkerülhetnek a mappa szülőmappájába. Itt megtanítjuk, hogyan valósíthatja meg ezt VBA-n keresztül. Ha nem tud semmit a VBA-ról, először elolvashatja az előző cikkemet – „A VBA kód futtatása az Outlookban".

Törlés előtt automatikusan helyezze át a mappában lévő elemeket a szülőmappába

1. Először nyissa meg az Outlook VBA szerkesztőjét az „Alt + F11” gombbal.
2. Ezután az új ablakban nyissa meg a „ThisOutlookSession” projektet.
3. Ezt követően másolja ki és illessze be a következő VBA-kódot ebbe a projektbe.

'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

4. Utána most már egy lövést kaphat.
5. Először kattintson a jobb gombbal a törölni kívánt almappára.
6. Ezután a helyi menüből válassza az „[Smart] Mappa törlése” lehetőséget.
7. Az Outlook azonnal törli a mappát, és áthelyezi az elemeket a szülőmappájába.
8. Az én példámban törlöm a „To Bob” almappát. Szülőmappája az „Elküldött tételek”. Ezért minden eleme átkerült az „Elküldött tételek” mappába, mint az alábbi képernyőképen.

Ne feledje, hogy az Outlook sebezhető

Tartson szem előtt egy megkérdőjelezhetetlen tényt – az Outlook érzékeny a hibákra vagy a korrupcióra. Ezért óvakodnia kell az Outlook adatfájlja körüli összes lehetséges fenyegetéstől, beleértve a vírusokat, a nem megfelelő kilépést és így tovább. Emellett jobb, ha készít egy hatékony és hiteles Outlook-javító eszközt, mint pl DataNumen Outlook Repair. Segíthet abban javítsa ki az Outlookot perceken belül problémák merülnek fel

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com