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

[RobDog888]

To start, appointment color labels only work on Outlook 2002 and above.

You say it doesnt work but lets look at one issue at a time.

After describing the problem, whats the first problem we should solve?

[okaka]

To start, appointment color labels only work on Outlook 2002 and above.

You say it doesnt work but lets look at one issue at a time.

After describing the problem, whats the first problem we should solve?

Thanks for your response.

To start, appointment color labels only work on Outlook 2002 and above.

Thats why i am confused

You say it doesnt work but lets look at one issue at a time.

I tried to compile and run your own Add In you put on the tutorials, but got just errors...makes it even more difficult for me to do mine .

After describing the problem, whats the first problem we should solve?

calculate the total flexible hours,
here i did like this:

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

Do you think datetimedifference would be better or this?

Function DateSpan(colItems As Outlook.Items, _
                  dteStart As Date, dteEnd As Date) _
                  As Outlook.Items
    Dim colSpanItems As Outlook.Items
    On Error Resume Next
    colItems.Sort "[Start]"
    colItems.IncludeRecurrences = True
    strFind = "[Start] <= " & _
              Quote(Format(dteEnd, "ddddd") & " 11:59 PM") & _
              " AND [End] > " & _
              Quote(Format(dteStart, "ddddd") & " 12:00 AM")
    'MsgBox strFind
    Set colSpanItems = colItems.Restrict(strFind)
    If Err = 0 Then
        Set DateSpan = colSpanItems
    End If
    Set colSpanItems = Nothing
End Function

I am in a quandary,please help. Do you think customization of outlook is better than COM ADD IN for this?

[RobDog888]

I have a few AddIn examples for VB 6 and VB.NET. Which did you use?

[okaka]

I have a few AddIn examples for VB 6 and VB.NET. Which did you use?

I used this one vb6:

http://www.vbforums.com/showthread.php?t=406641


Anyway the whole Add in stuff is confusing to me. I have see and gone through so many templates but they look differently as well. For example, when I looked through CDOlive's phonechanger example it looks different from Microeye's ItemCB which also look differently from microsoft's and yours also look different from all of them.
The more reason why i got confused. I tried to modify the ItemCB,microsoft,yours,phonechanger but to no avail
I never thought this project would strech me this far, it looks quite simple, but then its been complex as i tried so many methods.Please you are my only hope now,my supervisor is unfortunately clueless here as well

[RobDog888]

Ok, welll everyone has their own way of doing things and they all work.

Lets start with my faq example. If you followed all the steps and pasted the code did it compile? Did you get to add it via the COM AddIn s button oin Outlook. What was the error?

Lets get it to work just as the example shows first before making other modifications.

[okaka]

Ok, welll everyone has their own way of doing things and they all work.

Lets start with my faq example. If you followed all the steps and pasted the code did it compile? Did you get to add it via the COM AddIn s button oin Outlook. What was the error?

Lets get it to work just as the example shows first before making other modifications.

When 'Add In' is selected as the project.Anyway I dont know if i was supposed to add some buttons or not.
But i got : Compile Error:Object does not source automation event("Public WithEvents moCBMeow As Office.CommandBarButton" was highlighted).

But when I select COM Add In, it compiles without error, but thats when I comment out:"Implements IDTExtensibility2" and "'Public WithEvents moCBMeow As Office.CommandBarButton" from the modules code where i pasted them.But then I follow the process to see it through outlook but nothing shows . I am losing my mind now . Please help me out here

[RobDog888]

Ok if you only have the code from the FAQ in there and set the combo dropdowns on the designer to Outlook xx.0 and the load behavior combo then it should be good to compile. Did you add the references mentioned in the FAQ?

Option Explicit
'Added references:
'Microsoft Office xx.0 Object Library
'Microsoft Outlook xx.0 Object Library
'Microsoft AddIn Designer
'Microsoft Visual Basic 6.0 Extensibility
Implements IDTExtensibility2
'...
'...

[RobDog888]

I added a zip project example of the FAQ on the FAQ thread for you - http://vbforums.com/showthread.php?t=406641

