Hallo Zusammen,
Ich bin auf der Suche nach einem Makro der das Erhalten-Datum und den Namen (am besten nur den Nachnamen) des Absenders (also Von) in den Betreff vor dem eigentlichen Betreff-Thema kopiert.
Bsp. im Falle einer geöffneten email vor der Makro-Anwendung:
Von: Müller, Peter Gesendet: Fr 19.02.2010 15:21
Betreff: Week of 15 March townmeetings
nach der Makro-Anwendung:
Von: Müller, Peter Gesendet: Fr 19.02.2010 15:21
Betreff: 2010-02-19 Müller Week of 15 March townmeetings
Wie man am Bsp. sieht soll die Uhrzeit nicht kopiert werden, das Datum ein bestimmtes Format bekommen und jeweils Leerzeichen zwischen Datum Nachname und Betreffeintrag.
Im Internet konnte ich bisher niemanden finden der genau das gleiche Problem hatte. Was ich fand und meinem Problem etwas näher kommt seht ihr hier unten. Vielen Dank schon mal für eure Hilfe! Ich würd mich über wertvolle Tips oder gar eine Lösung sehr freuen!
Public Sub InsertDate()
'=====================================================================
’ Fügt an den Anfang des Betreffs eines Elements das Datum ein.
’ © Peter Marchert - http://www.outlook-stuff.com
’ 2008-11-09 - Version 1.0.0
’ 2008-11-21 - Version 1.0.1
'=====================================================================
Dim objItem As Object ’ Aktuelles Element
'---------------------------------------------------------------------
’ Fehlerbehandlung wegen Set-Anweisungen ausschalten
'---------------------------------------------------------------------
On Error Resume Next
'---------------------------------------------------------------------
’ Aktuell geöffnetes Element refernzieren
'---------------------------------------------------------------------
Set objItem = Outlook.ActiveInspector.CurrentItem
'---------------------------------------------------------------------
’ Wenn kein Element geöffnet ist, dann markiertes verwenden
'---------------------------------------------------------------------
If objItem Is Nothing Then Set objItem = Outlook.ActiveExplorer.Selection(1)
'---------------------------------------------------------------------
’ Auch nichts markiert?
'---------------------------------------------------------------------
If objItem Is Nothing Then GoTo ExitProc
'---------------------------------------------------------------------
’ Mit dem Formatbefehl wird das Datum maschinell sortierbar
'---------------------------------------------------------------------
objItem.Subject = Format(Date, „yyyy-MM-dd“) & " " & objItem.Subject
'---------------------------------------------------------------------
’ Änderung speichern
'---------------------------------------------------------------------
objItem.Save
ExitProc:
'---------------------------------------------------------------------
’ Referenz auf Element löschen
'---------------------------------------------------------------------
Set objItem = Nothing
End Sub