Ciao a tutti,
ho in VBA (Access 2003 SP2) uno script che invia una mail ad un certo numero di destinatari (tutti in BCC).
Gli indirizzi dei destinatari vengono presi da una tabella CLIENTI.
Lo script funziona benissimo, se non per il fatto che se i destinatari sono piu di 90, ricevo un "
Errore di runtime 87. Errore imprevisto".
Lo script è il seguente:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMail As String
Dim Subjectline As String
Dim BodyFile As String
Dim MyBodyText As String
Dim strBCC As String
Subjectline = Me.Testo1.Value
BodyFile = Me.Testo2.Value
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT Email FROM clienti WHERE (EMail <> ' ')")
If rs.RecordCount = 0 Then
MsgBox "Nessun indirizzo email trovato!", vbCritical, "ERROR"
Exit Sub
End If
While Not rs.EOF
strMail = strMail & rs("Email") & ";"
rs.MoveNext
Wend
Set rs = Nothing
FollowHyperlink "mailto:?bcc=" + strMail + "&subject=" + Subjectline + "&body=" + BodyFile
Exit Sub
IL codice funziona perfettamente. Lo script cicla i destinatari e li mette tutti in BCC aprendo una nuova finestra del mio programma di posta predefinito (in questo caso Outlook 2013), ma solo se nella mia tabella CLIENTI ho meno di 90 indirizzi email. Sopra i 90 mi da l'errore sopra citato senza nemmeno arrivare ad aprire la finestra del programma di posta.
Quando ricevo l'errore, se apro il debug, mi rimanda a questa riga:
FollowHyperlink "mailto:?bcc=" + strMail + "&subject=" + Subjectline + "&body=" + BodyFile
Quindi sembrerebbe che fa tutto ma si inchioda quando deve lanciare Outlook.
Qualche idea?
Grazie