para agregar mas lineas....
contenido= "This is a test for CDO.message"
contenido=contenido & "here some more lines about it"
contenido=contenido & "need more???"
contenido=contenido & "let's make a table"
contenido=contenido & "<table><tr>"
contenido=contenido & "</td>one cell in this table</td>"
contenido=contenido & "</tr></table>"
contenido=contenido & "what about a link?? can you do it??"
contenido=contenido & "<a href=www.forosdelweb.com>Foros Del Web 2007</a>"
.TextBody = contenido
suerte
