ciao ragazzi,
devo mandare una mail da ASP.
con win2000 e CDONTS va tutto bene (anche se devo disattivare il firewall). NB:c'è 1 modo per far partire le mail lo stesso anche con il firewall attivato?
ma utilizzando il CODSYS (con winXP) non riesco a ricevere le mail anche se non ho errori. vi posto il codice.
------------------- CODE ---------------------
<%
'on error resume next
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "nomeMail@libero.it"
.From = "nomeMail@libero.it"
.Sender = "xxx"
.Subject = "xxx test"
.TextBody = "test"
.Send
End With
if err.number <> 0 then
Error_Page "Errore durante l'invio della mail della pubblicità." & chr(13) & chr(10) & err.description
response.end
else%>
<HTML>
<HEAD>
<link REL="stylesheet" TYPE="text/css" HREF="../images/TCHF.CSS">
</HEAD>
<BODY>
<center>
<FONT size=5>
Mail inviata correttamente</P></FONT>
</center>
</form>
</BODY>
</HTML>
<%end if
%>
---------------------- FINE CODE --------------
Avete idea di dove sbaglio?
grazie!!!
Rispondi quotando