Salt la conținutul principal

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

Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

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 pachet personalizat 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ți 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.


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, great script! How can I make this so that it replies to the email instead of sending the original email as an attachment?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations