Generic rights question

rgouette

Member
Joined
May 22, 2006
Messages
16
Location
Maine,USA
Programming Experience
1-3
Problem: vb.net 2013 Forms app works fine on my machine(returns calendar appts), but fails for a user.
Type of App: I'm gathering Outlook Calendar items & copying them to the clipboard.
What it's doing: The program isn't returning any calendar items for the user.
Any thoughts & ideas are very welcomed!
Rich


Namespaces I'm using:
VB.NET:
Imports System.Text
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Imports System.IO

Here's the guts of the program:
VB.NET:
        objOutlookFolders = objOLApp.Session.Folders
        file.WriteLine(objOutlookFolders.ToString)

For intFolderCtr = 1 To objOutlookFolders.Count
            objFolder = objOutlookFolders(intFolderCtr)
            objExplorer = objFolder.GetExplorer() 'objFolder="SharePoint Lists"
            ' >> Loop Through The Folders
            file.WriteLine("beginning the 2nd FOR loop")
            For intSubFolderCtr = 1 To objExplorer.CurrentFolder.Folders.Count 'Name="SharePoint Lists"
                objSubFolder = objExplorer.CurrentFolder.Folders(intSubFolderCtr)
                file.WriteLine(objSubFolder.ToString)
                If objSubFolder.Name = "Vacation - Calendar" Then

                    objSubFolder.Items.IncludeRecurrences = True
                    objSubFolder.Items.Sort("[Start]")
                    resultItems = objSubFolder.Items.Restrict(strRestrictionString)
                    file.WriteLine(resultItems.ToString)
                    ' MsgBox("Count of resultItems Items is: " + vbCrLf + resultItems.Count.ToString)
                    'MsgBox("Count of ObjSubFolder Items is: " + vbCrLf + objSubFolder.Items.Count.ToString)

                    For intAppointmentCtr = 1 To resultItems.Count
                        ' >> Get The Calender Item From The Calender Folder
                        objCalenderItem = resultItems.Item(intAppointmentCtr)
                        allResults = String.Concat(allResults, vbCrLf, objCalenderItem.Subject)
                    Next

                End If
            Next
        Next
 
Last edited:
What version of Outlook are you using?
What version is the user using?
Are you both using the same version of Windows?
 
What version of Outlook are you using?
What version is the user using?
Are you both using the same version of Windows?

both on Outlook 2010
both on WinPro 7x64 w/same SP
Both same admin levels on W/S & Domain

I'm wrapped a few Try Catch blocks around object creation pieces, but nothing fired back at me...

hmmm
 
Back
Top