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:
Here's the guts of the program:
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: