Outlook ax Code

崬城衞

1 <HR>
2<script language="javascript">
3var State = "Inbox";
4function NewObj()
5 {
6 var oViewCtlFolder = document.getElementById("ViewCtlFolder");
7if(State == "Inbox")
8 {
9oViewCtlFolder.NewMessage();
10 }
11if(State == "Calendar")
12{
13oViewCtlFolder.NewAppointment();
14}
15if(State == "Tasks")
16{  
17oViewCtlFolder.NewTask();
18}
19if(State == "Contacts")
20{
21oViewCtlFolder.NewContact();
22}
23 }
24function changefolder(folderRef)
25{
26try
27{
28var oViewCtlFolder = document.getElementById("ViewCtlFolder");
29var olnkNewText = document.getElementById("lnkNew");
30var oFolderText= document.getElementById("FolderText");
31State = folderRef;
32FolderText.innerHTML = folderRef;
33if(folderRef == "Inbox")
34{
35olnkNewText.innerHTML = "New mail";
36oViewCtlFolder.folder = "Inbox";
37}
38if(folderRef == "Calendar")
39{
40olnkNewText.innerHTML = "New Appointment";
41oViewCtlFolder.folder = "Calendar";
42}
43if(folderRef == "Tasks")
44{
45olnkNewText.innerHTML = "New Task";
46oViewCtlFolder.folder = "Tasks";
47}
48if(folderRef == "Contacts")
49{
50olnkNewText.innerHTML="New contact";
51oViewCtlFolder.folder = "Contacts";
52}
53}
54catch(e)
55{}
56}
57</script>
58<center>
59
60<a href="javascript:changefolder('Inbox');" >Inbox</A>
61
62<a href="javascript:changefolder('Calendar');" >Calendar</A>
63
64<a href="javascript:changefolder('Contacts');" >Contacts</A>
65
66<a href="javascript:changefolder('Tasks');" >Tasks</A>
67
68<H2 id="FolderText">Inbox</H2>
69</center>
70<object classid="clsid:0006F063-0000-0000-C000-000000000046" id="ViewCtlFolder" width="100%" height="300px" codetype= "application/x-oleobject"codebase="http://activex.microsoft.com/activex/controls/office/outlctlx.CAB#ver=9,0,0,3203">
71<param name="Namespace" value="MAPI">
72<param name="Folder" value="Inbox">
73<param name="Restriction" value="">
74<param name="DeferUpdate" value="0">
75</object>
76<center><H2><a href="javascript:NewObj();" id="lnkNew">New mail</A></H2>
77</center>
78