После создания некоторых правил Outlook, если вы не хотите запускать их сейчас, но надеетесьtarк ним в определенное время можно применить подход, представленный в этой статье.
Когда вы закончите составлять правило Outlook, вам нужно будет выбрать, следует ли «запустить это правило сейчас». Если вы включите его, правило будетtart работать и продолжать работать все время, пока работает ваш Outlook. Но если вы не включите его, вам нужно запустить это правило вручную. Однако многие пользователи на самом деле хотят, чтобы правила автоматически запускались в определенное время, а не прямо сейчас. Для этого требования очевидно, что Outlook не предлагает такой встроенной функции. Поэтому нужно искать другие средства. Здесь мы научим вас одному трюку, который будет использовать элемент задачи с конкретным напоминанием и Outlook VBA.
Запланировать определенные правила Outlook для запуска в определенное время
- В самом начале запустите программу Outlook.
- Затем перейдите в папку задач по умолчанию.
- Затем вам нужно создать задачи с конкретными напоминаниями, как показано на следующем снимке экрана. Кроме того, вот некоторые примечания на этом этапе.
- Во-первых, количество создаваемых задач зависит от правил, которые нужно запускать в определенное время.
- Во-вторых, время напоминания относится к определенному времени, когда будут работать определенные правила. Так что будьте внимательны при указании времени напоминания.
- В-третьих, если вы хотите запускать определенные правила по повторяющемуся шаблону, вам нужно добавить соответствующее повторение к задачам.
- После завершения создания новых задач вы можете нажать клавиши «Alt + F11».
- Впоследствии вы войдете в окно редактора Outlook VBA.
- На этом этапе вам нужно дважды щелкнуть проект «ThisOutlookSession» с левой стороны.
Public Sub Application_Reminder(ByVal Item As Object)
Dim objRules As Outlook.Rules
Dim objRule As Outlook.Rule
Set objRules = Outlook.Application.Session.DefaultStore.GetRules
If TypeOf Item Is TaskItem Then
'Refer to the subject of the specific task item
If Item.Subject = "Rule: Move Items" Then
'The corresponding specific rule
Set objRule = objRules.Item("Move Specific Items")
With objRule
.Enabled = True
.Execute ShowProgress:=True, Folder:=Session.GetDefaultFolder(olFolderInbox), IncludeSubfolders:=True
End With
MsgBox ("Move Successfully!")
ElseIf Item.Subject = "Rule: Forward Items" Then
Set objRule = objRules.Item("Forward Specific Items")
With objRule
.Enabled = True
.Execute ShowProgress:=True, Folder:=Session.GetDefaultFolder(olFolderInbox), IncludeSubfolders:=True
End With
MsgBox ("Forward Successfully!")
'You can add more as per your needs
End If
objRules.Save
End If
End Sub
- После этого вам нужно подписать новый проект VBA.
- Позже вы должны изменить настройки макроса, чтобы включить только макросы с цифровой подписью.
- Отныне, когда появляется напоминание о конкретной задаче, определенное правило будет запускаться и работать автоматически. После успешного выполнения конкретных правил вы можете получать сообщения, подобные приведенному ниже рисунку.
Устранение случайных проблем с Outlook
Поскольку Outlook подвержен ошибкам, вам придется потратить много усилий на защиту данных Outlook. Таким образом, целесообразно подготовить авторитетное и проверенное Исправление Outlook инструмент, такой как DataNumen Outlook Repair. Это очень поможет, когда у вас возникнут серьезные проблемы с Outlook.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая фиксировать SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com