Si të zhvendosni emailet në grup nga të gjitha nëndosjet e një dosjeje në një dosje tjetër në Outlook

Ndoshta ju keni një dosje nën të cilën ka shumë nënfoldera. Nëse dëshironi të riorganizoni emailet në to, si p.sh. zhvendosja e shpejtë e të gjitha emaileve nga këto nën-dosje në një dosje specifike, mund të përdorni mënyrën e ndarë në këtë artikull.

Ndonjëherë, mund t'ju duhet t'i zhvendosni emailet në grup nga të gjitha nëndosjet e një dosjeje në një dosje tjetër për disa arsye, si për shembull dëshironi të riklasifikoni emailet, kështu që këto nën-dosje nuk janë më të dobishme. Në këtë rast, përpunimi i këtyre nëndosjeve një nga një është mjaft i mundimshëm. Prandaj, këtu do t'ju prezantojmë një mënyrë tjetër.

Lëvizni në grup emailet nga të gjitha nëndosjet e një dosjeje në një dosje tjetër

1. Që në fillim, nisni programin tuaj Outlook.
2. Më pas, në ekranin kryesor të Outlook, trokitni lehtë mbi butonat e tastit "Alt + F11", të cilat do t'ju sjellin te redaktuesi VBA.
3. Më pas, në dritaren e re "Microsoft Visual Basic për Aplikacione", duhet të hapni një modul që nuk është në përdorim.
4. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm VBA në këtë modul.

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Pas kësaj, ju mund të ekzekutoni këtë makro.

• Së pari, në këtë dritare makro, shtypni butonin "F5".
• Më pas, do t'ju kërkohet të zgjidhni një dosje burimi, nëndosjet e së cilës do të përpunohen.
• Pas kësaj, duhet të specifikoni dosjen e destinacionit në të cilën dëshironi të zhvendosni emailet.
• Më pas, kjo makro do të fillojë të funksionojë. Kur të përfundojë, do të merrni një mesazh që ju kërkon "Përfundo".
• Në fund të fundit, mund të hyni në dosjen e synuar. Do të shihni se të gjitha emailet e nën-dosjeve nën dosjen burimore kanë qenë atje.

Rivendos të dhënat e komprometuara të Outlook

Pavarësisht mburrjes me veçori të shumta, si klientët e tjerë të postës elektronike, Outlook ende nuk mund t'i shpëtojë as korrupsionit. Me gjithnjë e më shumë të dhëna të ruajtura, Outlook do të jetë gjithnjë e më i prirur ndaj gabimeve dhe dëmtimeve. Prandaj, ju duhet të mbani në dispozicion një mjet të fuqishëm riparimi, si p.sh DataNumen Outlook Repair. Është projektuar veçanërisht për të rregulloni Outlook çështjet. Kështu, ai mund të skanojë dhe të rivendosë skedarin e dëmtuar të Outlook me lehtësi të lehtë.

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ë rikuperimi mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datKanumen.com