newsletter mail errate

[digitm]

Ciao ragazzi, uso il codice sotto per inviare la newsletter, solo che appena incontra una mail errata (es: nome@hotmail senza it), mi va in crash. Come posso fare per evitare ciò? Grazie 1000


Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")

' Proprietà di invio
with objMailConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.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") = 60
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
.Fields.Update
end with

Set objMail.Configuration = objMailConfig

objMail.From = "info@mail.it"
objMail.Bcc = stremail
objMail.Subject = oggetto
messaggio = "blabla"
objMail.HTMLBody = messaggio

[cavicchiandrea]

Premesso che ritengo sia meglio avere solo email attive e verificate (puoi farlo all'atto della registrazione della stessa con invio email di convalida), comunque per risolvere il problema credo che dovrai nel ciclo che estrae le email dalla tabella inserire un if e una regula-express che verifichi la formalità della stessa se è true invii altrimenti scarti

[digitm]

cos'è "regula-express"?

Io pensavo a qualcosa del tipo: se c'è errore... movenext o qualcosa di simile...

[cavicchiandrea]

Esperessione regolare, dubito che si fattibile quello che dici, ma puoi sempre provarci