MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 20.09.2018, 10:55   #1
Michael861
Neuer Benutzer
Neuer Benutzer
Standard VBA - Abgelaufene E-Mails per Makro löschen

Hallo zusammen!

Hab mich ein wenig umgesehen und ein paar nützliche Outlook-VBA's gefunden.

U.a. nutze ich dieses Makro um E-Mails mit einem Verfallsdatum zu versehen:
Code:

Public Sub SetExpiryTime()
  Dim Sel As Outlook.Selection
  Dim obj As Object
  Dim Interval As Long
  Dim ExpiryTime As Date
  Dim Text$

  If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    Set obj = Application.ActiveInspector.CurrentItem

  Else
    Set Sel = Application.ActiveExplorer.Selection
    If Sel.Count = 0 Then
      Exit Sub
    Else
      Set obj = Sel(1)
    End If
  End If

  Select Case True
  Case (TypeOf obj Is Outlook.MailItem), _
    (TypeOf obj Is Outlook.MeetingItem), _
    (TypeOf obj Is Outlook.PostItem)

    ExpiryTime = obj.ExpiryTime
  End Select

  If ExpiryTime = #1/1/4501# Then
    Text = "-"
  Else
    Text = ExpiryTime
  End If

  Text = "Aktuelles Ablaufdatum: " & Text & vbCrLf & vbCrLf
  Text = Text & "In wieviel Wochen soll die Auswahl ablaufen?"
  Text = InputBox(Text, , "8")

  If Len(Text) Then
    Interval = Val(Text)

    If Interval Then
      ExpiryTime = DateAdd("ww", Interval, Date)
    Else
      ExpiryTime = #1/1/4501#
    End If

    If Not Sel Is Nothing Then
      For Each obj In Sel

        Select Case True
        Case (TypeOf obj Is Outlook.MailItem), _
          (TypeOf obj Is Outlook.MeetingItem), _
          (TypeOf obj Is Outlook.PostItem)

          obj.ExpiryTime = ExpiryTime
          obj.Save
        End Select
      Next

    Else
      Select Case True
      Case (TypeOf obj Is Outlook.MailItem), _
        (TypeOf obj Is Outlook.MeetingItem), _
        (TypeOf obj Is Outlook.PostItem)

        obj.ExpiryTime = ExpiryTime
        obj.Save
      End Select
    End If
  End If
End Sub
Nun wäre ich auf der Suche nach einem Makro, wo ich alle "abgelaufenen" E-Mails per Makro löschen kann.
Traumhaft wäre jetzt noch, wenn ich Unterordner miteinbeziehen könnte.

Die Autoarchiv-Funktion ist bei uns eingeschränkt.

Ich nutze MS Outlook 2013 mit MS Exchange unter Windows 10.

Danke schon mal für den ein oder anderen Denkanstoß ;-)

Schönen Gruß
Michael861
Michael861 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.09.2018, 08:43   #2
halweg
MOF Koryphäe
MOF Koryphäe
Standard

Die ExpiryTime ist die Eigenschaft "läuft ab" einer Mail (oder eines anderen Elementes). D. h., du kannst diese Zeit in tabellarischen Übersichten einblenden lassen , danach sortieren oder gruppieren. Du kannst sogar gruppenweise eine Ablaufzeit für viele Elemente auf einmal eintragen, ganz ohne Makro.
Weiterhin kannst du Suchordner einrichten, die alle Objekte mit der gewünschten Ablaufzeit (z. B. letzter Monat) aus mehreren Ordnern auflisten. Die Objekte lassen sich dann mit einem Mal löschen. Auch wiederum ohne Makro.

Automatisieren ließe sich das Ganze mit Regeln. Da Regeln nicht auf die Ablaufzeit zugreifen können, müsstest du dann aber das Kennzeichnungsfeld für die Ablaufzeit "missbrauchen".

Viele Grüße, Halweg

__________________

Windows 7, Windows 10, Office 2002, Office 2010
halweg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.09.2018, 11:23   #3
Michael861
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

@halweg:
Vielen Dank für deine Rückmeldung.

Das Makro für das Verfallsdatum finde ich eben ein bischen schneller.

Aber die Möglichkeit mit dem Suchordner ist perfekt. Das löst mein Problem und ist auch wirklich schnell und gut.

Thema für mich somit gelöst!

Schönen Gruß
Michael861
Michael861 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:13 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.