Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Vormonat automatisch in Betreffzeile?
#1
Vielleicht ne blöde Frage.
Ich versende jeden Monat an meine Kollegen einen Bericht.
Dafür habe ich schon für jede Abteilung eine Mail als Vorlage erstellt, in der schon alle Empfänger, CC und ein Standarttext eingetragen sind. Einen Betreff habe ich auch jeweils gewählt.

Ich schreibe jetzt aber jeden Monat noch den jeweiligen Vormonat per Hand in den Betreff, damit die Kollegen den Monatsbericht später schneller finden können.

Also steht beim öffnen als Betreff: Abteilung A Bericht November. 
Es handelt sich jeweils um den Vormonat.

Kann man dies irgendwie automatisch einsetzen lassen?
In Excel gibt es ja solche Platzhalter. Aber in Outlook?

Dann euch einen sonnigen Tag.  Blush Blush
Antworten Top
#2
Hallo,

eine etwas vorsichtige Antwort:

Mit VBA sollte es gehen.

Also die Gegenfrage: Kennst Du dich zumindest in den Grundlagen mit VBA aus?

Hier über das Forum einen Code zu entwickeln erfordert allerdings einen Nachbau deiner Aufgabe, in Outlook ist das schwieriger als in Excel.

mfg

--- 1. Ansatz ---
Lädt Mail-Template "Test1.oft"

Code:
Sub Neue_EML_from_Template()
Dim EML As MailItem
Dim Path_Template As String

Path_Template = Environ("appdata") & "\Microsoft\Templates\"

Set EML = Application.CreateItemFromTemplate(Path_Template & "Test1.oft")
EML.Display

End Sub
[-] Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:
  • Excelmachtspass
Antworten Top
#3
Hier mit dem Namen des Vormonats:

Code:
Sub Neue_EML_from_Template()
Dim EML As MailItem
Dim Path_Template As String
Dim Monat As Integer, M_Name As String

'Monats-Namen des Vormonats

Monat = Month(Date) - 1

If Monat > 0 Then M_Name = MonthName(Monat) Else M_Name = MonthName(12)

Debug.Print M_Name

Path_Template = Environ("appdata") & "\Microsoft\Templates\"

Set EML = Application.CreateItemFromTemplate(Path_Template & "Test1.oft")
EML.Subject = EML.Subject & " Report: " & M_Name
EML.Display

End Sub

Suche mal im Netz wie eine Rubrik "Macro" im Menü ergänzt werden kann.
[-] Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:
  • Excelmachtspass
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste