cari colleghi smanettoni,
non riesco ad inviare email con CDOSYS "prendendo" i destinatari da un DB Access....
... la cosa strana è che specifico un destinatario (... WHERE ID = 123) funziona, eppoi quando usavo CDONTS funzionava, quindi suppongo che il ciclo vada in conflitto con CDOSYS

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