Info

Private Sub lbl_Email_Click() Dim lngRow As Long

ShellExecute 0&, "open", "mailto:" & lbl_Email.Caption, _ vbNullString, vbNullString, SWNormal

End Sub

Private Sub lbl_Website_Click() Dim lngRow As Long

ShellExecute 0&, "open", lbl_Website.Caption, _ vbNullString, vbNullString, SWNormal

End Sub

The VBA code for lbl_Email_Click causes the client's default email program to open with an address filled in the To field as shown in Figure 22.8.

Figure 22.8

You can easily add the convenient functionality of clickable links on your userform with the right API declaration.

Figure 22.8

You can easily add the convenient functionality of clickable links on your userform with the right API declaration.

0 0

Post a comment