Salve a tutti
da tempo utilizzo il codice di seguito riportato per l'invio di email da un sito di ecommerce, ma da qualche tempo succede che mi trovo nella casella della posta inviata sul mio ISP, solo in alcuni casi che ovviamente non sono riuscito a risolvere, più copie della stessa email.
Lo script funziona su di un Window 2000 Server Sp4 con IIS 5.0.codice:'----------------------------------------------------------- 'Invio E-Mail '----------------------------------------------------------- DIM iMsg, Flds, iConf, xNum set oMail=Server.CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(2) = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miosito.com" Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= True Flds("http://schemas.microsoft.com/cdo/configuration/sendusername")= "user@miosito.com" Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "anyvalue" Flds.Update With oMail Set .Configuration = iConf end with omail.Fields("urn:schemas:httpmail:importance").Value = 0 oMail.From = "user@miosito.com;" oMail.BCc="user@miosito.com;" oMail.To=EMAIL oMail.Subject="Oggetto mail" oMail.HTMLBody = "Testo della mail" oMail.Send xNum=Err.number if xNum>0 then Response.Write "Errore nell'invio delle E-Mail " & xNum & " " & Err.description Err.Clear Response.End end if set oMail=nothing
Qualcuno ha una soluzione, consiglio
Grazie

Rispondi quotando

