Dim objCDO, texto
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "destinatario_nombre <
[email protected]>"
objCDO.Subject = "Solicitud de Contacto"
objCDO.To = "
[email protected]"
'objCDO.CC = "
[email protected]"
'objCDO.BCC = "
[email protected]"
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
texto = texto & "<b>E-mail:</b>"& Email &""
objCDO.Body = texto
objCDO.Send()
Set objCDO = Nothing