cdosys crea delle gran code

[zioluter]

ciao,

Il problema è in locale: quando spedisco una mail questa viene messa in mailroot/Queue e lì resta a vita.....
cosa devo configurare su iis ?
la priorità la setto così:

eMail.Fields("urn:schemas:httpmail:importance").Value = 2

grazie.
ciao

[Roby_72]

Devi ovviamente rimanere collegato.
Posta lo script.

Roby

[zioluter]

On Error Resume Next
if (request.Form("to")="") then
response.Write("mail.asp non invocata in modo corretto")

response.End()
end if

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Fields.Update
Dim Destinatari, Destinatario, Mittente, Oggetto, Testo

Destinatari = Split(request.Form("to"),";",-1,1)
For each Destinatario in Destinatari

Dim eMail
Set eMail = CreateObject("CDO.Message")

Set eMail.Configuration=Config

eMail.From = "mailer@mailer.com"
eMail.To = Destinatario
eMail.Subject = request.Form("subject")
eMail.HTMLBody = request.Form("message")

eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

eMail.Send()
Set eMail = Nothing
if (Err.number<>0 ) then
response.Write("Errore nell'applicazione")
response.Write(Err.description )
response.End()
end if
Next

premetto, se ad esempio sostituisco localhost con smtp.aruba.it funziona a perfezione...
grazie
zioluter