Электрондық поштаны Outlook бағдарламасында бір қалтаның барлық ішкі қалталарынан екінші қалтаға жылжыту әдісі

Мүмкін сізде көптеген ішкі қалталар бар папка бар шығар. Егер сіз олардағы электрондық пошталарды қайта ұйымдастырғыңыз келсе, мысалы, барлық электрондық пошталарды осы ішкі қалталардан белгілі бір қалтаға жылдам жылжыту сияқты болсаңыз, онда сіз осы мақалада бөліскен әдісті пайдалана аласыз.

Кейде сізге кейбір себептер бойынша электрондық поштаны бір қалтаның барлық ішкі қалталарынан екінші қалтаға жылжыту қажет болуы мүмкін, мысалы, электрондық поштаны қайта жіктегіңіз келеді, сондықтан бұл ішкі қалталар енді пайдасыз болады. Бұл жағдайда ішкі қалталарды бір-бірлеп өңдеу өте қиынға соғады. Сондықтан, міне, сізді тағы бір жолмен таныстырамыз.

Пакеттік электрондық пошталарды бір қалтаның барлық ішкі қалталарынан екінші қалтаға жылжыту

1. Ең басында Outlook бағдарламаңызды іске қосыңыз.
2. Содан кейін негізгі Outlook экранында сізді VBA редакторына әкелетін «Alt + F11» батырмаларын түртіңіз.
3. Содан кейін, жаңа «Қосымшаларға арналған Microsoft Visual Basic» терезесінде сізге пайдаланылмаған модульді ашу керек.
4. Кейіннен келесі модульге VBA кодын көшіріңіз және қойыңыз.

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. Осыдан кейін сіз осы макросты іске қоса аласыз.

• Біріншіден, осы макро терезеде «F5» батырмасын басыңыз.
• Содан кейін, ішкі қалталары өңделетін бастапқы қалтаны таңдау қажет болады.
• Осыдан кейін электрондық поштаны жылжытқыңыз келетін тағайындалған қалтаны көрсетуіңіз керек.
• Кейіннен бұл макрос жұмыс істей бастайды. Ол аяқталған кезде, сіз «Аяқталды» деген хабарлама аласыз.
• Түптеп келгенде, сіз мақсатты қалтаға кіре аласыз. Бастапқы қалтаның астындағы ішкі қалталардың барлық электрондық пошталары сол жерде екенін көресіз.

Outlook деректерін қалпына келтіріңіз

Электрондық поштаның басқа клиенттері сияқты көптеген мүмкіндіктерге қарамастан, Outlook әлі де сыбайластықтан құтыла алмайды. Деректердің көбірек сақталуымен Outlook қателіктер мен бұзылуларға бейім бола бастайды. Сондықтан сізге күшті жөндеу құралын ыңғайлы ұстау қажет DataNumen Outlook Repair. Бұл әсіресе арналған Outlook бағдарламасын түзетіңіз мәселелер. Осылайша ол зақымдалған Outlook файлын қарапайымдылықпен қалпына келтіре алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз www.datKanumen.com