Thanks a lot, it works like a charm now!
Last thing I have to figure out now is how to replace some keywords in the mail automatically. The sending process is actually part of a loop as there are several receivers. When using a string for the body of the mail, I could replace this quite easily before sending:
Code:
strBody = Replace(strBody, "%Keyword%", replacement)
I'll have to find another solution here and will try out a few things today. In my first attempt
Code:
doc.Content.Text = Replace(doc.Content.Text, "%Keyword%", replacement)
the replacement worked, but all formating got lost (also for the signature)
Replacements have to be undone after sending each mail, so keywords can still be found for the next one.