Після виконання завдання в Outlook багато користувачів можуть захотіти надіслати сповіщення електронною поштою, щоб повідомити когось, наприклад, начальника. Надсилання електронного листа вручну буде трудомістким. У цій статті буде представлено швидкий спосіб автоматичного надсилання таких листів.
Зі статті “4 швидкі кроки для призначення завдання іншим у вашому Outlook”, Ви можете знати, що якщо вам доручено завдання від начальника, і вони заздалегідь вимагають звіт про стан, як на скріншоті нижче, вони зможуть автоматично отримувати повідомлення електронною поштою.
Однак, якщо завдання створено самостійно, Outlook ніколи не надсилатиме сповіщення електронною поштою нікому, коли ви позначите його як виконане. У цьому випадку, якщо ви хочете надіслати сповіщення електронною поштою, щоб повідомити про свою роботу, вам доведеться зробити це вручну. Але за допомогою наведених нижче кодів VBA ви можете дозволити Outlook автоматично виконувати це.
Автоматичне надсилання повідомлення електронною поштою, коли певне завдання виконано
- Спочатку вам слід запустити Outlook і перейти на вкладку «Розробник».
- Потім знайдіть і натисніть кнопку «Visual Basic». З'явиться нове вікно "Microsoft Visual Basic для програм".
- Після цього двічі клацніть проект «ThisOutlookSession», щоб відкрити його, а потім скопіюйте в нього наступні коди VBA.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderTasks).Items
End Sub
Private Sub olItems_ItemChange(ByVal Item As Object)
Dim obApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim Recip As String
'Replace "test" as per your needs
If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
'Replace with your desired contact
Recip = "John Smith"
If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
Set obApp = Outlook.Application
Set olMail = obApp.CreateItem(olMailItem)
With olMail
.To = Recip
.Subject = "Complete: " & Item.Subject
.Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
.ReadReceiptRequested = True
'To directly send it,use ".Send" instead
.Display
End With
End If
End If
End Sub
- Згодом перейдіть до підписання цього коду та змініть налаштування макросів, щоб дозволити лише макроси з цифровим підписом.
- Нарешті, ви можете вийти з поточного вікна та спробувати.
- Коли ви позначите завдання як виконане, ви отримаєте повідомлення, наприклад, таке зображення:
- Коли ви натискаєте кнопку «Так», відкриється нове повідомлення, показано на малюнку нижче:
Примітка: Якщо ви заміните “.display” на рядок “.Send”, цей електронний лист буде надіслано безпосередньо без відображення.
Зверніть увагу на повідомлення від невідомих електронних адрес
Ви, мабуть, коли-небудь отримували багато електронних листів з невідомих адрес. Бажано обережно ставитися до таких електронних листів. Це тому, що вони можуть виглядати нешкідливими, але містять шкідливі посилання, вкладення чи макроси. Після натискання або відкривання їх Outlook може заразитися. На той момент, щоб повернути дані Outlook, вам не залишається нічого іншого, як скористатися зіркою пошкоджена утиліта виправлення даних Outlook -, Такі, як DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити SQL mdf проблема - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com