cwHTML ;
HTML
Set strmBody=##class(%GlobalCharacterStream).%New()
Set Subject="Test HTML"
Set From=$$USERNAME^vhUSER(,"@1"),To=$$USERNAME^vhUSER(,"@")
Set To=$$PiecesToList^vhLib(To,";")
Do strmBody.Write("")
Do strmBody.Write("Dit is een test")
Do strmBody.Write("
")
Do strmBody.Write("""Dit is een rode tekst""")
Do strmBody.Write("
")
Do strmBody.Write("""Dit is een beige tekst""")
Do strmBody.Write("")
Set Status=$$SendMiniMail^vhLib(From,To,Subject,strmBody,1,1)
Quit