Kaip automatiškai perkelti elementus aplanke į pagrindinį aplanką prieš ištrinant juos programoje „Outlook“.

Pagal numatytuosius nustatymus programoje „Outlook“, kai ištrinate aplanką, jo elementai taip pat bus perkelti į aplanką „Ištrinti elementai“. Jei norite, kad „Outlook“ automatiškai perkeltų elementus aplanke į pirminį aplanką prieš jį ištrindama, galite naudoti šiame straipsnyje bendrinamas priemones.

Kai ištrinsite aplanką, „Outlook“ įspės, kad visas jo turinys taip pat bus perkeltas į aplanką „Ištrinti elementai“. Bet, most laiko, tiesiog norite ištrinti šį aplanką, neįskaitant jame saugomų elementų. Todėl tikitės, kad elementai gali būti automatiškai perkelti į aplanko pirminį aplanką. Čia mes išmokysime, kaip tai realizuoti per VBA. Jei nieko neišmanote apie VBA, pirmiausia galite perskaityti mano ankstesnį straipsnį – „Kaip paleisti VBA kodą „Outlook“.".

Prieš ištrindami, automatiškai perkelkite elementus aplanke į pagrindinį aplanką

1. Norėdami pradėti, pasiekite „Outlook VBA“ redaktorių naudodami „Alt + F11“.
2. Tada naujame lange atidarykite projektą „ThisOutlookSession“.
3. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį 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

4. Po to dabar galite pasimėgauti.
5. Pirmiausia dešiniuoju pelės mygtuku spustelėkite poaplankį, kurį norite ištrinti.
6. Tada kontekstiniame meniu pasirinkite parinktį „[Smart] Delete Folder“.
7. Iš karto „Outlook“ ištrins aplanką ir perkels jo elementus į pirminį aplanką.
8. Mano atveju aš ištrinu poaplankį „To Bob“. Jo pirminis aplankas yra „Išsiųstos prekės“. Todėl visi jo elementai buvo perkelti į „Išsiųstos prekės“, kaip ir toliau pateiktoje ekrano kopijoje.

Atminkite, kad „Outlook“ yra pažeidžiama

Turėtumėte turėti omenyje neabejotiną faktą – „Outlook“ gali atsirasti klaidų arba sugadinti. Taigi, jūs turite saugotis visų galimų grėsmių, susijusių su „Outlook“ duomenų failu, įskaitant virusus, netinkamą išėjimą ir pan. Be to, geriau paruoškite galingą ir patikimą „Outlook“ taisymo įrankį, pvz DataNumen Outlook Repair. Tai gali jums padėti pataisyti Outlook problemų per kelias minutes

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com