Newsgroup: it.comp.appl.access
Titolo: Mail a molti destinatari

Ciao,
ho un DB per la gestione della contabilità della mia azienda.
All'interno di esso ho un migliaio di clienti con le rispettive mail.
Vorrei realizzare una maschera con un pulsante che mi permette l'invio
di una mail con allegato, per comunicare loro, le ferie o cose di
questo genere. Fino ad ora ho predisposto l'invio di una sola mail ad
un singolo destinatario (ad esempio una fattura o un DDT), vorrei
invece inviare la stessa mail a più destinatari contemporaneamente
(non vorrei mettere i miei contatti all'interno del campo A: o CCN:
intervallandoli con il ; poichè, come detto, ne ho + di mille e
Outlook non supporta un quantitativo così alto di destinatari per una
singola mail). Avete un'idea per realizzare questo?
Grazie a tutti quelli che mi leggono e/o mi aiutano...
SimoneB

>>>>  
http://www.bb2002.it
 :)  <<<<<

SimoneB was thinking very hard :

Che cosa usi per inviare la posta da Access?
Outlook, Outlook Express, codice generico VBA?
Bruno

 ha scritto nel messaggio 
news:e57676b3-c0d3-4707...@l32g2000yqc.googlegroups.com...
Ciao,


SimoneB
----------------------------------------
Hai mai pensato a Blat.exe? In questo NG trovi alcuni post.
Ciao, Carlo 

 Ciao, Carlo
Ho risolto con questo codice VBA:
DoCmd.SetWarnings warningsoff
DoCmd.OpenQuery ("Destinatari Mail - creazione tabella")
DoCmd.SetWarnings warningson
Dim rstEmail As New ADODB.Recordset
Dim strDestinatario As String
Dim appoutlook As New Outlook.Application
Dim mail As Outlook.MailItem
Dim filtro As Long
Dim allegato As String
If IsNull(Me.Testo6.Value) Then
Set appoutlook = CreateObject("outlook.application")
If IsNull(Me.CasellaCombinata11.Value) Then
rstEmail.Open "DestinatariOK", CurrentProject.Connection,
adOpenForwardOnly
Else
filtro = Me.CasellaCombinata11.Value
rstEmail.Open "SELECT * FROM DestinatariOK WHERE (Gruppo) =" & filtro,
CurrentProject.Connection, adOpenForwardOnly
End If
Do Until rstEmail.EOF
strDestinatario = rstEmail![Email]
If Not strDestinatario = "" Then
Set mail = appoutlook.CreateItem(olMailItem)
With mail
.To = strDestinatario
.Subject = Me.Testo1.Value
.HTMLBody = Me.Testo4.Value
.Send
End With
Set mail = Nothing
End If
rstEmail.MoveNext
Loop
Else
Set appoutlook = CreateObject("outlook.application")
If IsNull(Me.CasellaCombinata11.Value) Then
rstEmail.Open "DestinatariOK", CurrentProject.Connection,
adOpenForwardOnly
Else
filtro = Me.CasellaCombinata11.Value
rstEmail.Open "SELECT * FROM DestinatariOK WHERE (Gruppo) =" & filtro,
CurrentProject.Connection, adOpenForwardOnly
End If
allegato = "c:\DITTA\" & Me.Testo6.Value
Do Until rstEmail.EOF
strDestinatario = rstEmail![Email]
If Not strDestinatario = "" Then
Set mail = appoutlook.CreateItem(olMailItem)
With mail
.To = strDestinatario
.Subject = Me.Testo1.Value
.HTMLBody = Me.Testo4.Value
.Attachments.Add (allegato)
.Send
End With
Set mail = Nothing
End If
rstEmail.MoveNext
Loop
End If
End Sub


-----------------------------------------
Dopo aver provato diverse soluzioni sono passato a Blat e non lo mollo piu'
Proooovaaa
Ciao
RobertoA

"SimoneB"  ha scritto nel messaggio 
news:880e54f0-6a89-4582...@f8g2000yqd.googlegroups.com...




If IsNull(Me.Testo6.Value) Then

If IsNull(Me.CasellaCombinata11.Value) Then

Else

End If


With mail

End With
Set mail = Nothing
End If
rstEmail.MoveNext
Loop
Else

If IsNull(Me.CasellaCombinata11.Value) Then

Else

End If



With mail

End With
Set mail = Nothing
End If
rstEmail.MoveNext
Loop
End If
End Sub
Ciao Simone,
ho provato il codice perchè mi interesserebbe utilizzarlo però mi da il 
seguente errore:
impossibile trovare WAB DLL
utilizzo windows7 e Office 2000.
Saluti
Thomas.az