ausgelagert aus Emails im ausgewählten Ordner bis zu einem bestimmten Zeitpunkt komplett löschen ~VaporiZed
Hey Leute, ich hoffe ihr könnt mir helfen.
Ich verwende nahezu den gleichen Code
Der Code für die UserForm Zeile 10 bis 29 dient einfach nur dazu, dem User zu ermöglichen, ein Datum in eine Textbox einzugeben, die dann in der Variablen Datum gespeichert wird.
Als Datum gebe ich den 31.12.2021 ein. Das Datum wird korrekt gespeichert (per debug.print getestet)
Als Ordner wähle ich den Ordner "Test" aus. Auch dieser wird korrekt gespeicher.
Im Order Test befinden sich 2 Emails aus 2017 und 2020.
Leider steigt das Makro bei For Each (Zeile 33) Email In Ordner.Items aus und behandelt den With Email Block garnicht erst, sprint also direkt zu Zeile 41.
Das würde es aber doch nur tun, wenn die Emails nicht vorhanden wären, òder?
Danke im Voraus
Hey Leute, ich hoffe ihr könnt mir helfen.
Ich verwende nahezu den gleichen Code
Visual Basic-Quellcode
- Sub iDeleteEmails()
- Dim Ordner As Outlook.Folder
- Dim Ordnerloeschen As Outlook.Folder
- Dim Email As Outlook.MailItem
- Dim Objektloeschen As Outlook.MailItem
- Dim Datum As Date
- With UserForm1.Label1
- .Caption = "Bitte gib das Datum ein, bis zu dem du deine Emails löschen willst. Emails mit genau diesem Datum werden ebenfalls gelöscht."
- End With
- UserForm1.Show
- Load UserForm1
- With UserForm1.TextBox1
- If IsDate(.Text) Then
- .Text = CDate(.Text)
- Else
- MsgBox "Eingabe nicht korrekt!"
- Exit Sub
- End If
- End With
- With UserForm1
- Datum = CDate(UserForm1.TextBox1)
- Unload UserForm1
- End With
- On Error Resume Next
- Set Ordner = Application.Session.PickFolder
- For Each Email In Ordner.Items
- With Email
- If .ReceivedTime() < Datum Then
- .Delete
- End If
- End With
- Next Email
- Set Ordnerloeschen = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDeletedItems)
- For Each Objektloeschen In Ordnerloeschen.Items
- With Objektloeschen
- .Delete
- End With
- Next Objektloeschen
- End Sub
Der Code für die UserForm Zeile 10 bis 29 dient einfach nur dazu, dem User zu ermöglichen, ein Datum in eine Textbox einzugeben, die dann in der Variablen Datum gespeichert wird.
Als Datum gebe ich den 31.12.2021 ein. Das Datum wird korrekt gespeichert (per debug.print getestet)
Als Ordner wähle ich den Ordner "Test" aus. Auch dieser wird korrekt gespeicher.
Im Order Test befinden sich 2 Emails aus 2017 und 2020.
Leider steigt das Makro bei For Each (Zeile 33) Email In Ordner.Items aus und behandelt den With Email Block garnicht erst, sprint also direkt zu Zeile 41.
Das würde es aber doch nur tun, wenn die Emails nicht vorhanden wären, òder?
Danke im Voraus
