Forum Noamweb

problema script invio mail

remigio - 24/11/2004 at 00:14

Salve,
posseggo il dominio sulpalco.com. Utilizzavo nelle mie pagine uno script che inviava in automatico le mail (1 destinatario sempre). Qui di seguito il mio script :

Dim iConf
Dim Flds

set miaMail = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Update
End With

With miaMail
Set .Configuration = iConf
End With

miaMail.From = user_from
miaMail.To = user_to
miaMail.Sender = "sulpalco@sulpalco.com"
miaMail.cc = user_cc
miaMail.bcc = user_bcc
miaMail.Subject = subject
miaMail.HTMLBody = body

Set iConf = Nothing
Set Flds = Nothing

miaMail.send

Fino a ieri questo script funzionava correttamente, pur non apportando alcuna modifica oggi non funziona pi. Potreste aiutarmi? Ho il dubbio che qualcosa sia stato cambiato nelle impostazioni del server.

Shazan - 24/11/2004 at 08:55

C'era un problemino con CDOSYS... risolto!

:saluto:

angerr - 24/11/2004 at 10:13

salve,
sono stati risolti tutti i problemi del cdosys o state ripristinando ancora il problema, perche su un mio account continua a darmi questo errore:

An exception occurred: 'Fields'

sulla riga...

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.funtacalcio.it"

il codice non stato modificato lo stesso di quando funzionava.

buona lavoro :saluto:

Shazan - 24/11/2004 at 10:22

Strano che prima funzionasse perch mail.funtacalcio.it errato.
Il server SMTP da utilizzare su HELM1 "localhost".
Comunque CDOSYS funziona, l'ho testato nuovamente.

:saluto:

angerr - 24/11/2004 at 10:35

grazie funziona il tutto

buona giornata