Automatisk skift af uge i Outlooks kalender

Vises en hel uge eller kun en dag ad gangen?
Tændes/slukkes "systemet" dagligt - eller?

Systemet er hele tiden tændt. Visningen skal være planlægningsvisning.

Ok - ser på det senere.

Er ved at teste en model.. ..

Test fra i nat ser lovende ud

Lyder spændende! Jeg har selv tænkt på en løsning med en makro, der blot skifter visning fra kalender til mail til kalender for at få opdateret visningen, og som kører hver nat, men man kan ikke indspille makroer i Outlook, og så kom jeg ikke videre :-) Mvh. Erik

Ok - men jeg skrev VBA-koden i Excel og så lod den styre visningerne i Outlook.

Hejsa, hvor langt nåede du med at få Outlook til at opdatere kalendervisning?
Mvh. Erik

Hej Erik
Vender tilbage mandag
Mvh
Peter Braagaard

Ark1:
Rem Tools / References / Microsoft Outlook 16.0 Object Library
Const tidForDatoSkift = "23:59:59"
Sub skiftDatoKalender()
    Application.OnTime TimeValue(tidForDatoSkift), "nydag", False
End Sub

Module1
Const tidForDatoSkift = "23:59:59"
Public Sub nyDag()
Dim OlApp, Namespace
    Set OlApp = CreateObject("Outlook.Application")
    Set Namespace = OlApp.GetNamespace("MAPI")
    Set cfold = Namespace.GetDefaultFolder(olFolderInbox)
    cfold.Display
   
    Set cfold = Namespace.GetDefaultFolder(olFoldercalendar)
    cfold.Display
   
    Application.WindowState = xlNormal

    OlApp.ActiveWindow.Height = 858
   
    OlApp.ActiveWindow.Top = 0
    OlApp.ActiveWindow.Left = 0
    OlApp.ActiveWindow.Width = 1600
   
    Application.OnTime TimeValue(tidForDatoSkift), "nydag", False
End Sub

Tak for det.
Jeg får en "Run-time error '5': Invalid procedure call or argument", når den kommer til tidspunktet angivet i koden. Vælger jeg Debug, er det denne linje, den fejler på:
Set cfold = Namespace.GetDefaultFolder(olFolderInbox)

Har du et bud på, hvad der skal ændres?

Selv tak
Jeg fandt ud af at hvis jeg skiftede til "noget andet" og derefter til kalenderen så fungerede det hos mig.

Er der en anden "Folder", der kunne anvendes - så er det ok, da den kun anvendes som en slags "interrup"