Eail multiple da Access - Problema limite

venerdì 01 gennaio 2010 - 20.09

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

vanni Profilo | Newbie

3 messaggi | Data Invio: ven 1 gen 2010 - 20:09

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

100 messaggi | Data Invio: sab 2 gen 2010 - 18:12

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

3 messaggi | Data Invio: lun 4 gen 2010 - 00:29

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

3 messaggi | Data Invio: lun 4 gen 2010 - 00:51

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"

Torna su

Stanze Forum

Elenco Threads

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 !