Outlook: Как автоматично да изпратите повторно имейл, ако няма отговор

Автор: Слънце Последна промяна: 2022-04-29

Когато изпратите имейл до ваш колега или партньор или някого и се нуждаете от отговор спешно, можете да зададете настройка за автоматично повторно изпращане на имейл, ако отговорът не е пристигнал преди определено време.

Използване на Reminder и VBA за задаване на автоматично повторно изпращане, ако няма отговор

Раздел Office - Активирайте редактиране и сърфиране с раздели в Microsoft Office, правейки работата лесна

Прочети повече ...Изтегляне на ...

Kutools за Outlook - Увеличете Outlook със 100+ разширени функции за превъзходна ефективност

Автоматизирайте изпращането на имейл с Автоматично CC/BCC, Автоматично препращане по правила; изпрати Автоматичен отговор (Извън офиса) без да е необходим сървър за обмен...
Получавайте напомняния като BCC Предупреждение когато отговаряте на всички, докато сте в списъка BCC, и Напомняне при липсващи прикачени файлове за забравени прикачени файлове...
Подобрете ефективността на имейл с Отговор (на всички) с прикачени файлове, Автоматично добавяне на поздрав или дата и час в подпис или тема, Отговорете на няколко имейла...
Опростете изпращането на имейл с Извикване на имейли, Инструменти за прикачване (Компресиране на всички, автоматично запазване на всички...), Премахване на дубликати, и Бърз доклад...

Увеличете своя Outlook 2021 - 2010 или Outlook 365 с тези разширени функции. Насладете се на цялостен 60-дневен безплатен пробен период и подобрете изживяването си с имейл!

Прочети повече ...Изтегляне на ...

Използване на Reminder и VBA за задаване на автоматично повторно изпращане, ако няма отговор

Част 1: задайте напомняне за напомняне в определено време

1. Щракнете с десния бутон върху имейл (от папка Изпратени), който искате да изпратите отново, ако няма отговор, в изскачащото контекстно меню щракнете върху Следвайте Up > Добавяне на напомняне.

документ изпратете отново, ако няма отговор 1

2. В пукането Custom диалог, запазете Напомняне отметка, след това в падащите полета по-долу изберете дата и час, преди които искате отговорът да е пристигнал, също така можете директно да въведете датата и часа в полетата. Кликнете OK.

документ изпратете отново, ако няма отговор 1

Част 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. Запазете кода, след това се върнете към основния интерфейс, щракнете досие > Настроики и в thд Опции на Outlook прозорец, кликнете Trust Center в левия прозорец и щракнете Настройки на Trust Center за да активирате Trust Center прозорец. Кликнете Настройки на макроса и се уверете, че Активирайте всички макроси (не се препоръчва; може да се изпълнява потенциално опасен код) опцията е избрана в десния раздел. Кликнете OK > OK.

документ изпратете отново, ако няма отговор 1

6. Сега, ако изпратеният имейл, който е бил зададен с напомняне, не получи отговор, когато настъпи определеното време, изскачащ диалогов прозорец изскача, за да ви напомни дали да изпратите отново имейл, за да направите известие.

документ изпратете отново, ако няма отговор 1

7. кликване Да, изскача прозорец със съобщение и прикачва предишния имейл и можете да редактирате отново основния текст и да щракнете Изпрати за повторно изпращане на имейла..

документ изпратете отново, ако няма отговор 1