Eail multiple da Access - Problema limite

venerdì 01 gennaio 2010 - 20.09

vanni Profilo | Newbie

Leggendo il vostro forum ho trovato un codice per inviare molte mail prelevando i dati da una query ed inviarle con Outlook.
Il codice scritto da Geppo funziona benissimo per inviare 20/30 email e si blocca se le email sono di più.
Io ho la neccessità di inviare 150/200 email per volta, ho letto che non ci sono limiti per Outlook per quanto riguarda il numero
dei destinatari ma a me si blocca restituendomi un errore il Visual Basic.( Erorre di run-time 87) (Errore imprevisto) sul debug mi restituisce
in giallo l'errore su "Application.FollowHyperlink strInput"
Qualcuno mi può aiutare a risolvere il mistero.
Non so se sbaglio qualcosa il codice è questo:

Private Sub Comando30_Click()
Dim rst As Recordset
Dim vMail
Dim strInput
Set rst = CurrentDb.OpenRecordset("qry_Associati")
Do While Not rst.EOF
vMail = vMail & rst.Fields("EMAIL")
vMail = vMail & ";"
rst.MoveNext
Loop
strInput = "mailto:?bcc=" & vMail
Application.FollowHyperlink strInput
End Sub

Grazie
Vanni

nikkysixx Profilo | Junior Member

Ho il tuo identico problema con questo codice

Con poche email funziona...gia con 80 0 100 mi da il tuo stesso errore :(

Private Sub Comando14_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMail As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT Contatti.Email FROM Contatti")
If rs.RecordCount = 0 Then
MsgBox "nessun record trovato"
Exit Sub
End If
While Not rs.EOF
strMail = strMail & rs("Email") & ";"
rs.MoveNext
Wend
'MsgBox strMail
Set rs = Nothing
FollowHyperlink "mailto:" & strMail

End Sub

vanni Profilo | Newbie

A me non mi è ancora riuscito risolvere il problema, a me basterebbero
80/100 email ma mi mi si blocca, anche con il tuo codice sempre su 25/30 imvii.
Bah!

vanni Profilo | Newbie

Ho trovato questo e funziona anche con 200/300 email senza problemi,
L'unico problema è che mette gli indirizzi in A e non in Ccn


Dim rs As DAO.Recordset

Dim db As Database

Dim v_stringa, v_mailing As String

Set rs = CurrentDb.OpenRecordset("Select Email From qry_Associati where Email is not null")


Do While Not rs.EOF
v_stringa = (v_stringa + ";") & rs.Fields("Email")
rs.MoveNext
Loop

v_len = Len(v_stringa)

v_len = v_len - 1

v_mailing = Mid(v_stringa, 2, v_len)

DoCmd.SendObject , , , v_mailing, "", "", Testo78, "", True
_"C:\Documents and Settings\Salvo\Documenti\Pubblicazione2.htm"
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5