Az Outlook PST-fájlban lévő összes e-mail kötegelt áthelyezése egy adott mappába VBA-n keresztül

Ha egy PST-fájlban lévő összes e-mailt át szeretné helyezni egy másik PST-fájl egy adott mappájába, használhatja az ebben a cikkben bemutatott módszert. Megtanítja, hogyan kell használni a VBA-t a gyors eléréshez.

Néha bizonyos okok miatt előfordulhat, hogy egy adott PST-fájlban lévő összes e-mailt át kell helyeznie egy másik PST-fájl egy adott mappájába. Ebben az esetben, ha manuálisan csinálja meg, az vitathatatlanul sok gondot okoz. Ezért itt megtanítunk egy gyors módszert, amely a VBA segítségével végigpörgeti egy bizonyos PST-fájl összes mappáját, és minden e-mailt áthelyez egy adott mappába. Olvasson tovább a bonyolult lépések és kódok eléréséhez.

Az Outlook PST-fájlban lévő összes e-mail kötegelt áthelyezése egy adott mappába

1. A legelején indítsa el az Outlook alkalmazást.
2. Ezután válthat a „Fejlesztő” fülre, és kattintson a „Visual Basic” gombra. Vagy nyomja meg az „Alt + F11” billentyűparancsokat.
3. Ezt követően a felugró VBA-szerkesztő ablakban nyisson meg egy használaton kívüli modult, vagy közvetlenül szúrjon be egy újat.
4. Következő másolja és illessze be a következő VBA-kódokat ebbe a modulba.

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

5. Ezt követően állítsa alacsonyra az Outlook makró biztonsági szintjét.
6. Végül futtathatja az új makrót az eszköztár „Futtatás” ikonjára kattintva vagy az „F5” billentyű megnyomásával.
7. Egyszerre, egy adott mappában lévő összes mappa összes e-mailje kötegenként átkerül az előre meghatározott mappába.

Mentse meg PST-adatait időben

Ha sajnos szenved PST sérülés, akkor mit fogsz csinálni? Általában az első gondolata az, hogy a lehető leghamarabb visszaszerezze a kompromittált PST-adatokat. Szokás szerint a legegyszerűbb módja a visszaállítás egy naprakész adatmentésből. Ha azonban az adatmentés több hetes, akkor haszontalan lehet. Ebben az esetben nincs más dolga, mint visszatérni egy hatékony helyreállítási eszközhöz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com