[ASP] funzione mail che non dà segni di vita

[ivy_76]

ciao

dal sito http://freeasp.html.it ho scaricato la funzione per mandare le mail che vi riporto

<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "mittente@tuodominio.xx"
destinatario = "mittente@suodominio.zz"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
.AddAttachment server.mappath("/public/test.txt")

'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>


L'ho messa in una mio sito che gira sotto Windows 2000 Advanced Server. Quando la faccio partire, la funzione non fa assolutamente niente: non manda email, non fa partire outlook, NON SI PIANTA, non mette la posta in uscita né in quella inviata.
Sul mio server c'è il server di posta SMTP predefinito di IIS. E' normale ? :master:

[Roby_72]

1) devi avere installato CDOSYS
2) E' uno script che deve essere "capito", non gettato in pasto al server, quindi:

- qui

mittente = "mittente@tuodominio.xx" 
destinatario = "mittente@suodominio.zz"

devi mettere due indirizzi reali, ed il mittente deve essere riconosciuto dal server SMTP, non uno a caso.

- qui

'Formato HTML 
.HTMLBody = messaggio 
'Formato testo (scegliere) 
.TextBody = messaggio

devi scegliere uno dei due, remmando quello che non ti interessa a seconda di come intendi inviare l'email.

- qui

'Invio di una pagina web 
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

C'è un errore, la funzione è CreateHTMLBody

- questa

'Invio con allegato 
.AddAttachment server.mappath("/public/test.txt")

funziona se hai un allegato da inviare in quella posizione.

Roby

[ivy_76]

Beh io ti ho postato la funzione che ho preso. Nel mio codice l'avevo personalizzata anche se non mi ero accorto dell'errore che mi hai segnalato.
Credevo che il componente ci fosse già... da dove lo prelevo?

[Roby_72]

Verifica che la dll sia presente sotto system32

Roby

[ivy_76]

Ho un dubbio: ma windows 2000 server non nasce con il CDONTS? Non posso usare quello? Scusami ma non ho mai installato la posta sotto un server!

[Roby_72]

Si che lo puoi usare, ma il 2000 server ha anche installato CDOSYS.
Poiché dal 2003 server CDONTS non c'è più ti conviene usare CDOSYS.

Roby

[ivy_76]

scusa Roby, visto che non sono molto pratico di queste cose, potresti essere un tantino piu chiaro?
Con windows 2000 se voglio usare CDONTS, cosa metto qui:
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")

se invece passo ad CDOSYS dove trovo il file dll da mettere in Windows?

Grazie