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:
codice: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
![]()

Rispondi quotando