Note: You can ONLY add the AddIn via the COM AddIn button as described in the FAQ

[okaka]

I added a zip project example of the FAQ on the FAQ thread for you - http://vbforums.com/showthread.php?t=406641

Note: You can ONLY add the AddIn via the COM AddIn button as described in the FAQ

Thanks for the zip file and your efforts and time...i really appreciate it.

Which of the following 3 VB Projects is needed for any COM Add In?:

(1)ActiveXDll
(2)AddIn
(3)COM ADD IN.

Some of the examples I have seen, use either the first or the second, but then I could only compile with the third, thats why its too confusing, please direct/advice me

[okaka]

I added a zip project example of the FAQ on the FAQ thread for you - http://vbforums.com/showthread.php?t=406641

Note: You can ONLY add the AddIn via the COM AddIn button as described in the FAQ

The zip file is still pending approval...so I cant download it yet, but i will wait

[si_the_geek]

I've approved the attachment (I haven't checked it, but I think we can trust RobDog!).

[RobDog888]

You can create a COM AddIn with either #1 or #2.

The compiled finished version is the dll file.

Let me know if you have any questions.

[okaka]

You can create a COM AddIn with either #1 or #2.

The compiled finished version is the dll file.

Let me know if you have any questions.

After extracting the zip file, I tried to run the project file and I had the same error:" Compile Error:Object does not source automation event("Public WithEvents moCBMeow As Office.CommandBarButton" was highlighted)
".

What should i do?

[okaka]

I've approved the attachment (I haven't checked it, but I think we can trust RobDog!).

Thanks a bunch, ive downloaded it already

[okaka]

You can create a COM AddIn with either #1 or #2.

The compiled finished version is the dll file.

Let me know if you have any questions.

Can't with #3? Its even written COM ADD IN

[RobDog888]

There is no COM AddIN project type in VB 6 Enterprise.

To add an AddIn via the COM button in Outlook it needs to be written in C++ I believe. For VB 6 or VB.NET you need to add your AddIn via the COM AddIns button.

[okaka]

There is no COM AddIN project type in VB 6 Enterprise.

To add an AddIn via the COM button in Outlook it needs to be written in C++ I believe. For VB 6 or VB.NET you need to add your AddIn via the COM AddIns button.

I am using Miscrosft Visual studio 6.0...professional edition, i got it from school. it has COM ADD IN project.And when I tried to use it, it has already all those Onconnecttion()....OnStartUpcomplete(),I tried to copy and paste it for you to see, but i couldnt. .
Anyway, How do you suggest I go about my project at hand?
The phonechanger i downloaded compiled without errors, but I couldnt see anything.
I want to see if i could modify that one.
but seriously,am blank here
Lets concentrate on my project now
I have tried to solve it but have so many ways but i dont know how which one to follow.
Please help by giving me some ideas, or snippets.
I dont even know how to program the tickets nos.
By the way, it takes me time to reply because i am not in the USA

[RobDog888]

Have you even downloaded my FAQ code example attachment that I uploaded for you? You should be able to get that working and then we can expand on that to fit your project needs.

[okaka]

Have you even downloaded my FAQ code example attachment that I uploaded for you? You should be able to get that working and then we can expand on that to fit your project needs.

Yes I have:

After extracting the zip file, I tried to run the project file and I had the same error:" Compile Error:Object does not source automation event("Public WithEvents moCBMeow As Office.CommandBarButton" was highlighted)
".

What should i do?

[okaka]

There is no COM AddIN project type in VB 6 Enterprise.

To add an AddIn via the COM button in Outlook it needs to be written in C++ I believe. For VB 6 or VB.NET you need to add your AddIn via the COM AddIns button.

I am using VB6, and it has three projects for ADD IN:
ActiveXDLL
AddIN
COM ADD IN.

when you said COM ADDINs button, as in your last statement did you mean:
the third project(COM ADD IN)? .

To open your COM ADD IN FAQs files, should I use the #1,or #2 or #3, as I have VB6 and not enterprise edition?

[okaka]

