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é):
- V Outlooku dám Alt + F11 (nebo na ribbonu Developer volbu Visual Basic, pokud máte zapnutý).
- Ve stromu vlevo vyberu položku ThisOutlookSession (laicky si to představuju jako obdobu global.asax :-))
- 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
- Skript je potřeba ještě podepsat. V menu Tools zvolíme Digital Signatures
- 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 - Uložit.
- Restartovat Outlook.
Pokud by se Outlook vzpouzel spustit, tak outlook /safe a ladit dle vlastních dispozic. ;-)