Můj kalendář je hodně plný a poslední, co bych chtěl, je připomínání každého jednotlivého meetingu (obzvláště ne v době, kdy si připomenutí na meeting-requestu nastavil organizátor schůzky). Remindery si nastavuji výjimečně a chci je mít na událostech, kde si to explicitně určím já.

Hledal jsem tedy způsob, jak automaticky na příchozích žádostech o schůzku automaticky vypínat připomenutí. Našel jsem VBA snippet, který to zařizuje. Protože ale nejsem žádný Outlook-developer, raději si poznamenám celý proces, jak to zprovoznit (návod dávám pro Outlook 2013, ale bude to všude podobné):

1. V Outlooku dám Alt + F11 (nebo na ribbonu Developer volbu Visual Basic, pokud máte zapnutý).
2. Ve stromu vlevo vyberu položku ThisOutlookSession (laicky si to představuju jako obdobu global.asax :-))
3. Do okna pro kód dáme:
   

   Private WithEvents Items As Outlook.Items
   
   Private Sub Application_Startup()
     Dim Ns As Outlook.NameSpace
   
     Set Ns = Application.GetNamespace("MAPI")
     Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
   End Sub
   
   Private Sub Items_ItemAdd(ByVal Item As Object)
     On Error Resume Next
     Dim Meet As Outlook.MeetingItem
     Dim Appt As Outlook.AppointmentItem
   
     If TypeOf Item Is Outlook.MeetingItem Then
       Set Meet = Item
   
       Meet.ReminderSet = False
       Meet.Save
   
       Set Appt = Meet.GetAssociatedAppointment(True)
   
       If Not Appt Is Nothing Then
         Appt.ReminderSet = False
         Appt.Save
       End If
     End If
   End Sub
   
   

4. Skript je potřeba ještě podepsat. V menu Tools zvolíme Digital Signatures
5. Tlačítko Choose a vybereme certifikát. Pokud nemáme žádný k dispozici, vytvoříme si jej snadno pomocí
   C:\Program Files\Microsoft Office\Office15
6. Uložit.
7. Restartovat Outlook.

Pokud by se Outlook vzpouzel spustit, tak outlook /safe a ladit dle vlastních dispozic. ;-)