Any ideas on how i can successfully place the VBScript below into Outlook Public Folder for all users to see?

Sub webshortcut()
On Error GoTo ServiceDeskRequest_Error
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objM As Outlook.Account

Dim objIE As Object
Dim strURL As String
Dim strUser As String
Dim strSMTP As String
Dim strPassword As String
Set objOL = Outlook.Application
Set objNS = objOL.Session

'get user email address
Set objM = objNS.Accounts.Item(1)
strSMTP = objM.SmtpAddress

'Get current user email user
'strUser = objNS.Session.CurrentUser.Address
'MsgBox strSMTP

Outlook.ActiveExplorer.Panes.Item("OutlookBar".Contents.Groups.Item(1).Shortcuts.Add "http://10.2.100.52/OutlookServiceRequest/TheForm.asp?email=" & strSMTP, "Service Desk", 1

'Cleanup memory
Set objNS = Nothing
Set objOL = Nothing
Set objM = Nothing

Exit Sub
ServiceDeskRequest_Error:
MsgBox Err.Description
'Resume Next
Set objNS = Nothing
Set objOL = Nothing
Set objM = Nothing
End Sub

Private Sub Application_Startup()