I have observed the following:
When ActiveX DLL is used, the PROJECT window has only CLASS MODULE
With AddIN I see:
MyAddin-Forms-Designers
With COM ADD IN there is:
MyOutlookAddin(MyOutlookAddin)-Modules...ModOutlook(ModOutlook)-Class Modules...OutAddin(OutAddin)-Designers...Connect(Connect).

These are how they all appear when each is chosen as the project in the VB 6 IDE

[okaka]

I still get the same error as before when i tried to compile the file.
I have referenced all you said, but still no success.
What do you suggest i do?

[RobDog888]

If you downloaded my attachment then you should just have to open it by double clicking it. Check for missing references or update them to your versions.

[okaka]

If you downloaded my attachment then you should just have to open it by double clicking it. Check for missing references or update them to your versions.

I have CDO.dll missing. I think thats the reason. I will fix it, just dont have the correct version of the CDO.dll that i downloaded it says its different version. I thought it installs at the same time with outlook, but i have observed it doesnt. I have to get it from my office cd or comment out those parts that require cdo. thanks

[okaka]

If you downloaded my attachment then you should just have to open it by double clicking it. Check for missing references or update them to your versions.

Sorry I still get "object does not source automation error"..."Public WithEvents moCBMeow As Office.CommandBarButton". I have installed the cdo.dll and made all the references but still couldnt get it to run.
After extraction i have the following files:"Connect.DCA, VB Designer Module,,VB Project,LIB,EXP and DLL".
When I tried to open the VBP on the project window only the Designers proj file is shown.Is there anything i am missing?

"Copy the "ADDIN.DSR" designer form found in "?:\Program Files\Microsoft Visual Studio\VB98\Template\Projects" and paste it into your current project folder so you are NOT working with the actual original template file.
"

I tried to uncomment these:"Microsoft Office 8.0 Object Library
Microsoft Outlook 9.0 Object Library
Microsoft AddIn Designer
Microsoft Visual Basic 6.0 Extensibility"
But then it says compiler error:expected:end of statement.I dont know what that means, the text colors were red instead of black

I dont understand the above statement, because your project already has ADDIN.DSR

[RobDog888]

So according to your PM it compiles now?

What is the Office version your using now?

cdo.dll should be available from your Office cd and should be installed by going to your control panel and clicking Add/Remove programs. Then select Office and change or modify installation. Then select the option under the optional components, I think it was as its hard to remember office 2000 and before, thenyou will not only get the dll but all the dependancy files asocuiated with the cdo.dll file.

[okaka]

So according to your PM it compiles now?

What is the Office version your using now?

cdo.dll should be available from your Office cd and should be installed by going to your control panel and clicking Add/Remove programs. Then select Office and change or modify installation. Then select the option under the optional components, I think it was as its hard to remember office 2000 and before, thenyou will not only get the dll but all the dependancy files asocuiated with the cdo.dll file.

Yes it compiles, i have been playing with it, by changing the load behaviours to see how they differ.I am relieved now
Iam using MS09.DLL(version 9.0).

[okaka]

So according to your PM it compiles now?

What is the Office version your using now?

cdo.dll should be available from your Office cd and should be installed by going to your control panel and clicking Add/Remove programs. Then select Office and change or modify installation. Then select the option under the optional components, I think it was as its hard to remember office 2000 and before, thenyou will not only get the dll but all the dependancy files asocuiated with the cdo.dll file.

MS Office 2000, because I am building outlook 2000 application. My OS is XP professional however...i dont know if that was the problem, but after re-installing the files by updating the cdo.dll, everything works fine now. it compiles and runs. Thanks...am so excited..beginning to get a grip of the COM ADD IN now

[okaka]

So according to your PM it compiles now?

What is the Office version your using now?

cdo.dll should be available from your Office cd and should be installed by going to your control panel and clicking Add/Remove programs. Then select Office and change or modify installation. Then select the option under the optional components, I think it was as its hard to remember office 2000 and before, thenyou will not only get the dll but all the dependancy files asocuiated with the cdo.dll file.

Please I am waiting for the next step to take as it regards my project