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? 
Code
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