Jak nastavit jiný výchozí čas připomenutí pro různé druhy označených položek v aplikaci Outlook

Ve výchozím nastavení aplikace Outlook automaticky použije výchozí čas připomenutí úkolů pro všechny druhy označených položek. Pokud byste však chtěli použít jiný čas připomenutí pro označené položky na základě typu položky, můžete se obrátit na metodu uvedenou v tomto článku.

Aplikace Outlook umožňuje nastavit výchozí čas připomenutí pro všechny označené položky bez ohledu na typ položky. Můžete přejít do nabídky „Soubor“ a kliknout na „Možnosti“. Poté v okně „Možnosti aplikace Outlook“ můžete na kartě „Úkoly“ vidět možnost „Výchozí čas připomenutí“, jak je znázorněno na následujícím snímku obrazovky.

Většina uživatelů nicméně doufá, že pro různé druhy označených položek bude moci použít různé časy připomenutí, například „9:00“ pro označené e-maily a „17:30“ pro označené kontakty. V následující části se zaměříme na tento příklad, abychom představili metodu.

Nastavte jiný výchozí čas připomenutí pro různé druhy označených položek

1. Pro začátek spusťte aplikaci Outlook.
2. Poté přejděte do editoru Outlook VBA s odkazem na „Jak spustit kód VBA ve vašem Outlooku".
3. V následujícím okně „Microsoft Visual Basic for Applications“ zkopírujte následující kód do projektu „ThisOutlookSession“.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    ElseIf Inspector.CurrentItem.Class = olContact Then
       Set objContact = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          If objMail.TaskDueDate <> "1/1/4501" Then
             With objMail
                  .ReminderSet = True
                  'Change the reminder time for flagged emails
                  .ReminderTime = objMail.TaskDueDate & " 10:00"
                  .Save
             End With
          End If
       End If
    End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          If objContact.TaskDueDate <> "1/1/4501" Then
             With objContact
                  .ReminderSet = True
                  'Change the reminder time for flagged contacts
                  .ReminderTime = objContact.TaskDueDate & " 17:30"
                  .Save
             End With
          End If
       End If
    End If
End Sub

4. Poté restartujte Outlook, abyste toto makro aktivovali.
5. Od této chvíle bude čas připomenutí pokaždé, když označíte e-mail, nastaven na „10:00“ v den odevzdání příznaku.
6. A když kontakt označíte příznakem, čas připomenutí bude nastaven na „17:30“ v den splnění příznaku.

Flexibilní řešení problémů s Outlookem

V Outlooku se můžete setkat se všemi možnými problémy. Proto se musíte předem naučit několik opatření, jak se s nimi vypořádat. Pokud se například Outlook často restartuje, je třeba opravit Office nebo zakázat doplňky třetích stran atd. Nebo pokud je váš PST soubor Outlooku napaden, můžete nejprve zkusit nástroj pro opravu doručené pošty. Když selže, můžete pokračovat v používání výkonného externího nástroje, např DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com