Invio email multiple

[santino83]

Salve,

volevo sapere se con CDO è possibile mandare la stessa email a più indirizzi email senza dover inviare una email ad un indirizzo email con una istruzione. Cioè mi spiego: avete presente quando con la vostra posta personale mandate una catena? scrivete: "indirizzo1, indirizzo2, ...." in maniera che poi lui ve la mandi a quegli indirizzi...io volevo sapere se si può fare la stessa cosa. A me la virgola non me l'ha accettata, voi avete qualche idea? Per il momento risolvo con un ciclo WHILE, però per inivare 7 email ci mette abbastanza, magari potvo ridurre ulteriormente se potessi fare il send della email una volta sola.

vi posto il codice a titolo di informazione:

Set MyMail = CreateObject("cdo.message")
MyMail.From = indirizzoDipartenza
MyMail.Subject = soggetto
MyMail.HtmlBody  = corpo
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = sendusing
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = username
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = smtpauthenticate
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpserverport
MyMail.Configuration.Fields.Update

utenti.movefirst()
while not utenti.eof
indirizzo=utenti("email")
MyMail.To = indirizzo
MyMail.SEND
utenti.movenext()
wend

[weppos]

Devi generare un ciclo di invio.
Il metodo più semplice è inserire gli indirizzi del destinatario in un array, ciclare i valori dell'array e per ciascuno inviare l'email.

[santino83]

vabbeh è come ho fatto io solo che io uso un ciclo while...tanto credo che sia usando un array con un ciclo for sia solo un ciclo while il costo operazionale dell'invio delle email rimanga pressochè invariato, no?

[weppos]

Devi ciclare l'intero script di invio email.