Newsgroup: it.comp.appl.access
Titolo: invio circolari tramite mailing list

Ciao a tutti, ho questo problema: sto creando un db che mi gestisca l'invio
delle circolari ad una mailing list di clienti.
uso il comando
DoCmd.SendObject acTable, "testi", "RichTextFormat(*.rtf)", "", "",
"MAILING_LIST", "circolare", "prova", False, ""
solo che non so come indicare, al posto della parola MAILING_LIST, di
prendere gli indirizzi mail da un campo "e-mail" in una tabella che si
chiama "invii" .
se al posto di "MAILING_LIST" metto [e-mail].[invii] mi dice che non trova
il campo invii
grazie dell'eventuale aiuto
skipper dixit...

"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:WJ0zb.1769$5o6...@tornado.fastwebnet.it...

Al posto di Mailing_list dovresti sostituire l'elenco degli indirizzi,
separati da punto e virgola. Per cui, prima dovresti crearti una stringa
contenente tutti i destinatari, presi dalla tabella invii.
Ciao
Salvatore

"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:WJ0zb.1769$5o6...@tornado.fastwebnet.it...

Apri un recordset sulla tabella o query che contiene la mailing-list; creati
un ciclo Do ... Loop con il quale scorri tutti i record e per ognuno di esso
esegui una:
DoCmd.SendObject acTable, "testi", "RichTextFormat(*.rtf)", "", "",
rs!Pippo, "circolare", "prova", False, ""
dove rs è il nome del recordset che hai aperto e Pippo è il nome del campo
che contiene l'indirizzo e-mail.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:WJ0zb.1769$5o6...@tornado.fastwebnet.it...

Una soluzione potrebbe essere questa:
Dim rst1 As Recordset
Dim elenco As String
Dim s, t As Integer
Set rst1 = CurrentDb.OpenRecordset("invii")
rst1.MoveFirst
rst1.MoveLast
t = rst1.RecordCount
rst1.MoveFirst
For s = 1 To t
If s = 1 Then elenco = rst1!e-mail Else elenco = elenco & ";" & rst1!e-mail
rst1.MoveNext
Next
DoCmd.SendObject acTable, "testi", "RichTextFormat(*.rtf)", "", "",elenco,
"circolare", "prova", False, ""
Ciao
Salvatore

 ha scritto nel messaggio
news:6s1zb.162613$e6.59...@twister2.libero.it...

ehm.... brutta cosa l'ignoranza....
se hai tempo e voglia mi puoi descrivere un esempio per aprire un recordset
e un ciclo Do...Loop ?
se è una cosa lunga non mi offendo se non hai tempo...
grazie
skipper dixit

"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:WJ0zb.1769$5o6...@tornado.fastwebnet.it...
[Ipercut]
 grazie a tutti dei consigli... funziona (OVVIAMENTE!!!)
 skipper dixit...

"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:%G1zb.1905$5o6....@tornado.fastwebnet.it...

Salvatore ti ha dato una delle possibili soluzioni; stai solo attento che
però ha usato la libreria Microsoft DAO, quindi se usi una aversione di
Access succesiva ad Access 97 dovrai aggiungere tale libreria ai riferimenti
del tuo database, avendo cura che quest'ultimo riferimento preceda, nella
lista dei riferimenti, l'eventale riferimento alla libreria Microsoft ADO.


 ha scritto nel messaggio
news:Nk2zb.158163$vO5.6...@twister1.libero.it...

ho proprio usato l'esempio di salvatore e per forttuna ho A97...
grazie
akipper dixit...

 ha scritto nel messaggio
news:bqi8rk$21g$1...@lacerta.tiscalinet.it...

prima di tutto grazie...
mettiamo caso che voglia utilizzare il comando solo per creare la lista di
utenti da immettere nella mail e che l'allegato lo inserisca manualmente
successivamente...
la mia assoluta ignoranza mi suggerisce di togliere la stringa relativa
(ovviamente si generano errori se elimino le stringhe sotto riportate)
- Next
- DoCmd.SendObject acTable, "testi", "RichTextFormat(*.rtf)", "", "",elenco,
"circolare", "prova", False, ""
mi puoi indicare le modifiche per favore?
grazie
skipper dixit...

"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio
news:qDmzb.3929$5o6....@tornado.fastwebnet.it...

Next lo devi per forza lasciare perchč fa parte dell'istruzione for. A
questo punto, il codice č servito per generare la stringa di testo "elenco".
Se chiarisci cosa vuoi farne, possiamo provare a studiare qualche soluzione.
Ciao
Salvatore

 ha scritto nel messaggio
news:bqkt9b$bg$1...@lacerta.tiscalinet.it...

ok.
Ho un database che mi gestisce l'invio delle circolari ai nostri clienti:
la prima fase č quella di definire l'elenco dei clienti da contattare quindi
seleziono dalla tabella "contatti" solo i clienti che intendo raggiungere.
La prima idea era quella di allegare in automatico un documento ma abbiamo
constatato che ci č piů comodo allegarlo una volta creata la mail con
l'elenco di tutti i contatti in "CCn"
In poche parole la procedura che mi hai inviato va benissimo ma vorrei
eliminare la parte relativa all'inserimento dell'allegato.
.... ma mentre ti scrivevo queste righe mi č venuto in mente che
probabilmente sarebbe bastato modificare la stringa in questo modo
- DoCmd.SendObject , "", "", "", "", elenco, "circolare", "prova", False, ""
Funziona...
scusa se ti ho fatto perdere tempo e grazie ancora
skipper dixit...

 scusa se ti ho fatto perdere tempo e grazie ancora
Prego, ciao.
Salvatore