Как установить текущую дату в качестве даты начала по умолчанию при создании новой задачи в Outlook?
Когда мы создаём новую задачу в Outlook, поле «Дата начала» отображается как «Нет» по умолчанию, как показано на следующем скриншоте. Однако иногда вам может потребоваться часто устанавливать сегодняшнюю дату в качестве даты начала, и каждый раз придётся вручную выбирать дату в поле «Дата начала». Есть ли быстрый способ автоматически устанавливать текущую дату в качестве даты начала по умолчанию при создании новой задачи в Outlook?
Установите текущую дату в качестве даты начала по умолчанию при создании новой задачи с помощью кода VBA в Outlook
Возможно, нет другого хорошего способа справиться с этой задачей напрямую в Outlook, поэтому я представлю код VBA для её решения. Пожалуйста, выполните следующие шаги:
1. Запустите Outlook, затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications дважды щёлкните ThisOutlookSession в панели Project1(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 автоматически установит дату начала и дату окончания на текущую дату по умолчанию, как показано на следующем скриншоте:
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
