Приведеные примеры не смотрел, но в моей заготовке письма только в текстовом виде.
Чтобы отправлять в HTML - нужно строку

objMes.Textbody = "тело письма... "

заменить на

objMes.HTMLbody = "тело письма... "


А лучше всего - почитать Брайан Книттель,
Глава 6. Объекты сообщений и факсов ..............................254
Отправка сообщений с помощью CDO ................................ 279

Отправка HTML-сообщения - страница 282.

P.S. Обещал довести до ума, помню, не забыл. Нууу... не доходят руки довести до ума