Bütün alt qovluqlar və elementləri olan bir Outlook qovluğunu Windows qovluğuna necə tez ixrac etmək olar

Bəzən bütün alt qovluqları və elementləri olan bir Outlook qovluğunu Windows qovluğuna toplu ixrac etmək istəyə bilərsiniz. Bu məqalə sizə Outlook VBA tətbiq edən belə bir üsulu öyrədəcək.

Outlook qovluğunu eyni qovluq strukturunda olan bütün elementlərlə yerli diskə ixrac etmək istədiyiniz zaman, saxlayıb əl ilə ixrac etməyi seçsəniz, bu, sizə çox vaxt aparacaq. Beləliklə, niyə hər hansı ixrac alətləri və ya VBA kodları kimi digər vasitələrə müraciət etmirsiniz? Burada biz sizə belə bir VBA kodunu təqdim edəcəyik. Bu sizə meh kimi nail olmağa imkan verəcək.

Outlook qovluğundakı bütün alt qovluqları və elementləri Windows qovluğuna ixrac edin

1. Ən başında, Outlook proqramınızı başladın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələri qısa yollarını basın.
3. Sonra "Proqramlar üçün Microsoft Visual Basic" pəncərəsi açılacaq.
4. Sonra boş bir modul açmalı və ona aşağıdakı VBA kodlarını kopyalamalısınız.

Private objFileSystem As Object
 
Private Sub ExportFolderWithAllItems()
    Dim objFolder As Outlook.Folder
    Dim strPath As String
 
    'Specify the root local folder
    'Change it as per your needs
    strPath = "E:\Outlook\"
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    'Select a Outlook PST file or Outlook folder
    Set objFolder = Outlook.Application.Session.PickFolder
 
    Call ProcessFolders(objFolder, strPath)
 
    MsgBox "Complete", vbExclamation
End Sub
 
Private Sub ProcessFolders(objCurrentFolder As Outlook.Folder, strCurrentPath As String)
    Dim objItem As Object
    Dim strSubject, strFileName, strFilePath As String
    Dim objSubfolder As Outlook.Folder
 
    'Create the local folder based on the Outlook folder
    strCurrentPath = strCurrentPath & objCurrentFolder.Name
    objFileSystem.CreateFolder strCurrentPath
 
    For Each objItem In objCurrentFolder.Items
 
        strSubject = objItem.Subject
 
        'Remove unsupported characters in the subject
        strSubject = Replace(strSubject, "/", " ")
        strSubject = Replace(strSubject, "\", " ")
        strSubject = Replace(strSubject, ":", "")
        strSubject = Replace(strSubject, "?", " ")
        strSubject = Replace(strSubject, Chr(34), " ")

        strFileName = strSubject & ".msg"
 
        i = 0
        Do Until False
           strFilePath = strCurrentPath & "\" & strFileName
           'Check if there exist a file in the same name
           If objFileSystem.FileExists(strFilePath) Then
              'Add a sequence order to the file name
              i = i + 1
              strFileName = strSubject & " (" & i & ").msg"
           Else
              Exit Do
          End If
        Loop
 
        'Save as MSG file
        objItem.SaveAs strFilePath, olMSG
    Next
 
    'Process subfolders recursively
    If objCurrentFolder.folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder, strCurrentPath & "\")
       Next
    End If
End Sub

5. Bundan sonra, Outlook-un makro parametrlərində makrolara icazə verdiyinə əmin olmalısınız.
6. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə yeni makro pəncərəsinə qayıdın.
• Sonra "ExportFolderWithAllItems" alt proqramına klikləyin.
• Sonra bu makronu işə salmaq üçün F5 düyməsini sıxın.
• Bundan sonra, müəyyən bir qovluq seçməlisiniz.
• Nəhayət, “Tamamlandı” mesajı aldığınız zaman əvvəlcədən təyin edilmiş yerli qovluğa daxil ola bilərsiniz. Bütün elementlərin eyni qovluq strukturunda saxlandığını görəcəksiniz.

Outlook qəzalarından məlumat itkisinin qarşısını alın

Bəlkə də, Outlook-un bir çox qəzaları ilə qarşılaşmısınız. Əksər hallarda, yenidən başladıqdan sonra Outlook normal işləyə biləcək. Bununla belə, PST faylımızın zədələnə biləcəyi hallar da var. Bu zaman PST məlumatlarınızı bərpa etmək üçün ən yaxşı şəkildə çalışacaqsınız, məsələn, təcrübəli bir alətə müraciət edin. DataNumen Outlook Repair. Bacarır Outlook-u düzəldin səhvləri aradan qaldırın və heç bir tərəddüd etmədən təhlükəyə məruz qalmış PST faylından məlumat çıxarın.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server təmir və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com