Si të zhvendosni automatikisht artikujt në një dosje në dosjen e tij mëmë përpara se ta fshini atë në Outlook

Zgjidhjet e Outlook Shtator 29, 2025

Si parazgjedhje, në Outlook, kur fshini një dosje, artikujt e tij gjithashtu do të zhvendosen në dosjen "Artikuj të fshirë". Nëse dëshironi që Outlook t'i zhvendosë automatikisht artikujt në një dosje në dosjen e tij mëmë përpara se ta fshijë atë, mund të përdorni mjetet e përbashkëta në këtë artikull.

Kur fshini një dosje, Outlook do t'ju paralajmërojë se të gjitha përmbajtjet e saj do të zhvendosen edhe në dosjen "Artikujt e Fshirë". Por, shumicën e kohës, thjesht dëshironi ta fshini këtë dosje, pa përfshirë artikujt e ruajtur në të. Prandaj, shpresoni që artikujt të mund të zhvendosen automatikisht në dosjen mëmë të dosjes. Këtu do t'ju mësojmë se si ta realizoni këtë nëpërmjet VBA-së. Nëse nuk dini asgjë rreth VBA-së, mund të lexoni më parë artikullin tim të mëparshëm - ""Si të ekzekutoni kodin VBA në Outlook tuaj".Zhvendos automatikisht artikujt në një dosje në dosjen e tij mëmë përpara se ta fshini atë në Outlook

Zhvendosni automatikisht artikujt në një dosje në dosjen e tij mëmë përpara se ta fshini atë

  1. Për të filluar, hyni në redaktorin VBA të Outlook përmes "Alt + F11".
  2. Pastaj, në dritaren e re, hapni projektin "ThisOutlookSession".
  3. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm VBA në këtë 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

Kopjoni kodin në Projektin ThisOutlookSession

  1. Pas kësaj, ju mund të bëni një goditje tani.
  2. Në fillim, klikoni me të djathtën në nënfolderin që dëshironi të fshini.
  3. Më pas, nga menyja e kontekstit, zgjidhni opsionin "Fshija e dosjes [Smart]".Fshij inteligjente një dosje
  4. Menjëherë, Outlook do të fshijë dosjen dhe do t'i zhvendosë artikujt e saj në dosjen e saj mëmë.
  5. Në rastin tim, unë fshij nënfolderin "To Bob". Dosja e saj mëmë është "Artikuj të dërguar". Prandaj, të gjithë artikujt e tij janë zhvendosur te "Artikuj të dërguar", si pamja e mëposhtme e ekranit.Artikujt u zhvendosën automatikisht në dosjen prind

Mbani në mend se Outlook është i cenueshëm

Duhet të keni parasysh një fakt të padiskutueshëm – Outlook është i ndjeshëm ndaj gabimeve ose korrupsionit. Kështu, duhet të keni kujdes nga të gjitha kërcënimet e mundshme rreth skedarit tuaj të të dhënave Outlook, duke përfshirë virusin, daljen e pahijshme etj. Përveç kësaj, është më mirë të përgatisni një mjet të fuqishëm dhe të besueshëm të rregullimit të Outlook, si p.sh DataNumen Outlook Repair. Mund t'ju ndihmojë të rregulloni Outlook çështje brenda minutave

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.