Si lo que puse en <a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=78966' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a> te sirve, lo podés adaptar para que en vez de agregar un email lo elimine modificando esta línea:
Código:
strContenido = strContenido & vbcrlf & Email
por:
Código:
strContenido = Replace(strContenido, Email & vbcrlf, "")
saludos