Windows Server - CDO.Message y IIS

 
Vista:

CDO.Message y IIS

Publicado por Ana (1 intervención) el 07/12/2005 16:08:59
Hola,
en un windows 2003 server con IIS y el servidodr SMTP instalado, intento
enviar un correo usando el CDO.Message de CDOSYS desde una página asp. Pongo como smtpserver la ip de la máquina. Si pongo el nombre del servidor smtp u otro cosa, da el error "Error de transporte en la conexión al servidor. " Poniendo la dirección IP de la máquina no me da error pero el mensaje no lo envía y en el visor de sucesos aparecer que la dirección de destino no existe.
¿Cómo se configura?

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CDO.Message y IIS

Publicado por marco (1 intervención) el 21/12/2005 22:56:26
quizas esto te funcione.

FUNCTION SEND_MAIL_IIS_60(BYVAL MAIL_FROM,BYVAL MAIL_TO,BYVAL MAIL_SUBJECT,BYVAL MAIL_BODY,BYVAL MAIL_SERVER)
DIM OBJ_CDO_CONFIG
DIM OBJ_CDO_MESSEGE
DIM STR_SCHEMA
DIM FLAG_VALIDA

ON ERROR RESUME NEXT

SET OBJ_CDO_CONFIG = SERVER.CreateObject("CDO.Configuration")
SET OBJ_CDO_MESSEGE = SERVER.CreateObject("CDO.Message")
STR_SCHEMA = "http://schemas.microsoft.com/cdo/configuration/"
FLAG_VALIDA = TRUE

SELECT CASE FALSE
CASE TRIM(MAIL_FROM) <> ""
FLAG_VALIDA = FALSE
CASE TRIM(MAIL_TO) <> ""
FLAG_VALIDA = FALSE
CASE TRIM(MAIL_SUBJECT) <> ""
FLAG_VALIDA = FALSE
CASE TRIM(MAIL_BODY) <> ""
FLAG_VALIDA = FALSE
CASE TRIM(MAIL_SERVER) <> ""
FLAG_VALIDA = FALSE
END SELECT

IF FLAG_VALIDA THEN
OBJ_CDO_CONFIG.FIELDS.ITEM(STR_SCHEMA & "sendusing") = 2
OBJ_CDO_CONFIG.FIELDS.ITEM(STR_SCHEMA & "smtpserver") = MAIL_SERVER
OBJ_CDO_CONFIG.FIELDS.UPDATE

SET OBJ_CDO_MESSEGE.Configuration = OBJ_CDO_CONFIG
OBJ_CDO_MESSEGE.MimeFormatted = true
OBJ_CDO_MESSEGE.FROM = MAIL_FROM
OBJ_CDO_MESSEGE.TO = MAIL_TO
OBJ_CDO_MESSEGE.SUBJECT = MAIL_SUBJECT
OBJ_CDO_MESSEGE.TextBody = MAIL_BODY
OBJ_CDO_MESSEGE.Send()
END IF
SET OBJ_CDO_CONFIG = NOTHING
SET OBJ_CDO_MESSEGE = NOTHING
SET STR_SCHEMA = NOTHING
SET FLAG_VALIDA = NOTHING
IF ERR.number <> 0 THEN Response.Write(ERR.Description)
END FUNCTION
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CDO.Message y IIS

Publicado por Andres (1 intervención) el 24/11/2006 17:21:05
http://www.chistemaniaco.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CDO.Message y IIS

Publicado por ricardo (1 intervención) el 31/01/2008 14:34:56
ver que sale
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CDO.Message y IIS

Publicado por Gusano (1 intervención) el 15/04/2008 06:53:46
el error se presenta cuando no se puede alcansar al servidor de destino o el puerto tcp (En este caso SMTP [tcp 25]), si tienes un antivirus o un firewall entre tu y el servidor revisalo porque esta puede ser la causa. otros programas como anti spam o anti relay tambien puden afectar el desempeño,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar