Kalenderfoldrar i Outlook 2007

[Nisse_hult]

Har ett antal kalenderfiler som importeras automatiskt in i Outlook 2007 vid uppstart (är tanken i alla fall). Dessa hamnar som vanliga användarkalendrar. Koden för import är enkel. Skannar igenom en enhetsbokstav Y o tar alla filer som finns där.

'-snipp-

Set myOlApp = CreateObject("Outlook.Application")

Set myNamespace = myOlApp.GetNamespace("MAPI")

a = Dir("Y:\")

If Len(a) <> 0 Then Set osharedfolder = myNamespace.OpenSharedFolder("Y:\" + a)

Do Until Len(a) = 0

If Len(a) <> 0 Then Set osharedfolder = myNamespace.OpenSharedFolder("Y:\"+a)

Loop

 

Problemet är att om kalendrar redan är importerade så läses de inte in av makrot på intervall eller vid uppstart. Datan i Outlook uppdateras alltså inte som jag tänkt.

Min fråga: Kan jag i kod stänga de kalenderfiler som redan är öppna, innan makrot körs o hur ser den koden i så fall ut?