Archiveer zonder bijlagen door VBA

Archiveer zonder bijlagen door Kutools voor Outlook

Deze methode introduceert een VBA om alle bijlagen te verwijderen uit de opgegeven map die u wilt archiveren, en vervolgens kunt u archiveren zonder bijlagen. Ga als volgt te werk:

1. In de E-mailadres bekijken, selecteer de map die u wilt archiveren en druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA in het nieuwe modulevenster.

VBA: verwijder alle bijlagen uit de geselecteerde e-mailmap in 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. druk de F5 toets of klik op de lopen knop om de code uit te voeren. Vervolgens worden alle bijlagen onmiddellijk uit de geselecteerde e-mailmap verwijderd.

4. Klikken Dien in > Info > Tools > Ruim oude items op (of Dien in > Info > Cleanup Tools > Archief).

5. Klik in het dialoogvenster Archief om de gekopieerde map te markeren, typ VANDAAG in de Archiveer items ouder dan vak en klik vervolgens op het Blader knop. Zie screenshot:

6. Open in het dialoogvenster Outlook-gegevensbestanden openen de map waarin u het gearchiveerde PST-bestand wilt opslaan, geef het PST-bestand een naam in de Bestandsnaam vak en klik vervolgens op het OK knop. Zie screenshot:

7. Nu keert u terug naar het Archief dialoogvenster, klik dan op het OK knop om het archiveren te voltooien.
Tot nu toe hebt u de e-mailmap zonder bijlagen gearchiveerd.

Als u Kutools voor Outlook hebt geïnstalleerd, kunt u het toepassen Alles loskoppelen functie om snel alle bijlagen te verwijderen uit de opgegeven map die u wilt archiveren, en vervolgens eenvoudig zonder bijlagen te archiveren.

1. In de E-mailadres bekijken, open de opgegeven e-mailmap die u wilt archiveren, selecteer alle e-mails door op te drukken Ctrl + A toetsen en klik vervolgens op Kutools > Alles loskoppelen. Zie screenshot:

2. Klik in het dialoogvenster Selecteer een map op de Blader  Om de map op te geven waarin u de bijlage wilt opslaan, geeft u een submapstijl op uit de maak submappen in de volgende stijl vervolgkeuzelijst en klik op het Ok knop. Zie screenshot:

3. Klik alstublieft Ja knop en OK knop achtereenvolgens in de popping-dialoogvensters.

4. Ga verder met klikken Dien in > Info > Tools > Ruim oude items op (of Dien in > Info > Cleanup Tools > Archief).

5. Klik in het dialoogvenster Archief om de opgegeven map te markeren die u zonder bijlagen wilt archiveren, typ VANDAAG in de Archiveer items ouder dan vak en klik vervolgens op het Blader knop. Zie screenshot:

6. Open in het dialoogvenster Outlook-gegevensbestanden openen de map waarin u het gearchiveerde PST-bestand wilt opslaan, geef het PST-bestand een naam in de Bestandsnaam vak en klik vervolgens op het OK knop. Zie screenshot:

7. Nu keert u terug naar het Archief dialoogvenster, klik dan op het OK knop om het archiveren te voltooien.

Tot nu toe hebt u de opgegeven e-mailmap al zonder bijlagen gearchiveerd.

Hoe bijlagen automatisch alleen in Outlook archiveren?

Hoe e-mails archiveren op jaar / maand / datum in Outlook?