I Need Outlook Com Add In Help Needed, Please

[okaka]

Problem Specification (draft)

Functions:
1)
To calculate a running total of flexible working hours and show it in
calendar view based on a reference calendar which is on server in
"Public Folders" with a name "Standard Working Hours"

A separate "balance ticket" can be generated as well and user may open
the balance ticket to get all the required information (daily and
running
balance). Runnig total and the updating of changed data may be a bit
challenging to program !

Another option is to place the information in the "Tasks" folder of
the user or some other special "Own Working Hours"

2)
To calculate own daily working hours based on a reference calendar
which is on server in "Public Folders" with a name "Working Hours"

3)
To check that there are no overlapping hours (overlapping
appointments are OK, but the ones starting with an integer are not
permitted to
overlap). A RED error ticket may be generated or some other form of
error
message should be displayed to the user in error condition.

4)
TO make a balance correction - if needed based on special "balance
correction" appoinment on the day given for the future days

5)
To produce a (given time span) report of used working hours to
specific codenumber or task. This is extra bonus feature.

Tools:
1) Outlook-2000 + forms
2) visual basic


'My attempted solution

'log the user on to the application
strLogonID = Request.ServerVariables("Logon_User")
strMailbox = Right(strLogonID, Len(strLogonID) - InStr(strLogonID, "\"))
 
' Construct CDO profile
strProfileInfo = strServer + vbLF + strMailbox
 
' Create CDO session
Err.Clear
On Error Resume Next
Set objSession = Server.CreateObject("MAPI.Session")
 
' Logon with authenticated CDO profile
Err.Clear
On Error Resume Next
objSession.Logon "", "", False, True, 0, True, strProfileInfo
 
Private WithEvents moOL As Outlook.Application
Private WithEvents moNS As Outlook.NameSpace
Private WithEvents moActiveExplorer As Outlook.Explorer
 
Sub TestColorLabel()
    Dim objItem As Object
    Dim thisAppt As AppointmentItem
    
    Set objItem = Application.ActiveExplorer.Selection(1)
    If objItem.Class = olAppointment Then
        Set thisAppt = objItem
        Call SetApptColorLabel(thisAppt, 3)
    End If
    
    Set objItem = Nothing
    Set thisAppt = Nothing
End Sub
 
Sub SetApptColorLabel(objAppt As Outlook.AppointmentItem, _
                      intColor As Integer)
    ' requires reference to CDO 1.21 Library
    ' adapted from sample code by Randy Byrne
    ' intColor corresponds to the ordinal value of the color label
        '1=Important, 2=Business, etc.
    Const CdoPropSetID1 = "0220060000000000C000000000000046"
    Const CdoAppt_Colors = "0x8214"
    Dim objCDO As MAPI.Session
    Dim objMsg As MAPI.Message
    Dim colFields As MAPI.Fields
    Dim objField As MAPI.Field
    Dim strMsg As String
    Dim intAns As Integer
    On Error Resume Next
    
    Set objCDO = CreateObject("MAPI.Session")
    objCDO.Logon "", "", False, False
    If Not objAppt.EntryID = "" Then
        Set objMsg = objCDO.GetMessage(objAppt.EntryID, _
                                   objAppt.Parent.StoreID)
        Set colFields = objMsg.Fields
        Set objField = colFields.Item(CdoAppt_Colors, CdoPropSetID1)
        If objField Is Nothing Then
            Err.Clear
            Set objField = colFields.Add(CdoAppt_Colors, vbLong, intColor, CdoPropSetID1)
        Else
            objField.Value = intColor
        End If
        objMsg.Update True, True
    Else
        strMsg = "You must save the appointment before you add a color label. " & _
                 "Do you want to save the appointment now?"
        intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Set Appointment Color Label")
        If intAns = vbYes Then
            Call SetApptColorLabel(objAppt, intColor)
        End If
    End If
                      
    Set objMsg = Nothing
    Set colFields = Nothing
    Set objField = Nothing
    objCDO.Logoff
    Set objCDO = Nothing
 
Sub AddHours()
Dim i As AppointmentItem
Dim h As Single
'totals the hours for selected appointmentItems
h = 0
For Each i In ActiveExplorer.Selection
h = h + DateDiff("n", i.Start, i.End)
Next i
MsgBox Format(h / 60, "0.0") & " Hours", vbInformation, "Total Hours"
End Sub

//This doesnt work...I have been trying to debug but to no avail, just highlighting so many errors. I guessed I need to develop a COM ADD IN...I dont know much about this, even I tried running downloaded samples from this site but couldnt get it to run, but dont know how to go about this. Any help would be greatly appreciated. thanks in advance