Outlook дахь нэг хавтасны бүх дэд хавтаснаас нөгөө хавтас руу имэйлийг хэрхэн багцлан шилжүүлэх вэ

Магадгүй танд олон дэд хавтас байгаа хавтас байгаа байх. Хэрэв та эдгээр дэд хавтаснууд дахь бүх имэйлийг тодорхой хавтас руу хурдан зөөх гэх мэт доторх имэйлүүдийг дахин зохион байгуулахыг хүсвэл энэ нийтлэлд хуваалцсан аргыг ашиглаж болно.

Заримдаа та имэйлийг дахин ангилах гэх мэт зарим шалтгааны улмаас нэг фолдерын бүх дэд хавтаснаас өөр хавтас руу имэйлийг багцлан шилжүүлэх шаардлагатай болж магадгүй тул эдгээр дэд хавтаснууд цаашид ашиггүй болно. Энэ тохиолдолд эдгээр дэд хавтаснуудыг нэг нэгээр нь боловсруулах нь нэлээд төвөгтэй байдаг. Тиймээс бид танд өөр аргыг танилцуулах болно.

Нэг фолдерын бүх дэд хавтаснаас нөгөө хавтас руу имэйлийг багцаар нь шилжүүлэх

1. Хамгийн эхэнд Outlook програмаа эхлүүлээрэй.
2. Дараа нь Outlook-ийн үндсэн дэлгэцэн дээр "Alt + F11" товчийг дарснаар VBA засварлагч руу очно.
3. Дараа нь шинэ "Microsoft Visual Basic for Applications" цонхонд ашиглагдаагүй модулийг нээх хэрэгтэй.
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