mi sembra che aruba tratti in maniera piuttosto dettagliata l'argomento, c.que dove scrivi:

Mail.HTMLBody = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" &
prova a mettere:

codice:
Mail.TextBody = ......