[RESOLVED] Hyperlink text

[jokerfool]

I have searched the forum and havent found my answer so I am posting it here.


On a form just like a website where you have the text which is hyperlinked, id like to have some text which is hyperlinked to an email address, can someone provide an example please?

Thank you.

[Hack]

And, when the email address is clicked, what would happen?

Would you want that email address to be auto populated on the To: line of your default mail service?

[jokerfool]

errr please explain? Basically if a user clicks an email link then there email client will load pointing to the to: yes. Hopefully this isnt confusing.

[Hack]

Presuming you are using a Label. If not, change accordingly

Option Explicit

Private 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

Private Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()
Dim MailMe As String
MailMe = "mailto:" & Label1.Caption
ShellExecute Me.hWnd, "open", MailMe, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[jokerfool]

ok added:

Private Sub Label1_Click()
Dim MailMe As String
MailMe = "mailto:[email protected]" & Label1.Caption
ShellExecute Me.hWnd, "open", MailMe, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

When u click the label the email opens up but on the end of the email addy is the name of what I call the Label, which will cease to operate the email address.

Any way around this?

[jokerfool]

Thank you. Worked it out removing the label and caption. Much appreciated.