Newsgroup: it.comp.appl.access
Titolo: e-mail ??!

Ciao a tutti,
        qualcuno sa come si puň creare un campo con indirizzo mail in modo
da aprire direttamente una nuova mail?
E poi...
Se una query mi restituisce piů tuple č possibile spedire una stessa mail,
simultaneamente, agli indirizzi corrispondenti alle tuple?
Spero di essermi spiegato.
Grazie
Luca


Per l'email basta inserire nella maschera una "etichetta" e scrivere nelle
proprietà "Ind.coll.Ipertestuale" > mailto:
tuoind...@provider.it
Chiaramente sostituisci tuoindirizzo e 
provider.it
 con i dati della tua
email.
Ciao.
Flavio

 Luca
Se devi creare un Campo in una Tabella del tipo Anagrafiche
per poi abilitare l'utilizzo del BROWSER e non avere difficoltà
io ti consiglio questa soluzione:
1)In TABELLA Campo tipo TESTO    (se usassi Hyperlink avresti difficoltà
                                        relative, di composizione)
Ovviamente in questo campo inserisci : 
pi...@libero.it
2)Per rendere attivo il Link nella FORM in modo tale da abilitare l'apertura
del BROWSER inserisci nell'EVENTO CURRENT di Maschera
questo codice(Me.E_mail è la TextBox associata al campo della
tabella IndirizzoMail):
    If Len(Me.E_mail) > 0 Then
        Me.LinkMail.Hyperlink.Address = "mailto:" & Me.E_mail
    Else
        Me.LinkMail.Hyperlink.Address = vbNullString
    End If
Ciao.
@Alex.

ALESSANDRO Baraldi wrote:
 >
 > Se devi creare un Campo in una Tabella del tipo Anagrafiche
 > per poi abilitare l'utilizzo del BROWSER e non avere difficoltà
 > io ti consiglio questa soluzione:
 >
 > 1)In TABELLA Campo tipo TESTO    (se usassi Hyperlink avresti 
difficoltà
 >                                         relative, di composizione)
 > Ovviamente in questo campo inserisci : 
pi...@libero.it
 >
 > 2)Per rendere attivo il Link nella FORM in modo tale da abilitare 
l'apertura
 > del BROWSER inserisci nell'EVENTO CURRENT di Maschera
 > questo codice(Me.E_mail è la TextBox associata al campo della
 > tabella IndirizzoMail):
 >
 >     If Len(Me.E_mail) > 0 Then
 >         Me.LinkMail.Hyperlink.Address = "mailto:" & Me.E_mail
 >     Else
 >         Me.LinkMail.Hyperlink.Address = vbNullString
 >     End If
 >
 > Ciao.
 > @Alex.
 >
Ciao a tutti, ho lo stesso problema di Aldo, ovvero poter aprire il
browser predefinito con nel campo "A:" e o "CCn:" l'indirizzo e-mail
presente in una casella di testo di una maschera e/o magari con la
pressione di un comando inviare le mail a tutti gli indirizzi presenti
nella tabella di origine.
Ho provato a leggere i msg precedenti e anche guardato sul Sitocomune,
ma ho trovato poco o nulla al riguardo o almeno nulla di quello che mi
serviva. Ho provato a settare la proprietà del campo come "Collegamento
ipertestuale" ma come hai scritto tu non fuziona (legge il collegamento
come un indirizzo "http\\:" e non come un "mailto:").
Ieri hai postato questo codice e speravo di aver risolto i miei 
problemi, invece all'apertura della maschera mi dà un msg di errore: 
"Impossibile trovare il metodo o il membro dei dati" e in effetti il 
metodo .LinkMail non esiste (Access2000).
Non sapresti come poter risolvere i miei problemi? O magari indicarmi
dove e come poter trovare e "caricare" il metodo .LinkMail?
Grazie mille dell'aiuto.
per rispondermi "abbassa" LA VOCE
Enrico Fornasetti

"EnFo" <for...@VOCElibero.it> ha scritto nel messaggio
news:40609B48...@VOCElibero.it...

Mi scuso se ho mancato un pezzo LinkMail non è altro
che un controllo IMMAGINE(chiamato LinkMail) con l'ICONA della MAIL
in questo modo quando ci passi su con il MOUSE prende
la forma della MANINA.....!!!!
Per inviare la Mail a molti utenti ti basta comporre la stringa da passare
all'HyperLink in questo modo:
Stringa=mailto:
pi...@libero.it
;
pa...@libero.it
;
and...@libero.it
;......
volendo
puoi specificare il Subject, ma se fai qualche prova con il Wizzard vedrai
che torna tutto.
@Alex.
Ciao.
@Alex.

 Mi scuso se ho mancato un pezzo LinkMail non č altro


 Scusate... non ho capito esattamente la risposta: cosa devo scrivere
Per non parlare poi del fatto che si scrive correttamente DOPO il quoting!!!
Antonio

 
Scusami ma non ho capito nulla, le mie conoscenze non arrivano a 
tanto, ma ci
provo: devo fare in modo che il comando "mailto" sia uguale ad una 
stringa e che questa sia composta da uno oppure da tutti (a seconda di 
quello che voglio fare) i campi e-mail di una tabella. Più facile a 
dirsi che a farsi... non ci sarebbe qualcosina di più semplice?
Cmq sia grazie tante del suggerimento e della disponibilità che 
dimostrate sempre di avere con tutti, anche con chi è più "indietro".


 
Credo di esserci riuscito, ho letto l'help quello del modulo di VBA 
perchè quello
di access non mi dava niente :-). Cmq ho fatto un pulsante di comando 
con questo
codice:
	Private Sub Comando00_Click()
	On Error GoTo Err_Comando00_Click
     	Dim spediscimail As CommandButton
     	Set spediscimail = Me!Comando00
     	With spediscimail
         	.HyperlinkAddress = "mailto:" & [mia e-mail]
     	End With
	Exit_Comando00_Click:
     	Exit Sub
	Err_Comando00_Click:
     	MsgBox Err.Description
     	Resume Exit_Comando00_Click
	End Sub
e fa quello che cercavo, ovvero mi apre il browser predefinito con nel 
campo "A:" l'indirizzo mail contenuto nel campo della maschera 
chiamato "mia e-mail". Ora devo solo provare a comporre la stringa per 
fare in modo di spedire una mail a tutti gli indirizzi presenti nella 
tabella di origine.
Grazie degli input.


"EnFo" <for...@VOCElibero.it> ha scritto nel messaggio
news:4063624C...@VOCElibero.it...

Perfetto, è la soluzione corretta, per creare la STRINGA completa
immagino tu debba leggere da una tabella.....???
Crei un Recordset con il dato Mail e cicli il Recordset costruendo
la Stringa in questo modo:
Dim strRetMail as string
strRetMail=retMailingList()
If len(strRetMail)>0 then
    spediscimail.HyperlinkAddress = "mailto:" & strRetMail
End if
Private Function retMailingList() as string
Dim rs as DAO.Recordset
Dim strMail as string
    Set rs=Currentdb.Openrecordset("NomeTabella",dbopentable)
    If rs.eof AND rs.bof then msgbox("Nessuna Mail presente"):Exit sub
    rs.movefirst
    do until rs.eof
        strmail=strmail & rs.CampoMail & ";"
        rs.Movenext
    Loop
    rsmail=mid$(strMail,1,len(strMail)-1)
    retMailingList=rsmail
End Function
Ciao.
@Alex.