CDOSYS e DB

[cicciopipitone]

Ho creato uno script asp per inviare mails tramite CDOSYS.
Ho inserito un ciclo WHILE NOT/WEND per "prelevare" i destinatari dal DB "rubrica" cosicchè invio una singola mail per ogni destinatario (ed evitare di mandare mails con 50 destinatari in CCN).
Lo script è così fatto:

* apro il DB
* estraggo il primo destinatario e lo assegno alla variabile DESTINATARIO
* confirguro CDOSYS
* invio la mail con .SEND
* "chiudo" CDOSYS con SET ... NOTHING
* passo al destinatario successivo con RS.MoveNext
* chiudo il ciclo con WEND e chiudo il DB

NON FUNZIONA.... mi dice che il .SEND non vale...

se però "prendo" un singolo DESTINATARIO dal DB (... WHERE ID = X) funziona....

C'è qualcosa che mi sfugge.....

[Roby_72]

Si, facci vedere lo script.

Roby

[cicciopipitone]

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

[Roby_72]

La tabella ha una email per ogni record oppure ci sono dei record in cui manca?

Roby

[cicciopipitone]

1 email X record.... poi c'è il nome del destinatario, ma mi serve solo per la visualizzazione