este es el codigo que tengo
sub enviacorreo(cuerpo)
Dim sDestinatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
sAsunto="Autorización de uso Página web"
'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = CUERPO
sDestinatario="
[email protected]"
'Enviamos el email
set oMail = Server.CreateObject("CDONTS.NewMail")
'Establecemos las propiedades del objeto
oMail.From = "
[email protected]"
oMail.bodyformat = 0
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo
oMail.Send
set oMail = nothing
end sub