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

Outlook: Cum să retrimiteți automat e-mailurile dacă nu există niciun răspuns

Când trimiteți un e-mail colegului sau partenerului de cooperare sau cuiva și aveți nevoie urgent de un răspuns, puteți seta o setare de retrimitere automată a e-mailului dacă răspunsul nu a sosit înainte de o oră specificată.

Folosind Memento și VBA pentru a seta retrimiterea automată dacă nu există niciun răspuns

Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) cu toate atașamentele în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2010-2019 și 365. Funcții complete de încercare gratuită de 60 de zile.

Folosind Memento și VBA pentru a seta retrimiterea automată dacă nu există niciun răspuns

 

Partea 1: setați un memento pentru a reaminti într-un timp specificat

1. Faceți clic dreapta pe un e-mail (din dosarul Articole trimise) pe care doriți să-l retrimiteți dacă nu există niciun răspuns, în meniul contextual care apare, faceți clic pe Urmare > Adăugați un memento.

retrimiteți documentul dacă nu există răspuns 1

2. În popping Obicei dialog, păstrați fișierul Memento caseta de selectare bifată, apoi în casetele derulante de mai jos, alegeți o dată și o oră la care doriți ca răspunsul să sosească înainte, de asemenea, puteți introduce direct data și ora în casete. Clic OK.

retrimiteți documentul dacă nu există răspuns 1 retrimiteți documentul dacă nu există răspuns 1

Partea 2: Introduceți un VBA pentru a retrimite e-mailurile dacă nu există niciun răspuns în timpul specificat

3. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.

4. Dublu click Această sesiune Outlook în Proiect – Proiect1 panoul pentru a crea un script necompletat și copiați și inserați codul VBA de mai jos în scriptul necompletat.

VBA: Retrimiteți e-mailul dacă nu există niciun răspuns

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. Salvați codul, apoi reveniți la interfața principală, faceți clic Fișier > Opţiuni iar în the Opțiuni Outlook fereastră, faceți clic pe Centrul de încredere în panoul din stânga și faceți clic pe Trust Center Settings pentru a activa funcția Centrul de încredere fereastră. Clic Setări macro și asigurați-vă că Activați toate macrocomenzile (nu se recomandă, codul potențial periculos poate fi rulat) opțiunea este selectată în secțiunea din dreapta. Clic OK > OK.

retrimiteți documentul dacă nu există răspuns 1

retrimiteți documentul dacă nu există răspuns 1

6. Acum, dacă e-mailul trimis, care a fost setat cu un memento, nu primește niciun răspuns la sosirea orei specificate, va apărea o fereastră de dialog care vă va reaminti dacă să retrimiteți un e-mail pentru a face o notificare.

retrimiteți documentul dacă nu există răspuns 1

7. clic Da, apare o fereastră de mesaj și atașează e-mailul anterior și puteți reedita corpul și faceți clic Trimite pentru a retrimite e-mailul..

retrimiteți documentul dacă nu există răspuns 1

8. clic Nu, mementoul va fi șters.

retrimiteți documentul dacă nu există răspuns 1

notițe: Dacă e-mailul a fost răspuns înainte de ora specificată, memento-ul va fi eliminat de VBA.


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0  Caractere
Locații sugerate