hyperlink image for email

[pswanie]

I got a image on a userform. what will the code behide it be to hyperlink
mailto?

this dont work but more or less what i need...

========================================================================
Private Sub Image1_Click()
mailto:[email protected]
subject: suport needed
End Sub
========================================================================

 

[ward376]

You don't need to use code to create an email, right-click the image
and use the Hyperlink option.

Cliff Edwards

 

[pswanie]

i tried that but there is no such option on the right click menu

 

[ward376]

Sorry, I overlooked that your image was on a form. John Walkenbach has
an example of adding a hyperlink to a form; I would think you coud
adapt it to an image on a userform.

http://www.j-walk.com/SS/excel/tips/tip71.htm

Cliff Edwards

 

[ward376]

Yep, it works:

Private Sub Image1_Click()
Dim link As String
link = "mailto:[email protected]"
On Error GoTo NoCanDo
ThisWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload UserForm1
Exit Sub
NoCanDo:
MsgBox "Cannot open " & link
End Sub

Cliff Edwards