Note: The other languages of the website are Google-translated. Back to English

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

Office fül - Füles szerkesztés és böngészés engedélyezése az Office-ban, és a munka sokkal könnyebb ...
Kutools for Outlook - 100 hatékony speciális funkciót hoz a Microsoft Outlook programba
  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail szabályok szerint; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - mutasson üzenetet, amikor megpróbálja megválaszolni az összeset, ha az Ön e-mail címe szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (összes) az összes melléklettel a levelezési beszélgetésben; Válaszoljon egyszerre sok e-mailt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum és idő automatikus hozzáadása a tárgyhoz ...
  • Melléklet eszközök: Automatikus leválasztás, Összes tömörítése, Átnevezés, Automatikus mentés ... Gyorsjelentés, A kiválasztott levelek megszámlálása, Távolítsa el az ismétlődő leveleket és névjegyeket ...
  • Több mint 100 speciális funkcióval rendelkezik megoldja a legtöbb problémáját az Outlook 2010-2019-ben és a 365-ben. A teljes funkciók 60 napos ingyenes próbaidőszak.

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 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

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

8. kettyenés Nem, az emlékeztető törlődik.

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

Megjegyzések: Ha az e-mailre a megadott idő előtt válaszoltak, a VBA eltávolítja az emlékeztetőt.


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0  Karakterek
Javasolt helyek