Outlook: Hogyan küldhet automatikusan újra e-mailt, ha nem válaszol

Ha e-mailt küld kollégájának, együttműködő partnerének vagy valakinek, és sürgős válaszra van szüksége, beállíthat egy automatikus e-mail-újraküldést, ha a válasz nem érkezik meg egy megadott időn belül.

Az Emlékeztető és a VBA használata az automatikus újraküldés beállításához, ha nincs válasz

Iroda lap – Engedélyezze a lapos szerkesztést és böngészést a Microsoft Office-ban, így a munka egyszerűvé válik

Tovább ...Töltse le a ...

Kutools for Outlook – Növelje az Outlookot 100+ speciális funkcióval a kiemelkedő hatékonyság érdekében

Automatizálja az e-mailezést ezzel Auto CC / BCC, Automatikus továbbítás szabályok szerint; Küld Autómatikus válasz (Out of Office) Exchange szerver nélkül...
Szerezzen emlékeztetőket BCC figyelmeztetés amikor mindenkinek válaszol, miközben a Titkos másolat listában van, és Emlékeztessen a hiányzó mellékletekre az elfelejtett mellékletekhez...
Növelje az e-mailek hatékonyságát Válasz (mindenre) mellékletekkel, Üdvözlés vagy dátum és idő automatikus hozzáadása az aláíráshoz vagy a tárgyhoz, Válasz több e-mailre...
Egyszerűsítse az e-mailezést ezzel E-mailek visszahívása, Melléklet eszközök (Összes tömörítése, Összes automatikus mentése...), Távolítsa el a másolatokatés Gyorsjelentés...

Növelje Outlook 2021–2010 vagy Outlook 365 verzióját ezekkel a speciális funkciókkal. Élvezze az átfogó 60 napos ingyenes próbaverziót, és fokozza az e-mailezési élményt!

Tovább ...Töltse le a ...

Az Emlékeztető és a VBA használata az automatikus újraküldés beállításához, ha nincs válasz

1. rész: állítson be egy emlékeztetőt, amely meghatározott időn belül emlékeztet

1. Kattintson jobb gombbal egy e-mailre (az Elküldött tételek mappából), amelyet újra el szeretne küldeni, ha nem válaszol, a felugró helyi menüben kattintson a Nyomon követés > Emlékeztető hozzáadása.

doc újraküldi, ha nem válaszol 1

2. A durranásban szokás párbeszédpanelen tartsa a emlékeztető jelölje be a jelölőnégyzetet, majd az alábbi legördülő mezőkben válassza ki azt a dátumot és időpontot, amely előtt a válasz megérkezik, valamint közvetlenül is beírhatja a dátumot és időt a négyzetekbe. Kattintson OK.

doc újraküldi, ha nem válaszol 1

2. rész: Helyezzen be egy VBA-t az e-mailek újraküldéséhez, ha a megadott időn belül nem érkezik válasz

3. nyomja meg más + F11 gombok a Microsoft Visual Basic for Applications ablak.

4. Dupla kattintás ThisOutlookSession a Projekt – Projekt1 ablaktáblát egy üres szkript létrehozásához, majd másolja ki és illessze be az alábbi VBA-kódot az üres szkriptbe.

VBA: Ha nem válaszol, küldjön újra e-mailt

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. Mentse el a kódot, majd lépjen vissza a fő felületre, kattintson a gombra filé > Opciók és a the Outlook opciók ablakban kattintson Trust Center a bal oldali ablaktáblán, és kattintson a gombra Trust Center beállítások hogy engedélyezze a Trust Center ablak. Kattints Makróbeállítások és győződjön meg arról, hogy a Minden makró engedélyezése (nem ajánlott; potenciálisan veszélyes kód futtatható) opció van kiválasztva a jobb oldali részben. Kattintson OK > OK.

doc újraküldi, ha nem válaszol 1

6. Ha az emlékeztetőt tartalmazó elküldött e-mail nem kap választ, amikor elérkezik a megadott időpont, egy felugró párbeszédpanel emlékezteti Önt, hogy küldjön-e újra egy e-mailt az értesítéshez.

doc újraküldi, ha nem válaszol 1

7. kettyenés Igen, megjelenik egy üzenetablak, amely csatolja az előző e-mailt, és újraszerkesztheti a szöveget, és kattintson Küldés hogy újra küldjem az e-mailt..

doc újraküldi, ha nem válaszol 1