Multiple outlook calanders from Access

[Nobby2193]

Hi All


First post here so please be gentle

I wrote a database for a hospital transport charity which allows me to pair up a client with a driver then to a destination ( usually hospitals or Dentists) to make a patients appointment time

They are happy with the database ( why shouldn't they be as it was free !), but would love to be able to view outlook \google calendars locally for each driver ( although i have produced a drivers day appointment report)

This would mean identifying each driver and appointment time, client name, destination etc, opening up the an outlook \google calendar for that driver and adding the appointment on to it

I have some code that will do this for one driver but could do with expanding this for multiple ( possibly up to 20 volunteers)
I have asked another well known Forum but had no reply

Many Thanks

[ItsMe]

I did not look at your app, but the following might get you started.

Dim oApp As New Outlook.Application
Dim oNamespace As Outlook.NameSpace
'Dim oAccounts As Outlook.Accounts
'Dim oAccount As Outlook.account
Dim intCount As Integer
intCount = 1

Dim oExplorer As Outlook.Explorer
Dim oCalendarModule As Outlook.CalendarModule
Dim oNavigationFolders As Outlook.NavigationFolders
Dim oNavigationFolder As Outlook.NavigationFolder
Dim oNavigationGroup As Outlook.NavigationGroup
Dim myFolder As Outlook.Folder

Set oNamespace = oApp.Session

'Dim varItem As Variant
'
'Set varItem = oNamespace.GetDefaultFolder(olFolderCalendar)
'Debug.Print varItem.Name
'Debug.Print TypeName(varItem)

Set oExplorer = oNamespace.GetDefaultFolder(olFolderCalendar).GetExplorer
Set oCalendarModule = oExplorer.NavigationPane.Modules.GetNavigationModule(olModuleCalendar)
Set oNavigationGroup = oCalendarModule.NavigationGroups.Item("My Calendars")

For Each oNavigationFolder In oNavigationGroup.NavigationFolders
    
    Debug.Print TypeName(oNavigationFolder) & " item " & intCount
    Debug.Print oNavigationFolder.Folder.FullFolderPath
    
        Set myFolder = oNavigationFolder.Folder
        Debug.Print myFolder.GetCalendarExporter.StartDate

intCount = intCount + 1
Next oNavigationFolder

Set myFolder = Nothing
Set oNavigationGroup = Nothing
Set oCalendarModule = Nothing
Set oExplorer = Nothing
Set oNamespace = Nothing
Set oApp = Nothing

[Nobby2193]

Hi Itsme and thanks for a prompt reply

Im not going to be at my desk for a little while so wont be able to convert this into my database to test

I will have a good look at it and come back to you to let you know

many thanks