modulo invio mail

[digitm]

ciao ragazzi, ho usato il seguente modulo per invio mail:

Dim objCDOSYSCon

Set objCDOSYSMail = Server.CreateObject("cdo.message")
Set objCDOSYSCon = Server.CreateObject ("CDO.configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.configuration = objCDOSYSCon
objCDOSYSMail.From = email
objCDOSYSMail.TO = "email@sito.it"
objCDOSYSMail.Subject = "Email dal sito"
messaggio="
Email spedita dal modulo contatti presente sul sito

Nome: "&nome&"
Cognome: "&cognome&"
Email: "&email&"

Messaggio:
"&info
objCDOSYSMail.HTMLBody = messaggio
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing


solo che se al posto di localhost inserisco smtp.libero.it ricevo la email... lasciando localhost no!

Ho fatto presente al mio host il problema e mi hanno risposto:
"...il sistema di invio mail mediante il server di posta presente sul server, richiede un invio mediante autenticazione, con i parametri di utente amminsitratore, coincidente con user e pass dell'utente FTP"

cioè???????????

[Mems]

Con CDOSYS bisogna specificare un smtp server valido presente nella rete dove il pc server è in funzione... mi pare ovvio che il tuo localhost non sia un smtp server, anche se tu hai installato il server virtuale smtp.
Per specificare l'autenticazione al server smtp del tuo hosting devi aggiungere, prima di objCDOSYSCon.Fields.Update, queste:

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "utenteFTP"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passUtenteFTP"

[digitm]

ma la riga:

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

la devo lasciare così?

[Mems]

Originariamente inviato da digitm
ma la riga:

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

la devo lasciare così?

No. Devi mettere l'indirizzo smtp del tuo hosting. L'ho anche detto prima...

[digitm]

Grazie, ho risolto...

altra domanda:
nella riga di sotto, come faccio a fare inviare una url?

objCDOSYSMail.HTMLBody = messaggio

Mi spiego meglio: piuttosto che fare inviare il contenuto della stringa "messaggio", vorrei che la persona che riceve l'email, visualizzi la pagina web www.paginascelta.com

una cosa del genere:
objCDOSYSMail.HTMLBody = "www.paginascelta.com"

mi aiutate?

[Mems]

Originariamente inviato da digitm
Grazie, ho risolto...

altra domanda:
nella riga di sotto, come faccio a fare inviare una url?

objCDOSYSMail.HTMLBody = messaggio

Mi spiego meglio: piuttosto che fare inviare il contenuto della stringa "messaggio", vorrei che la persona che riceve l'email, visualizzi la pagina web www.paginascelta.com

una cosa del genere:
objCDOSYSMail.HTMLBody = "www.paginascelta.com"

mi aiutate?

.HTMLBody non ti suggerisce nulla? HTML... devi scrivere il codice HTML per fare il link...

objCDOSYSMail.HTMLBody = "http://<a href="http://www.paginasce...scelta.com</a>"

[digitm]

Si, ma in questo modo io riceverei una email su fondo bianco con ul link cliccando il quale avrò accesso alla pagina in esame! Ma se io volessi che nel corpo della mail compaia la pagina web?

[digitm]

Per capire meglio... questo è il modulo che usavo (e che ora non va più... (... )

<%
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
mittente = "info@sitoweb.it"
destinatario = stremail
oggetto = "newsletter del "& strdata
messaggio = "Invio con CDOSYS"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.Bcc = destinatario
.Subject = oggetto

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

'Invio di una pagina web
.CreateMHTMLBody "http://www.sitoweb.it/newsletter/mail.asp"

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

'Invia l'email
.Send()

end with

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

[Mems]

aaa.. proprio quella pagina web come corpo della mail?
Ci sta una proprietà dell'oggetto CDOSYS che permette di caricare come corpo pagina una pagina web remota.
Cerca su Google
send mail with CDOSYS
CDOSYS attach remote page
e vedrai che troverai parecchi esempi.