Outlook VB Script

Hallo zusammen,

Ich stehe vor der Aufgabe ein Script zu schreiben das Outlook öffnet (soweit kein Problem).
Dann soll eine neue Mail geöffnet werden 2 Mailadressen sollen in das "An" Feld geschrieben werden, der Betreff soll befüllt werden und eine Datei der in einem bestimmten Pfad liegt soll angehängt werden.
Als Ergebnis soll der Mensch am PC ein Fenster mit einer nicht versendeten Mail sehen an der er evtl 1-2 Kleinigkeiten ändern kann und dann nurnoch auf senden drücken muss

Habt ihr Lösungsvorschläge für mich?

sAn = "xxx@mail.de;yyy@mail.de"  
sBetreff = "Mein Betreff"  
sText = "Der Text"  
sAnhang = "C:\Test.txt"  

With CreateObject("Outlook.Application").CreateItem(0)  
    .To = sAn
    .Subject = sBetreff
    .Body = sText
    .Attachments.Add sAnhang
    .Display
End With

sAn = "xxx@mail.de;yyy@mail.de"  
sBetreff = "Mein Betreff"  
sText = "Der Text"  
sAnhang = "C:\Test.txt"  

With CreateObject("Outlook.Application").CreateItem(0)  
    .To = sAn
    .Subject = sBetreff
     With .GetInspector.WordEditor.Paragraphs   'Mit Email-Signatur  
        .Add
        .First.Range.Text = sText & vbNewLine & vbNewLine
     End With
    .Attachments.Add sAnhang
    .Display
End With