Sub MacroMitDeinemFormularSteuerelementVerknuepfen()
Dim sText As Variant
sText = "<div>Sehr ....<br>"
sText = sText & "<p>foo bar bar foo</p>"
sText = sText & "<br>MfG</div>"
Call SendSheetOutlook( _
"Betreffzeile", _
"EMailAnZeile_als_Emailadresse_getrennt_durch_Simikolon", _
"EmailCCZeile", _
sText)
End Sub