ancora CDONTS e CDOSYS?mhmm..si!

[nadur]

SAlve, holetto tanti post sul nuovo componete per la mail sui server win 2003 ma dopo avere provato e riprovato non funziona..

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.BodyFormat =1 '
objCDO.MailFormat = 1 '
objCDO.To = Request.form("Email")
objCDO.From = "mail@sito.com"
objCDO.Subject = "Conferma di iscrizione"
objCDO.Body = "Ciao " & Request.form("Nome")&"," & Chr(13)&Chr(10)&_
"hai ricevuto questa e-mail perchè hai effettuato l'iscrizione al sito: sito.com" & Chr(13)&Chr(10)&_
"La password che ti è stata assegnata per accedere alle aree protette è:" & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
Request.Form("Password") & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
"Per confermare l'iscrizione clicca sul link sottostante:" & Chr(13)&Chr(10)&_
"http://www.sito.com/registra/conferma.asp?username="& Request.form("Username") & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
"--Il webmaster--"
objCDO.Send
Set objCDO = Nothing


If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>


Con CDOSYS dovrebbe essere così:

CorpoMessaggio = "Ciao " & Request.form("Nome")&"," & Chr(13)&Chr(10)&_
"hai ricevuto questa e-mail perchè hai effettuato l'iscrizione al sito:
sito.com" & Chr(13)&Chr(10)&_
"La password che ti è stata assegnata per accedere alle aree protette è:"
& Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
Request.Form("Password") & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
"Per confermare l'iscrizione clicca sul link sottostante:" &
Chr(13)&Chr(10)&_
"http://www.sito.com/registra/conferma.asp?username="&
Request.form("Username") & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "mail@sito.com"
MiaMail.To = Request.form("Email")
MiaMail.Subject = "Conferma di iscrizione"
MiaMail.HTMLBody = CorpoMessaggio
MiaMail.Send()
Set MiaMail = Nothing


If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>


Qualcuno mi aiuta. Ho letto milioni di post ma con le modifiche non funge...please help my soul ..Grazie!

[Roby_72]

Con CDOSYS c'è da aggiungere la configurazione che nel tuo esempio non vedo.
http://www.weppos.com/asp/script/scr....asp?script=15
http://www.weppos.com/asp/script/scr....asp?script=17

Roby

[nadur]

Ciao Roby, ho applicato le modifiche ma sono ankora in alto mare..


CorpoMessaggio = "Ciao " & Request.form("Nome")&"," & Chr(13)&Chr(10)&_
"hai ricevuto questa e-mail perchè hai effettuato l'iscrizione al sito:
sito.net" & Chr(13)&Chr(10)&_
"La password che ti è stata assegnata per accedere alle aree protette è:"
& Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
Request.Form("Password") & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
"Per confermare l'iscrizione clicca sul link sottostante:" &
Chr(13)&Chr(10)&_
"http://www.sito.net/registra/conferma.asp?username="&
Request.form("Username") & Chr(13)&Chr(10)&_
"------------------------" & Chr(13)&Chr(10)&_
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")

Set MailConfig = Server.createObject ("CDO.Configuration")
Set MiaMail.Configuration = MailConfig

' Imposta le configurazioni
With MailConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.net"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update


MiaMail.From = "mail@sito.net"
MiaMail.To = Request.form("Email")
MiaMail.Subject = "Conferma di iscrizione"
MiaMail.HTMLBody = CorpoMessaggio
MiaMail.Send()
Set MiaMail = Nothing


If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

[Roby_72]

L'errore?

Roby

[nadur]

errore..cosa?
Dici che va bene?A me non va ugualmente..avrò altri errori..uno stress win 2003

[Roby_72]

No, dico: Che errore ti da? Perché dici che non funziona? Semplicemente perché non ti arrivano le email?

Roby

[nadur]

adesso la pagina per registrarsi non mi spunta più...

[Roby_72]

Cosa? Potresti essere un po' meno criptico e dire che errore ti da?

Roby

[nadur]

non mi spunta più la pagina per la registrazione..mi spunta impossibile visualizzare...

[Roby_72]

Sul Internet Explorer, Menu Strumenti --> Opzioni Internet --> Avanzate e togli la spunta dalla voce "Mostra messaggi di errore HTTP brevi".

Fai ripartire la pagina e finalmente guarda l'errore.

Roby