link da label

[skyhunter]

Salve!
Può sembrare banale ma il quesito è questo: come faccio a creare un link del tipo "mailto:indirizzo@indirizzo.in" da una label?

Grazie

[codo82]

Private Sub Label1_Click()
Shell ("explorer mailto:indirizzo@indirizzo.in")
End Sub

ovviamente label1 è la tua label

[iguana13]

Per dare 1 effetto + realistico metti la proprietà forn con underline = true e qualche colore

[codo82]

meglio ancora potresti anche caricare la proprietà MouseIcon con la manina(la trovi su c:/windows/cursor) e settare la proprietà MousePointer a 99 - Custom

[iguana13]

meglio ancora sarebbe metterci questo:

Dim Visited As Boolean

Private Sub Form_Load()
Visited = false
Label1.forecolor = &H0000FF
End Sub

Private sub Label1_Click()
Shell ("explorer mailto:indirizzo@indirizzo.in")
Visited = True
End Sub

Private sub Label1_MouseMove(...)
Label1.Forecolor = &Hff0000
End Sub

Private Sub Form_MouseMove(...)
If Visited = False Then
    Label1.Forecolor = &H0000FF
Else
    Label1.ForeColor = &H880088
End if
End sub

magari modificando i colori

[iguana13]

Mai cliccare 2 volte invia messaggio...
E soprattutto non premere "Indietro" ed "Invia nuovamente informazioni" sul browser...

[skyhunter]

perdonate l'ignoranza ma scrivendo

Shell ("explorer mailto:indirizzo@indirizzo.in")

mi si apre anche IE con l'indizizzo email. Ci sarebbe un metodo simile ma che non faccia aprire il browser?