Outlook: Kako samodejno znova poslati e-pošto, če ni odgovora

Ko pošljete e-pošto svojemu kolegu ali sodelujočemu partnerju ali nekomu in potrebujete nujno odgovor, lahko nastavite nastavitev samodejnega ponovnega pošiljanja e-pošte, če odgovor ni prispel pred določenim časom.

Uporaba opomnika in VBA za nastavitev samodejnega ponovnega pošiljanja, če ni odgovora

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo

Preberite več ...Prenos ...

Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost

Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...

Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

Preberite več ...Prenos ...

Uporaba opomnika in VBA za nastavitev samodejnega ponovnega pošiljanja, če ni odgovora

1. del: nastavite opomnik za opomnik v določenem času

1. Z desno miškino tipko kliknite e-poštno sporočilo (iz mape Poslani predmeti), ki ga želite znova poslati, če ni odgovora, v pojavnem kontekstnem meniju kliknite Nadaljuj > Dodaj opomnik.

dokument znova pošlji, če ni odgovora 1

2. V popping po meri pogovorno okno, obdržite Opomnik potrdite potrditveno polje, nato v spodnjih spustnih poljih izberite datum in uro, ko želite, da je odgovor prispel prej, lahko tudi neposredno vnesete datum in uro v polja. Kliknite OK.

dokument znova pošlji, če ni odgovora 1

2. del: Vstavite VBA za ponovno pošiljanje e-pošte, če v določenem času ni odgovora

3. Pritisnite druga + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno.

4. Dvojni klik Ta OutlookSession v Projekt – Projekt1 podokno, da ustvarite prazen skript, in kopirajte in prilepite spodnjo kodo VBA v prazen skript.

VBA: Če ni odgovora, znova pošljite e-pošto

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. Shranite kodo, nato se vrnite na glavni vmesnik in kliknite file > možnosti in v the Možnosti Outlooka okno, kliknite Trust Center v levem podoknu in kliknite Trust Center Nastavitve da omogočite Trust Center okno. Kliknite Nastavitve makrov in se prepričajte, da Omogoči vse makre (ni priporočljivo; lahko se zažene potencialno nevarna koda) možnost je izbrana v desnem razdelku. Kliknite OK > OK.

dokument znova pošlji, če ni odgovora 1

6. Zdaj, če poslana e-pošta, ki je bila nastavljena z opomnikom, ne prejme nobenega odgovora, ko prispe določen čas, se prikaže pojavno pogovorno okno, ki vas opomni, ali želite znova poslati e-pošto, da pošljete obvestilo.

dokument znova pošlji, če ni odgovora 1

7. klik Da, se prikaže okno sporočila in priloži prejšnje e-pošto, telo pa lahko ponovno uredite in kliknete Pošlji za ponovno pošiljanje e-pošte..

dokument znova pošlji, če ni odgovora 1