|
Hallo zusammen,
stehe vor folgender Aufgabenstellung:
Automatisierung von Betreff mit Makkros:
In der Schnellzugriffleiste soll ein Item angehängt werden, welches mit dem dahinter gelegten Makkro beim draufklicken ein Automatischen Betrerff im Betrefffenster, der jeweiligen neuen E-Mail erzeugt. Der Dort zuvor eingetragene Betreff soll nicht überschrieben werden sondern hinter den automatischen Betreff gesetzt werden.
Folgendes habe ich bis jetzt hinbekommen:
Option Explicit
Public Sub AktuellesDatumBetreff()
Dim objItem As Object
On Error Resume Next
Set objItem = Outlook.ActiveInspector.CurrentItem
If objItem Is Nothing Then GoTo ExitProc
objItem.Subject = Format(Date, "yyyy-MM-dd") & Format(Time, "_hh:mm:ss") & "_Projektname_ " & " " & objItem.Subject
objItem.Save
ExitProc:
Set objItem = Nothing
End Sub
Leider wird hierbei der zuvor eingetragene Betreff mit dem automatischen Betreff überschrieben.
Das Ergebniss verhält sich hierbei wie folgt:
2021-05-26_14:16:50_Projektname_
Wie zuvor beschriebenen, wird der Inhalt hinter dem Projektname überschrieben.#
Für hilfreiche Tipps, wäre ich sehr dankbar. Falls das Thema schon einmal hier behandelt wurde bitte ich um entsprechende URL.
Beste Grüße
Hans Peter
|