Outlook i dag ontime

Du skriver ikke hvilken version af Outlook du har, så antager det er en af de nyere.

Jeg har en engelsk version af Outlook, så bær over med mig, hvis navnene ikke passer helt.

Højreklik til højre i dit ikonbånd, hvor der ikke er nogen ikoner og vælg tilpas bånd.
Gå så ned i bunden i det højre vindue og sæt flueben i udvikler.
Tryk ok.
Du skulle nu have fået et nyt udvikler-bånd tilgængeligt.

Hej.

Den del er jeg helt med på. Jeg vil gerne have VBA koden, der kan udføre opgaven i Visual Basic....

Denne kode åbner Outlook Today, men at få Outlook til at køre den på et bestemt tidspunkt er noget rod, som ikke kan klares rent programmatisk.
Du skal altså til at lave en Opgave under Outlooks faneblad for dette og linke dem sammen.
Måske en anden kan give en vejledning med dette, når du nu har koden der skal udføres herunder.

Sub OutlookToday()
    Dim olApp As outlook.Application
    Dim objNS As outlook.NameSpace
    Dim olFolder As outlook.MAPIFolder
    Dim msg As outlook.MailItem

    Set olApp = outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set olFolder =  objNS.GetDefaultFolder(outlook.OlDefaultFolders.olFolderInbox)
    Set olFolder = olFolder.Parent
    Set olApp.ActiveExplorer.CurrentFolder = olFolder
End Sub

Lukker --- tak for input