Note: The other languages of the website are Google-translated. Back to English

Як автоматично створити завдання під час надсилання електронної пошти в Outlook?

Іноді вам може знадобитися автоматично створити завдання електронного листа під час надсилання його в Outlook. Тут ми пропонуємо вам спосіб швидко зробити це.

Автоматично створювати завдання під час надсилання електронної пошти в Outlook за допомогою VBA


Автоматично створювати завдання під час надсилання електронної пошти в Outlook за допомогою VBA

За допомогою наведеного нижче коду VBA ви можете автоматично створити завдання на основі надсилання електронної пошти в Outlook. Будь ласка, виконайте наступне.

1. Запустіть Outlook, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, скопіюйте наведений нижче код VBA в ThisOutlookSession вікно коду.

Код VBA: автоматично створювати завдання під час надсилання електронної пошти в Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

примітки: Одержувачі повідомлень та тіло повідомлення будуть автоматично додані до тіла завдання. Датою початку завдання є дата відправлення повідомлення, і завдання має бути виконане через 3 дні. Вам нагадають про завдання о 9 ранку через один день. Ви можете змінювати їх, як вам потрібно.

3. Збережіть код і натисніть клавішу інший + Q клавіші, щоб закрити вікно Microsoft Visual Basic for Applications.

4. Відтепер при натисканні на Відправити у новому вікні чи вікні електронної пошти з відповіддю, a Створення завдання з'явиться діалогове вікно, як показано на знімку екрана нижче, натисніть Так щоб надіслати електронне повідомлення та створити завдання автоматично, або клацніть Немає надіслати електронне повідомлення без створення завдання.


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Чи є спосіб змінити це, щоб включити більше посилання на надіслану пошту, ніж лише одержувачів і тему? тобто. додати надіслане повідомлення як вкладення?
Цей коментар був мінімізований модератором на сайті
HI,

Це працювало кілька днів, а тепер більше не працює.

Чи є причина?
Цей коментар був мінімізований модератором на сайті
Привіт, Террі Амос,
Увімкніть опцію «Увімкнути всі макроси» та опцію «Застосувати налаштування безпеки макросів до встановлених надбудов», як показано на знімку екрана нижче. Після цього перезапустіть Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL