gelöschte Objekte Outlook 2002

2 Antworten

1. Antwort 1 Unbekannt schrieb am 10. Mai 2005 um 10:26

   öhm…….. im Vorteil ist der, der lesen kann….

   ok, hab schon im Forum gefunden, was ich brauche…sorry

   aber -> super Forum <- Gruß, Frank

2. Antwort 2 Unbekannt schrieb am 18. Juli 2005 um 14:48

   Outlook – Nach Löschdatum sortieren!

   Sub LoeschenMitDatum()
   \’Setzt ein Löschdatum und verschiebt die Mail in den Ordner \“Gelöschte Objekte\“
   \’Hierzu ist in der Formularansicht ein Feld \“GELÖSCHT\“ anzulegen.
   \’Damit es funktioniert, braucht man je nach Einstellung eine Signierung …
   \’Auf der Menüleiste sollte ein Button angelegt werden, der auf dieses Macro zugreit.
   \’Programmierung von GD

   On Error GoTo fehler

   Dim myOLApp As Variant
   Dim myFolder As Variant
   Dim myExplorer As Explorer
   Dim myitem As Variant
   Dim myPostfach As Variant
   Dim myProp As Variant
   Dim myDestFolder As Variant

   Set myOLApp = Application: \’MsgBox myOLApp: \‘ Outlook
   Set myExplorer = myOLApp.ActiveExplorer: \’MsgBox myExplorer: \‘ Posteingang
   Set myFolder = myExplorer.CurrentFolder: \’MsgBox myFolder: \‘ Posteingang

   \’Name der 1. ausgewählten Mail
   Set myitem = myExplorer.Selection.Item(1): \’MsgBox \“Aktuelle Mail: \“ & myitem

   \’Flag Status umsetzen, da sonst Fehlermeldung wenn noch nie gesendet
   \’olFlagComplete(1), olFlagMarked(2) oder olNoFlag
   If myitem.FlagStatus = 1 Then
   \’MsgBox \“Flagstatus wird umgestzt von Erledigt auf gekennzeichnet!\“
   myitem.FlagStatus = 2
   End If

   \’Übergeordnetes Postfach
   Set myPostfach = myFolder.Parent: \’MsgBox myPostfach: \‘ Postfach/Mailbox

   \’Zielordner festlegen
   Set myDestFolder = myPostfach.Folders(\“Gelöschte Objekte\“): \’MsgBox myDestFolder

   \’Mail anzeigen (ausgewählte)
   \’myitem.Display

   \’Sonstige Werte der Mail anzeigen
   \’MsgBox myitem.GetInspector
   \’MsgBox myitem.SentOn
   \’MsgBox myitem.To
   \’MsgBox myitem.EntryID
   \’MsgBox myitem.ConversationTopic
   \’MsgBox myitem.ExpiryTime
   \’MsgBox myitem.Body
   \’MsgBox myitem.ReminderTime
   \’MsgBox myitem.BillingInformation
   \’myitem.BillingInformation = \“XXX\“
   \’MsgBox myitem.BillingInformation

   \’Löschdatum setzen – Voher Propertie \“Gelöscht\“ wie im Formular anlegen!\“
   Set myProp = myitem.UserProperties.Add(\“GELÖSCHT\“, olText)
   myitem.UserProperties(\“GELÖSCHT\“) = Year(Date) & fillleft0(Month(Date), 2) & fillleft0(Day(Date), 2) & \“-\“ & fillleft0(Hour(Time), 2) & \“:\“ & fillleft0(Minute(Time), 2) & \“:\“ & fillleft0(Second(Time), 2)
   \’MsgBox myitem.UserProperties(\“GELÖSCHT\“)
   DoEvents
   myitem.Save: \’Wichtig – Auf jeden Fall die Mailänderung speichern!
   DoEvents

   \’Mail verschieben
   myitem.Move myDestFolder

   raushier:
   Exit Sub
   fehler:
   MsgBox Err.Description & vbLf & vbLf & \“Nur auf Mails anwendbar!\“
   Resume raushier
   End Sub

   Function fillleft0(text As String, Anz As Byte)
   Rem Links Auffüllen eines übergebenen Strings mit \“0\“,
   Rem damit die erforderliche Anzahl an Stellen belegt wird und
   Dim i As Byte
   For i = 1 To Anz – Len(text)
   text = \“0\“ & text
   Next i
   fillleft0 = text
   End Function