Trying to link a button to an outlook public form when clicked I get this message from the user webpage.

Webpage error details

User Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.6; InfoPath.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Timestamp: Sun, 20 Feb 2011 01:27:45 UTC


Message: ActiveX component can't create object: 'Outlook.Application'
Line: 18
Char: 5
Code: 0
URI: file://it-pc/Intranet%20Files/MCR%20Intranet/HTML/help.htm

Below is the code behind the button


1 !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
2 html xmlns="http://www.w3.org/1999/xhtml"
3 head
4 meta http-equiv="Content-Type" content="text/html; charset=utf-8" /
5 titleUntitled Document/title
6 /head
7
8
9
10
11 SCRIPT LANGUAGE="VBScript"
12 !--
13 Sub Button1_OnClick
14 Dim outlookApp, oNameSpace
15 Dim oFolder1, oFolder2, oFolder3
16 Dim oItems, oMailItem
17
18 Set outlookApp = CreateObject("Outlook.Application")
19 Set oNameSpace = outlookApp.GetNameSpace ("MAPI")
20 Set oFolder1 = oNameSpace.Folders ("Public Folders")
21 Set oFolder2 = oFolder1.Folders ("All Public Folders")
22 Set oFolder3 = oFolder2.Folders ("Service Request")
23
24 Set myExplorer = oFolder3.GetExplorer
25 myExplorer.Display
26 Set oItems = oFolder3.Items
27 Set oMailItem = oItems.Add ("IPM.Task.SR Ticket")
28 oMailItem.Display
29 End Sub
30 --
31 /SCRIPT
32 /head
33 body
34 form
35 Open Help Desk Ticket br
36 INPUT NAME="Button1" TYPE="BUTTON" VALUE="Open Help Desk Ticket" brbr
37 /form
38 /body
39 /html