Microsoft Outlook 2016 Tilføj Kalender via VBScript

Hvis en eller flere brugere har behov for tilføje mange Outlook Delte Kalendere (andre brugers kalendere), kan dette gøres ved hjælp af VBScript.

  1. Opret en fil med navn: AddKalender.vbs
  2. Skriv i den, og gem:
    '
    ' Bruger: Bruger1
    '
    Set Application = CreateObject("Outlook.Application")
    Set myNameSpace = Application.GetNameSpace("MAPI")
    Set myRecipient = myNameSpace.CreateRecipient("Bruger1")
    myRecipient.Resolve
    If myRecipient.Resolved Then
    Set CalendarFolder = _
    myNameSpace.GetSharedDefaultFolder _
    (myRecipient, 9)
    'CalendarFolder.Display
    End If
    '
    ' Bruger: Bruger2
    '
    Set Application = CreateObject("Outlook.Application")
    Set myNameSpace = Application.GetNameSpace("MAPI")
    Set myRecipient = myNameSpace.CreateRecipient("Bruger2")
    myRecipient.Resolve
    If myRecipient.Resolved Then
    Set CalendarFolder = _
    myNameSpace.GetSharedDefaultFolder _
    (myRecipient, 9)
    'CalendarFolder.Display
    End If
  3. Samme script kan gentages hvor Bruger skiftes med andet brugernavn.

Skriv et svar

Din e-mailadresse vil ikke blive publiceret. Krævede felter er markeret med *