Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 4.27

*************************
4.27 Email with address from a text box
Problem
In a form you have a text box with a mail address and want to open
your standard mail program with a new mail to the address in the
text box.
Solution
Use the following code (in >=A97):
DoCmd.SendObject , , , Me!MyTextbox, , , , , True
Note: If you have changed the text and the cursor is still in the
text box when you want to start the mail, you have to use
DoCmd.SendObject , , , Me!MyTextbox.Text , , , , , True
With the SendObject method you can also hand over e.g.
the subject and the text of the mail. see <F1>
If you absolutely want to use a hyperlink field instead of a text field,
there's the problem that the normal user doesn't know that he
would have to enter "mailto:" before the actual mail address.
If he doesn't do so Access always treats it as a web address,
automatically sets "http://" before the text and opens the browser.
If you want to avoid that, you can correct the input in the event
After Update of the text box:
If InStr(Me!MyTextbox, "@") > 0 Then
  If InStr(Me!MyTextbox, "#http") > 0 Then
    Me!MyTextbox = "#mailto:" & Mid(Me!MyTextbox, 1, InStr(Me!MyTextbox, 
"#http") - 1) & "#"
  End If
End If
*************************
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1) 

 Solution





4.27 E-mail con indirizzo da casella di testo.
Problema
In una maschera è presente una casella di testo con un indirizzo e-mail e
si vuole aprire il programma di posta elettronica predefinito con un nuovo
messaggio di posta verso l'indirizzo della casella di testo.
Soluzione
Si utilizzi il seguente codice (per >=A97):
DoCmd.SendObject , , , Me!MiaCaselladiTesto, , , , , True
Nota: se si è modificato il testo ed il cursore si trova ancora nella
casella di testo al momento di inviare l'e-mail, si deve utilizzare:
DoCmd.SendObject , , , Me!MiaCaselladiTesto.Text , , , , , True
Con il metodo SendObject si può controllare anche, per esempio, l'oggetto
ed il testo dell'e-mail. Vedi <F1>.
Se si vuole assolutamente usare un indirizzo ipertestuale invece di una
casella di testo, esiste il problema che l'utente non sa di dover inserire
"mailto:" davanti all'effettivo indirizzo e-mail. Se non lo fa, Access, lo
considera sempre come un indirizzo internet e, in automatico, imposta
"http://" davanti al testo ed apre il browser. Se si vuole evitare ciò, si
può correggere l'immissione sull'evento Dopo aggiornamento della casella
di testo:
If InStr(Me!, "@") > 0 Then
 If InStr(Me!MiaCaselladiTesto, "#http") > 0 Then
   Me!MiaCaselladiTesto = "#mailto:" & Mid(Me!MiaCaselladiTesto, 1,
InStr(Me!MiaCaselladiTesto, "#http") - 1) & "#"
 End If
End If
*************************
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Solution





4.27 E-mail con l’indirizzo (preso) da una casella di testo
Problema
In una maschera hai una casella di testo con un indirizzo e-mail e vuoi
aprire il tuo programma standard di posta elettronica per inviare una
nuova e-mail con l’indirizzo che è nella tua casella di testo.
Soluzione
Utilizza il codice seguente (nelle versioni >=A97):
DoCmd.SendObject , , , Me!MiaCasellaDiTesto, , , , , True
Nota: Se hai modificato il testo e il cursore è ancora nella
casella di testo quando vuoi inviare la e-mail, devi utilizzare
DoCmd.SendObject , , , Me!MiaCasellaDiTesto.Text , , , , , True
Con il metodo SendObject puoi anche collocare, p. e., il soggetto e
il testo della e-mail. Vedi <F1> Help.
Se vuoi assolutamente utilizzare un campo ipertesto invece di un campo
testo, c’è il problema che il normale utente non sa che dovrebbe inserire
"mailto:" davanti al vero indirizzo e-mail.
Se non fa così Access lo tratta sempre come indirizzo web,
imposta automaticamente  "http://" davanti al testo e apre il browser.
Se vuoi evitare ciò, puoi correggere l’inserimento nell’evento 
”Dopo aggiornamento” della casella di testo:
If InStr(Me! MiaCasellaDiTesto, "@") > 0 Then
If InStr(Me! MiaCasellaDiTesto, "#http") > 0 Then
Me! MiaCasellaDiTesto = "#mailto:" & Mid(Me! MiaCasellaDiTesto, 1,
InStr(Me! MiaCasellaDiTesto, "#http") - 1) & "#"
End If
End If
--
rgrds
SC
