creare una scritta per inviare email dal una form

[>>>---<>---<<< Simba883 >>>---<>---<<<]

quando l'utente clicca sulla mia email

simb...@libero.it presente nella form di visual basic, parte il metodo
mailto: che tutti conoscete
che permette di inviare un messaggio di posta elettronica con il programma
di default.

mi sapreste aiutare?

Grazie.

["Gigio2K"]

Simba:

1) Metti un oggetto webbrowser piccolino dimensionato con la grandezza della
tua email , fagli caricare una paginina html con solo la tua email

2) ci sono in giro degli ocx che hanno una textbox o una label che emulano
il web clik

--
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> http://www.ithn.it/
VB -> I.C.L.VB -> http://www.it-lang-vb.net/

[a.p]

""Gigio2K"" <baronef...@SPAM-YOURSELFyahoo.com> ha scritto

> Simba:
> > quando l'utente clicca sulla mia email
> > simb...@libero.it presente nella form di visual basic, parte il
> > metodo mailto: che tutti conoscete
> > che permette di inviare un messaggio di posta elettronica con il
> > programma di default.
> > mi sapreste aiutare?
>
> 1) Metti un oggetto webbrowser piccolino dimensionato con la
grandezza della
> tua email , fagli caricare una paginina html con solo la tua email
>
> 2) ci sono in giro degli ocx che hanno una textbox o una label che
emulano
> il web clik

una bella etichetta, magari col carattere in azzurro e la proprieta'
mousepointer=99-custom
scegliendo come icona la classica manina con l'indice puntato,
memorizzata in un image per comodita'.

testo dell'etichetta, p.e.:
http://www.sundaysw.com
oppure
mailto:postm...@sundaysw.com

bas

Public Const SW_SHOWNORMAL = 1

Public Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long

form

Public Sub ShExec(f As Form, ByVal sFile As String)
ShellExecute f.hWnd, vbNullString, sFile, vbNullString, "C:\",
SW_SHOWNORMAL
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
lblSSW.FontUnderline = False
End Sub

Private Sub lblSSW_Click()
ShExec Me, lblSSW.Caption
End Sub

Private Sub lblSSW_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
lblSSW.MouseIcon = imgHand.Picture
lblSSW.FontUnderline = True
End Sub

ciao