Outlook: як автоматично надіслати електронний лист, якщо немає відповіді
Коли ви надсилаєте електронний лист своєму колезі, партнеру по співпраці чи комусь і потребуєте термінової відповіді, ви можете налаштувати автоматичне надсилання електронної пошти, якщо відповідь не надійшла раніше визначеного часу.
- Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
- Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
- Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
- Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...
Використання нагадування та VBA для налаштування автоматичного повторного надсилання, якщо немає відповіді
Частина 1: встановіть нагадування для нагадування у визначений час
1. Клацніть правою кнопкою миші на електронному листі (з папки «Надіслані»), яке потрібно надіслати повторно, якщо немає відповіді, у контекстному меню, що спливає, натисніть Слідувати > Додати нагадування.
2. У вискакуванні виготовлений на замовлення діалогове вікно, збережіть Нагадування поставте прапорець, а потім у спадних списках нижче виберіть дату та час, коли ви хочете, щоб відповідь надійшла раніше, також ви можете безпосередньо ввести дату та час у відповідні поля. Натисніть OK.
Частина 2: Вставте VBA, щоб повторно надіслати електронні листи, якщо не буде відповіді за вказаний час
3. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
4 Подвійне клацання ThisOutlookSession в Проект – Проект1 панель, щоб створити порожній сценарій, і скопіюйте та вставте наведений нижче код VBA в порожній сценарій.
VBA: повторно надіслати електронний лист, якщо немає відповіді
Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
Dim xInboxFld As Folder
Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
Set GInboxItems = xInboxFld.Items
End Sub
'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
Dim xSentItems As Outlook.Items
Dim xMail As MailItem
Dim i As Long
Dim xSubject As String
Dim xItemSubject As String
Dim xSendTime As String
On Error Resume Next
Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class <> olMail Then Exit Sub
For i = xSentItems.Count To 1 Step -1
If xSentItems.Item(i).Class = olMail Then
Set xMail = xSentItems.Item(i)
xSubject = LCase(xMail.Subject)
xSendTime = xMail.SentOn
xItemSubject = LCase(Item.Subject)
If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
If Item.SentOn > xSendTime Then
With xMail
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End Sub
'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
Dim xPrompt As String
Dim xResponse As Integer
Dim xFollowUpMail As Outlook.MailItem
Dim xRcp As Recipient
On Error Resume Next
'Resend
If (Item.Class <> olMail) Then Exit Sub
xPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xResponse = vbNo Then Exit Sub
Set xFollowUpMail = Application.CreateItem(olMailItem)
With xFollowUpMail
For Each xRcp In Item.Recipients
.Recipients.Add (xRcp.Address)
Next
.Recipients.ResolveAll
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
.Attachments.Add Item
.Display
End With
End Sub
5. Збережіть код, потім поверніться до головного інтерфейсу, натисніть філе > Опції і в гоe Параметри Outlook вікна, натисніть Центр безпеки на лівій панелі та натисніть Налаштування центру довіри щоб включити Центр безпеки вікно. Клацніть Налаштування макросу і переконайтесь, що Увімкнути всі макроси (не рекомендується; може запускатися потенційно небезпечний код) у правому розділі вибрано параметр. Натисніть OK > OK.
6. Тепер, якщо надіслане повідомлення електронної пошти, яке було налаштовано з нагадуванням, не отримує відповіді, коли настане вказаний час, з’явиться спливаюче діалогове вікно, щоб нагадати, чи надсилати електронний лист, щоб надіслати сповіщення.
7. клацання Так, з’явиться вікно повідомлення, яке додає попередній електронний лист, і ви можете змінити його текст і натиснути Відправити щоб повторно надіслати електронний лист..
8. клацання Немає, нагадування буде видалено.
примітки: Якщо відповідь на електронну пошту була отримана раніше зазначеного часу, нагадування буде видалено VBA.
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.