Sostituisci questo

codice:
objNewMail.HTMLBody = strMessage
a

codice:
objNewMail.TextBody = strMessage
nella parte del CDOSYS.

Roby