error al enviar email desde asp

vpino · #1 (**permalink**) 28/03/2005, 13:45

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.

trasgukabi · #2 (**permalink**) 28/03/2005, 13:55

Prueba así:

Código:

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "titulo" 
objMessage.Sender = "[email protected]" 
objMessage.To = "[email protected]
objMessage.HTMLBody ="<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'><html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body> LOQUESEA</body></html>"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing

Un saludo.

vpino · #3 (**permalink**) 29/03/2005, 12:33

Mil gracias Trasgukabi. utilice este codigo e instale CDONTS.DLL y configure el SMTP y hasta el momento va todo bien, al menos coloca el correo el inetpub (ya que estoy trabajando de forma local)

<%
'Declaramos las variables a usar
Dim MyCDO
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

Set MyCDO = Server.CreateObject("CDONTS.NewMail")

If IsObject (MyCDO) Then

MyCDO.From = request.Form("email")
MyCDO.To = "[email protected]"
MyCDO.Subject = "Pedido"
TBdy = Now() & CR & CR

MyCDO.Body = TBdy
MyCDO.Send
Set MyCDO = nothing

Else
Response.Write("Message not sent")
End If

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>"
%>