Arkiv utan bilagor av VBA

Arkivera utan bilagor av Kutools för Outlook

Den här metoden kommer att introducera en VBA för att ta bort alla bilagor från den angivna mappen du ska arkivera, och sedan kan du arkivera utan bilagor. Gör så här:

1. I Post visa, välj mappen du ska arkivera och tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulerna, och klistra sedan in under VBA i det nya modulfönstret.

VBA: Ta bort alla bilagor från den valda e-postmappen i Outlook

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. tryck på F5 eller klicka på Körning knappen för att köra koden. Då tas alla bilagor bort från den valda e-postmappen omedelbart.

4. Klicka Fil > Info > verktyg > Städa upp gamla föremål (eller Fil > Info > Rengöringsverktyg > arkiv).

5. I dialogrutan Arkiv, klicka för att markera den kopierade mappen, skriv I DAG i Arkivera saker som är äldre än och klicka sedan på Bläddra knapp. Se skärmdump:

6. I dialogrutan Öppna Outlook-datafiler, öppna mappen där du ska spara den arkiverade PST-filen, namnge PST-filen i Filnamn och klicka sedan på OK knapp. Se skärmdump:

7. Nu återgår du till dialogrutan Arkiv, klicka på OK för att avsluta arkiveringen.
Hittills har du arkiverat e-postmappen utan några bilagor.

Om du har Kutools för Outlook installerat kan du använda det Lossa alla funktion för att snabbt ta bort alla bilagor från den angivna mappen du kommer att arkivera och sedan enkelt arkivera utan bilagor.

1. I Post visa, öppna den angivna e-postmappen du ska arkivera, välj alla e-postmeddelanden med att trycka ctrl + A och klicka sedan på Kutools > Lossa alla. Se skärmdump:

2. I dialogrutan Välj en mapp klickar du på Bläddra Knappen  för att ange vilken mapp du ska spara bilagan i, ange en undermappsstil från skapa undermappar i följande stil rullgardinsmenyn och klicka på Ok knapp. Se skärmdump:

3. var god klicka Ja knappen och OK knappen i tur och ordning i dialogrutorna som visas.

4. Fortsätt att klicka Fil > Info > verktyg > Städa upp gamla föremål (eller Fil > Info > Rengöringsverktyg > arkiv).

5. I dialogrutan Arkiv, vänligen klicka för att markera den angivna mappen som du ska arkivera utan bilagor, skriv I DAG i Arkivera saker som är äldre än och klicka sedan på Bläddra knapp. Se skärmdump:

6. I dialogrutan Öppna Outlook-datafiler, öppna mappen där du ska spara den arkiverade PST-filen, namnge PST-filen i Filnamn och klicka sedan på OK knapp. Se skärmdump:

7. Nu återgår du till dialogrutan Arkiv, klicka på OK för att avsluta arkiveringen.

Hittills har du redan arkiverat den angivna e-postmappen utan bilagor.

Hur arkiveras bilagor automatiskt bara i Outlook?

Hur arkiverar du e-postmeddelanden efter år / månad / datum i Outlook?