Domyślnie program Outlook automatycznie użyje domyślnego czasu przypomnienia o zadaniach dla wszystkich rodzajów oflagowanych elementów. Jeśli jednak chcesz użyć innego czasu przypomnienia dla oflagowanych przedmiotów w zależności od typu przedmiotu, możesz skorzystać z metody przedstawionej w tym artykule.
Program Outlook umożliwia ustawienie domyślnego czasu przypomnienia dla wszystkich oflagowanych elementów, niezależnie od typu elementu. Możesz przejść do menu „Plik” i kliknąć „Opcje”. Następnie w oknie „Opcje programu Outlook” możesz zobaczyć opcję „Domyślny czas przypomnienia” na karcie „Zadania”, jak pokazano na poniższym zrzucie ekranu.

Niemniej most użytkownicy mają nadzieję używać różnych czasów przypomnienia dla różnych rodzajów oflagowanych elementów, na przykład „9:00” dla oflagowanych wiadomości e-mail i „17:30” dla oflagowanych kontaktów. Teraz w dalszej części skupimy się na tym przykładzie, aby wprowadzić metodę.
Ustaw inny domyślny czas przypomnienia dla różnych rodzajów oflagowanych przedmiotów
- Do S.tarUruchom aplikację Outlook.
- Następnie uzyskaj dostęp do edytora Outlook VBA w odniesieniu do „Jak uruchomić kod VBA w swoim Outlooku".
- W kolejnym oknie „Microsoft Visual Basic for Applications” skopiuj poniższy kod 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
- Po tym restart Outlook, aby aktywować to makro.
- Od teraz za każdym razem, gdy oznaczysz wiadomość e-mail, czas przypomnienia zostanie ustawiony na „10:00” w dniu wymagalności flagi.
- A kiedy oznaczysz kontakt, czas przypomnienia zostanie ustawiony na „17:30” w terminie oznaczenia.
Elastycznie rozwiązuj problemy z programem Outlook
Możesz napotkać różnego rodzaju problemy w Outlooku. Musisz więc wcześniej nauczyć się pewnych środków, aby sobie z nimi poradzić. Na przykład, jeśli Twój program Outlook często restarts, musisz naprawić pakiet Office lub wyłączyć dodatki innych firm itp. Lub jeśli Twój Outlook PST zostanie naruszony, możesz najpierw wypróbować narzędzie do naprawy skrzynki odbiorczej. Gdy to się nie powiedzie, możesz nadal korzystać z potężnego narzędzia zewnętrznego, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com


