Outlook эхлүүлэх үед VBA-аар дамжуулан бүх хавтсыг хэрхэн автоматаар өргөжүүлэх вэ

Олон хэрэглэгчид Outlook програмаа ажиллуулахад бүх хавтас автоматаар өргөтгөгдөнө гэж найдаж байна. Үнэндээ Outlook үүнийг анхдагчаар дэмждэггүй. Тиймээс үүнийг хэрэгжүүлэхийн тулд та VBA кодыг ашиглах хэрэгтэй. Энэ бичлэг танд хурдан гарын авлага өгөх болно.

Та Outlook дээрх анхдагч фолдеруудын доор олон дэд хавтас үүсгэсэн байж магадгүй. Маш олон фолдер байгаа тул хүссэн үедээ хурдан хандахын тулд бүх фолдеруудыг байнга өргөтгөсөн байлгахыг хүсч магадгүй юм. Эхний алхам бол Outlook-г эхлүүлэх үед фолдеруудыг автоматаар өргөжүүлэх явдал юм. Мэдээжийн хэрэг, Outlook дээр ийм үндсэн функц байхгүй. Тиймээс та макро ашиглах хэрэгтэй. Цаашид бид танд VBA ашиглан үүнийг хэрхэн хийхийг заах болно. VBA-г хэрхэн ашиглах талаар та өөр нийтлэлээс лавлаж болно - "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".

Outlook эхлүүлэх үед бүх хавтсыг автоматаар өргөжүүлэх

1. Эхлэхийн тулд VBA засварлагч руу нэвтрэхийн тулд Outlook дээрх “Alt + F11” товчийг дарна уу.
2. Дараа нь шинэ цонхонд “ThisOutlookSession” төсөлд кодыг оруулна уу.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Үүний дараа VBA редакторыг хаах хэрэгтэй.
4. Дараа нь Outlook програмаас зөв гарна уу.
5. Дараа нь Outlook-оо эхлүүлнэ үү. Энэ үед макро автоматаар ажиллана.
6. Outlook ажиллаж эхэлсний дараа доорх зурагт үзүүлсэн шиг бүх хавтаснууд өргөжсөн болохыг та харж болно.

Бүх хор хөнөөлтэй макрогуудыг Бэй дээр байлга

Та сэжигтэй файлуудтай хавсаргасан эсвэл үл мэдэгдэх холбоосуудтай суулгагдсан имэйл хүлээж авсан уу? Ихэнхдээ ийм имэйлүүдтэй нүүр тулахдаа сэрэмжтэй байх хэрэгтэй. Тэд вирус тээж магадгүй гэдэгт та хэзээ ч битгий итгээрэй. Хавсралтыг татаж эсвэл холбоосыг нээсний дараа зөвхөн Outlook төдийгүй компьютер руу халдаж магадгүй юм. Тэр үед та заавал хийх ёстой Outlook програмыг засах файл. Хэрэв та шинэчлэгдсэн Outlook нөөцлөлтгүй эсвэл хүчирхэг сэргээх хэрэгслийг ашиглахгүй бол энэ нь нэлээд зангилаа байж магадгүй юм DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com