|
Hallo!
HIer erstmal ein Beispiel für ein Mail aus der Vorlage. Hast du 3 Vorlagen oder nur 3 verschiedene Empfänger. Ansonsten das in eine Schleife packen und bei jedem Durchlauf den Pfad ändern. Vorher ggf. das Set der neueNachricht auf nothing setzen.
Beim Abspeichern kommt es drauf an. Da der Anwender die Mail ja ändern kann, müsste man wissen was genau verschickt wurde um es auch zuordnen zu können. Theoretisch kann man die letzten 3 nachrichten speichern. Frage nur ob das die richtige ist. Falls der Betreff nicht geändert wird (werden darf) kann man auch darüber gehen. Sollte eigentlich kein Problem sein. VG
Sub mail_aus_vorlage()
Dim outlook As Object
Dim neueNachricht As Object
Dim betreff As String
Dim text As String
Set outlook = CreateObject("Outlook.Application")
'hier den eigenen pfad reinpacken, dateiname endet mit .oft
Set neueNachricht = outlook.CreateItemFromTemplate("meni Pfad")
neueNachricht.display
'alten Betreff und Text auslesen - ggf. zugriff erlauben
betreff = neueNachricht.Subject
text = neueNachricht.body
'Betreff um Datum ergänzen
betreff = Format(Date, "yyyymmdd") & betreff
neueNachricht.Subject = betreff
' Text ändern und ersetzen
text = Replace(text, "<DATUM>", Date)
text = Replace(text, "<UHRZEIT>", Time)
neueNachricht.body = text
End Sub
|