Ho creato un ciclo che mi consente di inviare mails con CDOSYS inviando una singola mail per destinatario, però non funziona. Il sistema mi dà l'errore alla riga dove c'è .SEND, quindi non invia le mails.
Prima usavo CDONTS e funzionava e le singole porzioni di script (l'invio con CDOSYS e l'interrogazione al DB) le ho provate e funzionano.
ecco lo script:
RS.Open "SELECT mail FROM rubrica"
WHILE NOT RS.EOF
mailTo = RS( "mail" )
' Crea l'oggetto CDOSYS
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")
' Proprietà di invio
with objMailConfig
' SMTP mail server
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miamail.com"
' Autenticate
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpAuthenticate") = cdoBasic
' User
.Fields("http://schemas.microsoft.com/cdo/configuration/SendUserName") = "user"
' PW
.Fields("http://schemas.microsoft.com/cdo/configuration/SendPassword") = "password"
' SMTP port
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' CDO port
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
end with
' Configurazione CDOSYS
Set objMail.Configuration = objMailConfig
with objMail
' Mittente
.From = "user@miamail.com"
' Destinatario
.To = mailTo
' Oggetto
.Subject = oggetto
' Corpo dell'email
.HTMLBody = testata & testo
' allegato
if allegato <> "" then
.AddAttachment "percorso/allegati" & allegato
end if
' Invia l'email
.Send
end with
Set objMail = Nothing
Set objMailConfig = Nothing
RS.MoveNext
WEND
RS.Close
Rispondi quotando
