problema con CDO

28/04/2004 - 10:07 por fjmasero | Informe spam
Wenas:

Estoy intentando enviar email con CDONTS y los mensajes
se me quedan en la carpeta C:\Inetpub\mailroot\Pickup.

¿Por qué puede ser?.

El código es:

Dim loNewMail
Set loNewMail = Server.CreateObject("CDONTS.NewMail")

loNewMail.From = Request.Form("nombreAlumno") & ""
loNewMail.To = "fms@grupo-arista.com"
loNewMail.Subject = "Solicitud de Cita para Tutoría"
loNewMail.BodyFormat = CdoBodyFormatHTML
loNewMail.MailFormat = CdoMailFormatMime

dim cuerpoMsg
cuerpoMsg = "SOLICITUD DE TUTORIA" & vbCrlf
cuerpoMsg = cuerpoMsg
& "*******************************************************
**********" & vbCrlf
cuerpoMsg = cuerpoMsg & "ALUMNO: " & Request.Form
("nombreAlumno") & vbCrlf
cuerpoMsg = cuerpoMsg & "EMAIL: " & Request.Form
("email") & vbCrlf
cuerpoMsg = cuerpoMsg & "TELEFONO: " & Request.Form
("tfno") & vbCrlf
cuerpoMsg = cuerpoMsg & "FECHA: " & Request.Form
("fechaCita") & vbCrlf
cuerpoMsg = cuerpoMsg & "HORARIO: " & Request.Form
("horaInicialCita") & " - " & Request.Form
("horaFinalCita")

loNewMail.Body = cuerpoMsg

loNewMail.Send()

Set loNewMail = Nothing

He hecho varias pruebas con los valores del from, to,
body, etc., y nada.

Salu2 y gracias
 

Leer las respuestas

#1 GONZALO SKARMETA
28/04/2004 - 14:38 | Informe spam
Debes revisar la configuracion del protocolo SMTP en el
IIS.

Saludos.
Wenas:

Estoy intentando enviar email con CDONTS y los mensajes
se me quedan en la carpeta C:\Inetpub\mailroot\Pickup.

¿Por qué puede ser?.

El código es:

Dim loNewMail
Set loNewMail = Server.CreateObject("CDONTS.NewMail")

loNewMail.From = Request.Form("nombreAlumno") & ""
loNewMail.To = ""
loNewMail.Subject = "Solicitud de Cita para Tutoría"
loNewMail.BodyFormat = CdoBodyFormatHTML
loNewMail.MailFormat = CdoMailFormatMime

dim cuerpoMsg
cuerpoMsg = "SOLICITUD DE TUTORIA" & vbCrlf
cuerpoMsg = cuerpoMsg
& "******************************************************


*
**********" & vbCrlf
cuerpoMsg = cuerpoMsg & "ALUMNO: " & Request.Form
("nombreAlumno") & vbCrlf
cuerpoMsg = cuerpoMsg & "EMAIL: " & Request.Form
("email") & vbCrlf
cuerpoMsg = cuerpoMsg & "TELEFONO: " & Request.Form
("tfno") & vbCrlf
cuerpoMsg = cuerpoMsg & "FECHA: " & Request.Form
("fechaCita") & vbCrlf
cuerpoMsg = cuerpoMsg & "HORARIO: " & Request.Form
("horaInicialCita") & " - " & Request.Form
("horaFinalCita")

loNewMail.Body = cuerpoMsg

loNewMail.Send()

Set loNewMail = Nothing

He hecho varias pruebas con los valores del from, to,
body, etc., y nada.

Salu2 y gracias
.

Preguntas similares