Как установить сегодняшнюю дату начала по умолчанию при создании новой задачи в Outlook?
Когда мы создаем новую задачу в Outlook, задача с «Дата начала”Отображается с "Никто»По умолчанию, как показано на следующем снимке экрана. Но иногда вам нужно часто устанавливать сегодня в качестве даты начала, поэтому вам придется каждый раз вручную выбирать дату в поле «Дата начала». Есть ли какой-нибудь быстрый способ автоматически установить дату начала по умолчанию как сегодняшний день при создании новой задачи в Outlook?
Установите дату начала по умолчанию как сегодня при создании новой задачи с кодом VBA в Outlook
Установите дату начала по умолчанию как сегодня при создании новой задачи с кодом VBA в Outlook
Возможно, нет другого хорошего способа решить эту задачу напрямую в Outlook, здесь я представлю код VBA для ее решения. Пожалуйста, сделайте следующие шаги:
1. Запустите Outlook, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (VbaProject.OTM) панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.
Код VBA: установите дату начала по умолчанию как сегодня:
Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
xTaskItem.StartDate = Now
End If
End Sub
3. После ввода кода наведите курсор на второй раздел кода и нажмите F5 ключ для запуска этого кода, см. снимок экрана:
4. С тех пор, когда вы каждый раз создаете новую задачу, Outlook автоматически устанавливает дату начала и дату окончания на текущую дату по умолчанию, как показано на следующем снимке экрана:
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.