Señores de foro, agradezco muchisisisimo si me dan una manito ya que estoy intentando enviar un correo desde asp y al correr el programa sale este eror. en la linea
".Send"
Tipo de error:
CDO.Message.1 (0x80040220)
No es válido el valor de configuración "SendUsing".
/acmejoras/mail.asp, línea 29
El codigo que tengo para enviar el correo fue bajado de este foro y es el siguiente:
<%
'Declaramos las variables a usar
Dim nombre, email, mensaje, oMail
'Obtenemos los valores del formulario
'TextBody = Request.Form("TextBody")
'Subject = Request.Form("Subject")
TextBody ="hola estoy enviando un mensaje"
Subject = "novedades"
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set.Configuration = iConf
.From = "
[email protected]"
.To = "
[email protected]"
.Subject = Request.Form("Subject")
.HTMLBody = Request.Form("TextBody")
.Send
Set iMsg = Nothing
End With
Response.Write "<div align=center><b>Envío realizado correctamente.<br>"
Response.Write "Ha enviado el email a todos los de REGISTRO.MDB<br></b>"
Response.Write "<br><br><div align=center><a href=javascript
:window.close(); title='CERRAR VENTANA'><b><font face='Flat Brush' color=#008080 style=font-size:10pt><u>CERRAR VENTANA</u></font></b></em></a></span></div>"
%>
Agradezco en el alma cualquier ayudita si no es mucho pedir.
