invio newsletter con CDOSYS FUNZIONANTE
if mailComp = "CDOSYS" then
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open "SELECT * FROM anagrafica WHERE confirm = 'SI' and bloccoutente<>'on';", objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rsNews.EOF Then
Do While Not rsNews.EOF
set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = fromAddr
' cdoMessage.To = strEmail
cdoMessage.Bcc = rsNews("email")
cdoMessage.Subject = subject
If Request.Form("version") = "html" Then
cdoMessage.HtmlBody = "[img][/img]
<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td>"& Request.Form("dicitura1") &"</td></tr></table>
<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td><font size=""2"" color=""#9A9A9A"" face=""arial"">"& Request.Form("msg1") &"</font></td></tr></table>"
Else
cdoMessage.TextBody = strEmailMsg
End If
on error resume next
cdoMessage.Send
intErrNumber = Err.Number
set cdoMessage = Nothing
set cdoConfig = Nothing
rsNews.MoveNext
Loop
sto testando questo script funziona correttamente solo che all'invio di email determinati destinatari la rigettano probabilmente perche ho rilevato questo
quando arriva l'email nella stringa A: c'è il vuoto
non vorrei che quell'indirizzo rilevando il vuoto la respinge come SPAM
potrei indicare un indirizzo o qualcosa per evitare questo problema ????
Attendo notizie.
Grazie in anticipo
Rispondi quotando
