CDOSYS ... Ci vedo doppio?!

[Picciola]

Uso questo codice per spedire mail attraverso pagina ASP.

Dim iMsg3, iConf3, Flds3 

Set iMsg3 = CreateObject("CDO.Message") 
Set iConf3 = CreateObject("CDO.Configuration") 
Set Flds3 = iConf3.Fields 
Flds3("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 

mittente3 = indirizzomittente
destinatario3 = indirizzodestinatario
oggetto3 = "Oggetto Mail"
messaggio3 = "Testo in formato TXT"

With iMsg3

Set .Configuration = iConf3 
.From = mittente3 
.To = destinatario3
.Subject = oggetto3
.TextBody = messaggio3
.Send() 

end with 

set Flds3 = Nothing 
set iConf3 = Nothing 
set iMsg3 = Nothing

Mi dite perchè il server ogni volta manda 2 copie?????
Colpa del server o del codice?
:berto:

[yro]

non saprei...

io uso questo codice:

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strFROM
MiaMail.To = strDestinatario
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = strOggetto
MiaMail.HTMLBody = strTesto
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

e mi funziona correttamente.
de + nin sò...

[gensole]

a prima vista il codice è corretto.....probabile sia il server allora....

[Picciola]

Boh, non saprei.
Ora proverò col codice suggerito da yro e vi farò sapere.
Incrociate le dita per me!