I have a Userform with a Textbox. I need to Split the Firstname Lastname into a Hyperlink.
Here is the code I have from another Textbox to Hyperlink:
Code: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 Sub CommandButton1_Click() Dim lngOpenPage As Long lngOpenPage = ShellExecute 'This is from a past project (Application.hwnd, "Open", "http://eic.mycompany.com/eic_drw/qr/" & TextBox1.Text, 0&, 0&, 0&) 'What are the 0& at the end of this? 'lngOpenPage = ShellExecute 'This is the one I need to execute. I just need the Firstname Lastname split from Textbox1. (Application.hwnd, "Open", "http://edirectory.mycompany.com/ldap/CorpDirServlet?snMatch=exact&givennameMatch=exact&action=FindEmployee&sn=Lastname&givenname=Firstname&MiddleInitial=&telephoneNumber= End Sub




Reply With Quote
