Bueno me acabo de dar cuenta en esta linea:
mensaje = "<html><body><table><tr><td>" & rst2("campotitulo") & "</td></tr>"
mensaje = "<tr><td>" & rst2("camponoticia") & "</td></tr>"
deberia quedar asi:
mensaje = "<html><body><table><tr><td>" & rst2("campotitulo") & "</td></tr>"
'ME FALTO ACA
mensaje = mensaje & "<tr><td>" & rst2("camponoticia") & "</td></tr>"