Archiv ohne Anhänge von VBA

Archiv ohne Anhänge von Kutools for Outlook

Mit dieser Methode wird ein VBA eingeführt, mit dem alle Anhänge aus dem angegebenen Ordner gelöscht werden, den Sie archivieren möchten. Anschließend können Sie ohne Anhänge archivieren. Bitte gehen Sie wie folgt vor:

1. In dem Mail Zeigen Sie den Ordner an, den Sie archivieren möchten, und drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie Insert > Modulund fügen Sie dann unter VBA in das neue Modulfenster ein.

VBA: Entfernen Sie alle Anhänge aus dem ausgewählten E-Mail-Ordner 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. Drücken Sie die F5 Taste oder klicken Sie auf Führen Sie Klicken Sie auf die Schaltfläche, um den Code auszuführen. Anschließend werden alle Anhänge sofort aus dem ausgewählten E-Mail-Ordner entfernt.

4. Klicken Sie Reichen Sie das > Info > Tools > Alte Gegenstände aufräumen (oder Reichen Sie das > Info > Bereinigungstools > Archiv).

5. Klicken Sie im Dialogfeld „Archivieren“, um den kopierten Ordner hervorzuheben, und geben Sie Folgendes ein HEUTE bestellen der Archivelemente älter als Feld, und klicken Sie dann auf Entdecken Taste. Siehe Screenshot:

6. Öffnen Sie im Dialogfeld „Outlook-Datendateien öffnen“ den Ordner, in dem Sie die archivierte PST-Datei speichern möchten, und benennen Sie die PST-Datei in Dateiname Feld, und klicken Sie dann auf OK Taste. Siehe Screenshot:

7. Nun kehren Sie zum Dialogfeld Archiv zurück und klicken auf OK Klicken Sie auf die Schaltfläche, um die Archivierung abzuschließen.
Bisher haben Sie den Mailordner ohne Anhänge archiviert.

Wenn Sie Kutools for Outlook installiert haben, können Sie es anwenden Alle abnehmen Funktion zum schnellen Löschen aller Anhänge aus dem angegebenen Ordner, den Sie archivieren möchten, und zum einfachen Archivieren ohne Anhänge.

1. In dem Mail Öffnen Sie die Ansicht, öffnen Sie den angegebenen E-Mail-Ordner, den Sie archivieren möchten, und wählen Sie alle E-Mails aus, indem Sie auf drücken Ctrl + A Tasten, und klicken Sie dann Kutoolen > Alle abnehmen. Siehe Screenshot:

2. Klicken Sie im Dialogfeld Bitte wählen Sie einen Ordner aus auf Entdecken Taste im nun erscheinenden Bestätigungsfenster nun wieder los.  Um den Ordner anzugeben, in dem Sie den Anhang speichern möchten, geben Sie einen Unterordnerstil an Erstellen Sie Unterordner im folgenden Stil Dropdown-Liste und klicken Sie auf Ok Taste. Siehe Screenshot:

3. bitte klicken Ja -Taste und OK Klicken Sie in den Popup-Dialogfeldern nacheinander auf die Schaltfläche.

4. Klicken Sie weiter Reichen Sie das > Info > Tools > Alte Gegenstände aufräumen (oder Reichen Sie das > Info > Bereinigungstools > Archiv).

5. Klicken Sie im Dialogfeld „Archivieren“ auf den angegebenen Ordner, den Sie ohne Anhänge archivieren möchten, und markieren Sie ihn. Geben Sie Folgendes ein: HEUTE bestellen der Archivelemente älter als Feld, und klicken Sie dann auf Entdecken Taste. Siehe Screenshot:

6. Öffnen Sie im Dialogfeld „Outlook-Datendateien öffnen“ den Ordner, in dem Sie die archivierte PST-Datei speichern möchten, und benennen Sie die PST-Datei in Dateiname Feld, und klicken Sie dann auf OK Taste. Siehe Screenshot:

7. Nun kehren Sie zum Dialogfeld Archiv zurück und klicken auf OK Klicken Sie auf die Schaltfläche, um die Archivierung abzuschließen.

Bisher haben Sie den angegebenen E-Mail-Ordner bereits ohne Anhänge archiviert.

Wie archiviere ich Anhänge automatisch nur in Outlook?

Wie archiviere ich E-Mails nach Jahr / Monat / Datum in Outlook?