Buonasera,
Utilizzo la seguente Funzione per l'invio di una Mail List ma ho delle limitazioni sul numero dei Destinatari che per la mia estrazione e non essendo stata inviata agli 86 estratti ho risolto inviando con blocchi di 12 destinatari alla volta.
Come credete sia questa limitazione ??? non dovrebbe essere 500 ????
Grazie.
Function SpedisciEmail(Destinatari, DestinatariCC, DestinatariBCC, AllegatoEmail, OggettoEmail, MessaggioEmail)
On Error Resume Next
'
Dim OggOutlook As Object
Dim OggEmail As Object
'
Set OggOutlook = CreateObject("Outlook.Application")
Set OggEmail = OggOutlook.CreateItem(0)
'
With OggEmail
.To = Destinatari
.CC = DestinatariCC 'utile per inserire un indirizzo in copia
.bcc = DestinatariBCC 'utile per inserire un indirizzo in copia nascosta
.Subject = OggettoEmail
.BodyFormat = olFormatHTML
.HTMLBody = MessaggioEmail
' .Body = MessaggioEmail
.Send
End With
'
On Error GoTo 0
Set OggEmail = Nothing
Set OggOutlook = Nothing
'
End Function