Як автоматично створити завдання під час надсилання електронної пошти в 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.
