Newsgroup: it.comp.appl.access
Titolo: Invio mail ad una lista di contatti

Ciao,
tramite una macro inviaoggetto, dove nell'opzione To ho una cosa del genere: 
=[Forms]![Miamaschera]![MiocontattoEMail] invio regolarmente messaggi di 
posta elettronica.
Ora vorrei inviare con un sistema analogo una mail a più indirizzi (sono 
presenti su un campo query), ma purtroppo nell'opzione To non è possibile 
mettere una cosa del tipo =[Query].[MiocontattoEMail]. C'è qualche semplice 
soluzione?
Chissà se Karl è ancora on line...
Grazie
Marzia 


=dlookup("nomecampo";"nometabella";"condizioni") ?
--
ac
x=y-1

 x=y-1
Solitamente definiscesi x la variabile indipendente ed y quella
dipendente.... perchè mai
tu hai fatto il contrario...? Non è che hai girato il grafico ....?
In questo caso y=x+1
;-)
Ciao
@Alex


Ciao, bentornato
Si ma in email c'e' scritto y-1 che secondo l'ascii e' effettivamente = x
dovrei scrivere infatti y-1 = x
Sto un po' incasse', ho appena preso un run-time 2427 che pare non avere 
nessuna logica. Mi va in errore, vado in debug, rieseguo la funzione e 
"funziona". E poi dicono che si deve usare access oibo' ;<)
Sono ancora piu' incasse' perche' sono entrati in ufficio e mi hanno 
fregato il PC. Sono quattro giorni che sto reinstallando SW e "porca 
troia" oltre all'ultima versione di un paio di applicazioni di cui non 
avevo fatto il back-up (bel danno, che sti "stronzi" se si facessero 
vivi guadagnerebbero piu' che a rivenderlo ivi compresi gli altri 
quattro che si sono fregati, solo uno era "intonso" e quello non vale 
una lira) mi e' sparito l'aggiornamento del "codice fiscale" in cui 
avevo messo un po' di "gadgets" oltre alla sistemazione della gestione 
dell'apice e dei caratteri nazionali.
Per non parlare del maledetto WindowsPlayer 10, non vede quasi piu' 
nulla. Manco degli squallidissimi mpg riesce a leggere ed oltretutto 
pare sia "quasi" impossibile disinstallarlo.
Manco il fatto che la "maggica" ha vinto 7-0 mi risolleva.
--
ac
y-1 = x

 ha scritto nel messaggio 
news:vJ08h.20238$mZ5....@tornado.fastwebnet.it...

Grazie,
ma non ho capito dove devo inserire questo ac y-1=x e soprattutto a cosa 
serve.
Ho inserito =DLookUp("MioCampo";"MiaQuery";"") ma così il messaggo di posta 
elettronica viene creato solamente con il primo indirizzo della query. Sono 
ancora al punto di partenza. Sigh!
Alessandroooooo ......
Ciao
Marzia

 Marzia
Con il DlookUp ricavi un solo elemento, mentre se vuoi avere la
possibilità di avere tutti i riferimenti devi sfruttare un Recordset e
ciclarlo...!
Ipotizzo che in MioCampo ci sia l'indirizzo Mail, quindi:
Dim strEmailList as string
Dim Rs as DAO.Recordset
Set Rs=CurrentDb.OpenRecordset("MiaQuery")
If Rs.Eof Then Exit Function
Do Until Rs.Eof
   strEmailList=strEmailList & Rs!MioCampo & ";"
   Rs.MoveNext
Loop
If Len(strEmailList)>1 Then
   strEmailList=Mid$(strEmailList,1,Len(strEmailList)-1)
Rs.Close
Set Rs=Nothing
MsgBox "Questo è L'elenco della ListaContatti"  & vbCrLf &
strEmailList
------- Funzione per Inviare MAIL
Ora come noterai nel Messaggio alla fine nella stringa strEmailList hai
la stringa formattata
correttamente per passarla a MAPI o a CDO o a quello che usi tu per
inviare la MAIL...
Ciao
@Alex

 ha scritto nel messaggio 
news:1164193716.5...@f16g2000cwb.googlegroups.com...
Marzia ha scritto:
 [CUT]









Ciao
@Alex
Grazie tante per l'aiuto ma dovete spiegarmi un po' meglio stà cosa perchè 
di certo non sono al vostro livello:
Allora, ricapitolando, tutto quel codice lo devo inserire nella mia macro 
Invia oggetto sotto la voce To ? E poi c'è qualcosa che non và nell'ultima 
riga MsgBox "Questo è L'elenco della ListaContatti"  & vbCrLf & strEmailList 
me la dà errata.
Marzia