alexxx71 ha scritto:
Grazie gibra, sapresti indicarmi come farlo? Non l'ho mai fatto e non so come muovermi...
Devi spostare l'invio delle email all'interno del ciclo While/Wend.
Usi un contatore per capire quanti indirizzi hai 'incamerato' nella variabile strMail, e quando arrivi a 90 invii l'email, poi continui il ciclo con i prossimi record.
1) Apri il recordset
2) inizi il ciclo:
Dim intConta as integer
While Not rs.EOF
strMail = strMail & rs("Email") & ";"
iConta = iConta + 1
If iConta = 90 then
FollowHyperlink "mailto:?bcc=" + strMail + "&subject=" + Subjectline + "&body=" + BodyFile
iConta = 0 ' azzeri le variabili di comodo
strMail = 0
End If
rs.MoveNext
Wend