Archívum mellékletek nélkül a VBA-tól

Archívum mellékletek nélkül a Kutools for Outlook segítségével

Ez a módszer bevezet egy VBA-t az összes melléklet törlésére az archiválandó megadott mappából, majd mellékletek nélkül is archiválhat. Kérjük, tegye a következőket:

1. Az Levél nézetben válassza ki az archiválni kívánt mappát, majd nyomja meg az gombot más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. Kattints betétlap > Modulok, majd illessze be a VBA alá az új modul ablakba.

VBA: Távolítsa el az összes mellékletet az Outlook kiválasztott levelezési mappájából

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3. megnyomni a F5 vagy kattintson a gombra futás gombot a kód futtatásához. Ezután az összes mellékletet azonnal eltávolítja a kiválasztott e-mail mappából.

4. Kattints filé > Info > Eszközök > Tisztítsa meg a régi elemeket (Vagy filé > Info > Tisztítási eszközök > Archív).

5. Az Archiválás párbeszédpanelen kattintson a másolt mappa kiemelésére, írja be MA a A régebbi elemek archiválása jelölőnégyzetet, majd kattintson a gombra Tallózás gomb. Lásd a képernyőképet:

6. Az Outlook adatfájlok megnyitása párbeszédpanelen nyissa meg azt a mappát, amelybe az archivált PST fájlt menteni kívánja, nevezze el a PST fájlt a Fájlnév jelölőnégyzetet, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

7. Most visszatér az Archívum párbeszédpanelen, kattintson a gombra OK gombra az archiválás befejezéséhez.
Eddig csatolmányok nélkül archiválta a levelezési mappát.

Ha telepítette a Kutools for Outlook programot, alkalmazhatja Válasszon le mindent funkcióval gyorsan törölheti az összes mellékletet az archiválni kívánt mappából, majd egyszerűen archiválhatja mellékletek nélkül.

1. Az Levél nézetben nyissa meg a megadott levélmappát, amelyet archivál, az összes e-mailt a gombbal válassza ki Ctrl + A gombra, majd kattintson a gombra Kutools > Válasszon le mindent. Lásd a képernyőképet:

2. A Válasszon mappát párbeszédpanelen kattintson a gombra Tallózás gomb  a mappa megadásához, amelybe a mellékletet menteni kívánja, adjon meg egy almappa stílust a hozzon létre almappákat a következő stílusban legördülő listából, majd kattintson a gombra Ok gomb. Lásd a képernyőképet:

3. kérem kattintson Igen gombot, és OK gombot egymás után a felbukkanó párbeszédpanelekben.

4. Kattintson tovább filé > Info > Eszközök > Tisztítsa meg a régi elemeket (Vagy filé > Info > Tisztítási eszközök > Archív).

5. Az Archiválás párbeszédpanelen kattintson, hogy kijelölje a megadott mappát, amelyet mellékletek nélkül archivál, írja be MA a A régebbi elemek archiválása jelölőnégyzetet, majd kattintson a gombra Tallózás gomb. Lásd a képernyőképet:

6. Az Outlook adatfájlok megnyitása párbeszédpanelen nyissa meg azt a mappát, amelybe az archivált PST fájlt menteni kívánja, nevezze el a PST fájlt a Fájlnév jelölőnégyzetet, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

7. Most visszatér az Archívum párbeszédpanelen, kattintson a gombra OK gombra az archiválás befejezéséhez.

Eddig a megadott e-mail mappát már mellékletek nélkül archiválta.

Hogyan archiválhatók automatikusan a mellékletek csak az Outlook programban?

Hogyan archiválhatjuk az e-maileket év / hónap / dátum szerint az Outlookban?