Hola, la verdad estoy confundida con lo del relay, en autenticacion del SMTP, tengo activada al opcion anonymous access, en relay restricciones, no hay ninguna ip dada de alta en la lista, esto es en el default smtp de windows 2003 server (iis manager), se supone que con este servicio se pueden enviar mensajes de correo, mi codigo es este:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Enviar Mensaje</title>
</head>
<body>
<%
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.To ="
[email protected]"
ObjSendMail.Subject = "Prueba del email CDO"
ObjSendMail.From ="
[email protected]"
ObjSendMail.HTMLBody ="Hola sugey, esperemos que funcione, suerte"
priority="Normal"
Select case priority
case "High"
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High" ' For Outlook 2003
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 2 ' For Outlook 2003 also
ObjSendMail.Fields.Item("urn:schemas:httpmail:impo rtance") = 2' For Outlook Express
case "Normal"
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "Normal" ' For Outlook 2003
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 1 ' For Outlook 2003 also
ObjSendMail.Fields.Item("urn:schemas:httpmail:impo rtance") = 1' For Outlook Express
case else
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "Normal" ' For Outlook 2003
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 1 ' For Outlook 2003 also
ObjSendMail.Fields.Item("urn:schemas:httpmail:impo rtance") = 1' For Outlook Express
end select
requestreply="yes"
if requestReply = "Yes" then
ObjSendMail.Fields("urn:schemas:mailheader:disposi tion-notification-to") = "
[email protected]"
ObjSendMail.Fields("urn:schemas:mailheader:return-receipt-to") = "
[email protected]"
End if
ObjSendMail.Fields.Update
'Set DSN options.
' Name Value Description
' cdoDSNDefault 0 No DSN commands are issued.
' cdoDSNNever 1 No DSN commands are issued.
' cdoDSNFailure 2 Return a DSN if delivery fails.
' cdoDSNSuccess 4 Return a DSN if delivery succeeds.
' cdoDSNDelay 8 Return a DSN if delivery is delayed.
' cdoDSNSuccessFailOrDelay 14 Return a DSN if delivery succeeds, fails, or is delayed.
ObjSendMail.DSNOptions = 14
ObjSendMail.Send
on error resume next
if err.number = 0 then
Response.Write("Mensaje enviado con éxito")
else
Response.Write("Error al enviar el mensaje <br>" + err.description)
End if
Set ObjSendMail = Nothing
%>
</body>
</html>
es local, ese envio de correo lo debe resolver el SMTP ? o me equivoco, no cacha ningun error, me aparece que el mensaje fue enviado con exito, sin embargo cuando checo mi correo, no me llega nada :(
que puede estar pasando??