Outlook 2003 Makro für Betreff-Veränderung

Computer: Software & Programmierung Visual Basic
#1

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

#2

Hallo TecAttack,

Dein Wunsch hört sich erst recht kompliziert an, aber …
wenn ich alles richtig verstanden habe, gibt es doch hier den einfachen Weg über "aktuelle Ansicht anpassen.
Also

  • Posteingang ist geöffnet
  • über „Ansicht“ — „aktuelle Ansicht“ — „aktuelle Ansicht anpassen“ — „Felder“
    wenn Du jetzt die Felder „Von“ — „Erhalten“ und „Betreff“ hintereinander setzt, hast du doch Dein Ergebnis. Nur die Zeit wird jetzt noch angezeigt, vielleicht hast du damit leben.
    Wie der Absender gezeigt wird, kann du doch bei bekannten Adressen im Kontakt-Menue einstellen.

Bis dann
gf

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hey casa31,

Erstmal Danke!
Also ich bin erst Montag wieder an einem Rechner mit Outlook 2003 ums zu testen. Wenn ich mir das aber so überlege wird ja nur die Ansicht im Outlook geändert und nicht das Betreff-Feld, oder? Hm, also der Zweck dahinter ist die dann geänderte/n Email/s in einen Ordner außerhalb von Outlook zu speichern und aufgrund der Benennung werden Emails automatisch chronologisch sortiert. Sollte dir noch was einfallen, dann immer gerne her damit :smile:

Gruß