Outlook Formular entwerfen (Anfänger)

Mail Formular welches Automatisch Betreff und MailText ändert

Hallo Zusammen.

Habe mich jetzt als Anfänger mal mit Formularen in Outlook beschäftigt.
Ich habe einige Programmiererfahrung in JAVA (das nur zum Hintergrund)

Mein Ziel ist es ein Mailformular zu schreiben welches mir verschiedene Dinge zur Auswahl anbietet und je nach Auswahl den Betreff und Mailtext verändert.

Das Formular soll links 4 Radiobuttons enthalten welche entscheiden ob es sich bei der Email um eine Bestellbestätigung, Mahnung, Rechnung etc. handelt.
Je nach auswahl ändert sich der Betreff (funktioniert schon) und der Emailtext (funktioniert nicht)

Dann soll es ein Dropdown mit verschiedenen Waren-Positionen geben, eine eingabe der Menge und einen Hinzufügen button.
Ich würde nun gerne die Menge (z.b. 2 X Äpfel) eingeben auf Hinzufügen klicken und zum Mailtext soll 2XÄpfel als Text hinzugefügt werden.

Leider scheiter ich an zwei dingen.
Ich habe keine Ahnung wie ich bei click auf einen Button ein Makro ausführen kann....

2. Ich habe das Makro zwar so hinbekommen das es den Text einer neuen Mail ändert (es öffnet sich eine komplett neue mail) Aber ich schaffe es einfach nicht den Text des aktuellen Fensters zu ändern...


Hier mal mein Quelltext (kommt von http://www.herber.de/forum/archiv/256to260/t256809.htm, danke an den Author)

Sub add_text()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.HTMLBody = "Test"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Habe nun schon versucht

Sub add_text()
Dim Nachricht As Object, OutApp As Object
Set OutApp = ThisOutlookSession.Application

Set Nachricht = OutApp.ItemLoad(0)
With Nachricht
.HTMLBody = "Test"
.Display
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Und alles mögliche andere.

Hoffe das sich einer von euch die Zeit nimmt einen Anfänger mal über die erste Hürde zu bringen.
Bin für jede Hilfe dankbar.

Mit besten Grüßen

Benjamin

Sub buttonname_click()

weiterer Code

End Sub

Sub Buttonname_Click()

Item.HTMLBody = "Test"  

End Sub