[CDO] newsletter

[tomhead]

Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
With objConfig
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miodominio.com"
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120
	.Fields.Update
End With
Set objMail.Configuration = objConfig
objMail.From = Session("from")
objMail.Bcc = sEmail
objMail.Subject = Session("sTitolo") ' Oggetto
objMail.HTMLBody = sHTML ' Messaggio		
objMail.Send()
Set objMail = Nothing

a volte l'invio dei messaggi non vanno a buon fine come posso, comunque, far ingnorare le email errate così per non bloccare l'esecuzione della pagina
grazie

[Roby_72]

Non puoi saperlo prima di inviarle che sono errate, a meno che l'errore sia nella sintassi dell'email.

Roby

[tomhead]

il problema sta nel fatto che mi blocca la pagina! e questo dovrei evitarlo

[Roby_72]

Come sarebbe ti blocca la pagina... :master:

Roby

[tomhead]

va in errore!

[santino83]

e che errore è?

[tomhead]

lo script va in timeout! oppure trova delle email non valide