Office: (Office 365) Gelöscht-Ordner nach Datum leeren

Hallo Leute,

ich bin der neu hier.
Ich will meinen Ordner "Gelöschte Elemente" per Knopfdruck(Excel VBA) leeren.
Dazu habe ich folgenden Code gefunden:

Public Sub Geloeschte()
Dim Out As Outlook.Application
Dim OlNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olitem As Object
Dim i As Long
Set Out = New Outlook.Application
Set OlNS = Out.GetNamespace("MAPI")
Set olFolder = OlNS.GetDefaultFolder(olFolderDeletedItems)
For i = olFolder.Items.Count To 1 Step -1
Set olitem = olFolder.Items(i)
olitem.Delete
Next
Set Out = Nothing
Set OlNS = Nothing
Set olFolder = Nothing
Set olitem = Nothing
End Sub

Funktioniert auch.
Wie kriege ich es hin, nach Zeitplan zu löschen.
Z.B. Nur alles älter als 4Wochen. Also Date - 28

Zusatzfrage:
Wie kriege ich hier im Forum den Code als Code formatiert?

Danke und Gruß
Der Opa Dete

 

Moin GrandPa,
die Zusatzfrage mal als Erstes: Im Editor findest Du in der Symbolleiste von (nicht ganz) rechts beginnend zwei Pfeile, dann eine Diskette, gefolgt von einem Symbol für eine Textblatt. Das angeklickt eröffnet Dir vier Optionen ...
Das mache ich jetzt mal mit meinem Code als Lösung(? Bitte um Rückmeldung!) für Dein primäres Thema:

Code:

Public Sub Geloeschte()
    Dim Out As Outlook.Application
    Dim OlNS As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olitem As Object
    Dim i As Long
    Dim GrenzDatum As Date

    ' Setze das Grenzdatum auf heute minus 27 Tage ANPASSEN!!
    GrenzDatum = Date - 27

    Set Out = New Outlook.Application
    Set OlNS = Out.GetNamespace("MAPI")
    Set olFolder = OlNS.GetDefaultFolder(olFolderDeletedItems)

    ' Durchlaufe die Elemente rückwärts
    For i = olFolder.Items.Count To 1 Step -1
        Set olitem = olFolder.Items(i)

        ' Prüfe, ob das Element ein MailItem ist und ob es älter als 27 Tage ist
        If TypeOf olitem Is Outlook.MailItem Then
            If olitem.CreationTime < GrenzDatum Then
                olitem.Delete
            End If
        End If
    Next

    ' Aufräumen
    Set Out = Nothing
    Set OlNS = Nothing
    Set olFolder = Nothing
    Set olitem = Nothing
End Sub

Achja - um zu sehen, wie's denn nachher aussieht, gibt es im Editor unten den Button Weitere Einstellungen und dann auch eine Vorschau

Schöne Grüße!

 

Hallo Bastler,

Danke!
Ich habe

Code:

Dim olitem As Object

durch

Code:

Dim olitem As Outlook.MailItem

ersetzt.
Jetzt hat das "Ding" auch eine Intellisense.

Da ich keine so alten Mails mehr im Gelöscht-Ordner habe, habe ich das mal so probiert.

Code:

Debug.Print olitem.CreationTime

Es sind 5 Mail im Ordner, Debug zeigt aber nur eine von Heute an??

Gruß und schönes Wochende
дедушка

 

Moin Opa,
dass Du nur die eine Mail siehst, ist seltsam. Die Schleife geht rückwärts (weil gelöscht wird) durch alle Mails. Lass Dir mal

Code:

olFolder.Items.Count

per Debug.print ausgeben, bzw. setze den Debugger pro Mail. Vielleicht erklärt das etwas.
Grüße

 

Hallo Bastler,

von den 5 sind 4 gelöschte Kalendereinträge.
Sind vieleicht was anderes als ein MailItem.
Wenn das so ist, was sind sie dann?

Gruß
Opa Dete

 

Moin Opa,

dann ist doch alles perfekt! Du wolltest Mails löschen und Mails werden gelöscht. Willst Du die Kalender-Einträge auch loswerden, musst Du AppointmentItem bemühen.

Grüße

 

Hallo Bastler,

Hoch die Hände Wochenende

Probiere ich Montag.

 

ja ja diese Rentner ... Freitag 13:15 ->> Wochenende ...

 

Nix Rente
677 lfd. Tage
396 Arbeitstage.