Многие люди надеются быстро получить общее количество задач и встреч сегодня в Outlook. Подсчет один за другим вручную, очевидно, подвержен ошибкам и проблематичен. В этой статье мы рассмотрим эту проблему и представим метод через Outlook VBA.
Иногда из-за невнимательности или забывчивости многие люди могут оставить некоторые задачи или встречи, сохраненные в Outlook, в стороне. Если некоторые из них действительно являются важными миссиями, последствия могут быть катастрофическими. Поэтому некоторые люди хотели бы быстро узнать, сколько задач и встреч у них сегодня. Конечно, вы можете пересчитать их по одному. Однако, если общее число представляет собой довольно большую сумму, оно будет подвержено ошибкам и будет довольно громоздким. В этом случае вы должны желать быстрого и удобного способа быстро получить его. К счастью, с Outlook VBA вы можете добиться этого, не вспотев. Вот подробные коды и шаги.
Быстро получить общее количество сегодняшних задач и встреч
- Сначала сtarПриложение Outlook.
- Затем перейдите на вкладку «Разработчик» и нажмите кнопку «Visual Basic».
- Откроется окно «Microsoft Visual Basic для приложений». В нем вам предстоит найти и открыть новый модуль.
- Затем скопируйте и вставьте следующие коды в окно нового модуля.
Sub GetTotalNumberTodayTaskAppt() Dim olTasks As Outlook.Items Dim olResultTasks As Outlook.Items Dim oIAppts As Outlook.Items Dim olResultAppts As Outlook.Items Dim strFilter As String Dim obj As Object Dim i, n As Long Dim strMsg As String Dim nRes As Integer 'Получить, сколько задач сегодня Set oITasks = Application.Session.GetDefaultFolder(olFolderTasks).Items strFilter = Format(Now, "ddddd") strFilter = "[Start Date] <= " & Chr(34) & strFilter & Chr(34) & " AND [Due Date] > " & Chr(34) & strFilter & Chr(34) Установить olResultTasks = oITasks.Restrict(strFilter) Для каждого obj In olResultTasks i = i + 1 Next 'Получить, сколько встреч сегодня Set oIAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items oIAppts.Sort "[Start]", False oIAppts.IncludeRecurrences = True strFilter = Format(Now, "ddddd") strFilter = "[Start] <= " & Chr(34) & strFilter & " 11:59" & Chr(34) & " AND [End] > " & Chr(34) & strFilter & " 00:00 AM" & Chr(34 ) Установить olResultAppts = oIAppts.Restrict(strFilter) для каждого объекта In olResultAppts n = n + 1 Next 'Отобразить окно сообщения strMsg = "Предупреждение:" & vbCrLf & "У вас есть задачи " & i & " и " & n & " встречи СЕГОДНЯ, " & i + n & " миссии в сумме." & vbCrLf & "Не забудьте ни одну из них!" nRes = MsgBox(strMsg, vbExclamation, "Расписание на сегодня") End Sub
- Впоследствии вы можете закрыть текущее окно и продолжить устанавливать низкий уровень макросов Outlook в «Параметры макросов».
- После этого щелкните стрелку вниз на панели быстрого доступа и выберите «Дополнительные команды» в раскрывающемся списке.
- Позже вы можете добавить новый макрос на панель быстрого доступа, выполнив шаги, показанные на изображении ниже:
- Наконец-то можно попробовать. Вернувшись в главное окно Outlook, вы можете нажать новую кнопку на панели быстрого доступа, и вы сразу же получите окно сообщения, как на следующем снимке экрана:
Ноты: Многие пользователи хотят, чтобы Outlook мог предупреждать их, как только ониtarт приложение. Чтобы выполнить это требование, вы можете применить «Application.Starтуп». Заменять "Подпрограмма GetTotalNumberTodayTaskAppt()» «Подприложение_Starтуп()». Затем скопируйте коды в окно проекта ThisOutlookSession. Отныне каждый раз, когда выtart Outlook, вам напомнят об общем количестве задач и встреч на сегодня.
Справляйтесь с частыми проблемами Outlook
Как мы все знаем, нет надежных программ. То же самое справедливо и для Outlook. Поэтому, если вы собираетесь использовать Outlook десятилетиями, вы должны быть готовы к его частым ошибкам, таким как внезапное зависание, отсутствие ответа, случайные сообщения об ошибках и Повреждение электронной почты Outlook PST. Один из нихost рекомендуемые меры предосторожности - держать под рукой мощный инструмент исправления PST, например DataNumen Outlook Repair, который придет вам на помощь, когда вы столкнетесь с серьезными проблемами Outlook.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденный SQL mdf и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий