Neue Nachricht - Unterschiedliche Vorlagen direkt als Button

Hallo in die Runde,
erstmal vielen Dank für die vielen Hinweise und Hilfestellungen die sicher nicht nur mir über Jahre hinweg stillschweigend viel gebracht haben!
Muss ja auch mal gesagt werden

Ich habe eine Frage ob jemand eine Idee hat:
Ich habe mehrere Vorlagen die ich je nach Situation verwende - unabhängig von der Absenderadresse, die Funktion kenne ich.
Toll wäre wenn ich im David einen eigenen Button habe für "Neue Nachricht - Vorlage1" oder "Neue Nachricht - Vorlage2"

Clientscripts habe ich auch erfolgreich laufen - bin also auch für alle Spielarten offen.

Vielen Dank vorab!
Christian

ok, trotzdem danke fürs Lesen und nachdenken
Ich werde mir jetzt etwas auf dem Client basteln in dem ich über den Menüpunkt "HTML einfügen" einfach jeweils die Vorlage so hinzufüge.
Nicht so dolle sauber, aber wird laufen.

Im Moment bin ich so fast am Ziel, das ist das Clientscript:

Es funktioniert komischerweise nur wenn ich mit der Msgbox diese künstliche Bremse reinmache.
Sobald die Messagebox draussen ist funktioniert es nur, wenn das Format vorher bereits HTML war,
also nicht, wenn man in den Einstellungen neue Nachrichten nicht als HTML als Standard hat.

Verrückt! Vielleicht hat doch jemand eine Idee?

VorlageDatei = "test.html"


'Neuer Button in der globalen Symbolleiste
sub Initialize(oInfoCenter, key)
  Set oBar = oInfoCenter.GetCommandBar("Main/Global") 
  oBar.Insert 1, "Vorlage", key, 3, "OnEditor", true
  oInfoCenter.Keyboard.Register key, "Main", "ctrl+m", "OnEditor"
end sub


'Öffnet eine neue Nachricht mit Standardwerte
sub OnEditor(oInfoCenter, oContext)

  set fso = CreateObject("Scripting.FileSystemObject")
  set file = fso.OpenTextFile(VorlageDatei)
  sBody = file.ReadAll

  Set oEditor = oContext.StartEditor(0)
  oEditor.InvokeCommand "Format/HTML"
  MsgBox Test
  oEditor.ExecCommand "InsertHTML", cstr(sBody)

  Set oItem = oEditor.Item
  'oItem.Subject = cstr(sSubject)
  Set oRecipients = oItem.Recipients
  'oRecipients.Add cstr(sToMail), cstr(sToName)

  oEditor.Update()
  file.close
end sub