Desde una pagina en la que el usuario puede modificar su contraseña de acceso, envío un correo electrónico, el código que utilizo es el siguiente:
<%
Dim objCDOSYSMail
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.adif.es"
objCDOSYSCon.Fields("http

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "[email protected]"
objCDOSYSMail.To = RSUSUARIOS.Fields.Item("correo_electronico").Value
objCDOSYSMail.Subject = "Contraseña APLICACION"
objCDOSYSMail.HTMLBody = "Ha sido modificada la password del usuario: " & VbCrLf & VbCrLf & "USUARIO: " & UCASE(RSUSUARIOS.Fields.Item("usuario").Value) & vbcrlf & "Nueva PASSWORD: " & UCASE(RSUSUARIOS.Fields.Item("password").Value) & vbcrlf & vbcrlf & "Esta solicitud ha sido realizada desde la Dirección I.P.: " & Request.ServerVariables("REMOTE_HOST") & vbcrlf & vbcrlf & "Mensaje generado automaticamente por APLICACIÓN " & vbcrlf & vbcrlf & "Saludos"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
El correo se envía correctamente, pero no ejecuta los saltos de línea, las preguntas son:
1.- ¿Cuál es el error o que tengo que modificar para que se ejecute correctamente?
2.- ¿Puedo enviar una copia de este correo a otro usuario?
Saludos a todos.