Outlook: Τρόπος αυτόματης αποστολής μηνυμάτων ηλεκτρονικού ταχυδρομείου εάν δεν υπάρχει απάντηση

Όταν στέλνετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου στον συνάδελφό σας ή στον συνεργάτη σας ή σε κάποιον και χρειάζεστε μια απάντηση επειγόντως, μπορείτε να ορίσετε μια ρύθμιση αυτόματης επανάληψης αποστολής email εάν η απάντηση δεν έχει φτάσει πριν από μια καθορισμένη ώρα.

Χρησιμοποιώντας την Υπενθύμιση και το VBA για να ορίσετε την αυτόματη επανάληψη αποστολής εάν δεν υπάρχει απάντηση

Καρτέλα Office - Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Microsoft Office, κάνοντας την εργασία άνετη

Διαβάστε περισσότερα ...Κατεβάστε ...

Kutools for Outlook - Ενισχύστε το Outlook με 100+ προηγμένες δυνατότητες για ανώτερη απόδοση

Αυτοματοποιήστε την αποστολή email με Αυτόματο CC / BCC, Αυτόματη προώθηση με κανόνες? στείλετε Αυτόματη απάντηση (Εκτός γραφείου) χωρίς να απαιτείται διακομιστής ανταλλαγής...
Λάβετε υπενθυμίσεις όπως Προειδοποίηση BCC όταν απαντάτε σε όλους όσο βρίσκεστε στη λίστα BCC και Υπενθύμιση όταν λείπουν συνημμένα για ξεχασμένα συνημμένα...
Βελτιώστε την αποτελεσματικότητα του email με Απάντηση (Όλα) Με Συνημμένα, Αυτόματη προσθήκη χαιρετισμού ή ημερομηνίας και ώρας στην υπογραφή ή στο θέμα, Απάντηση σε πολλά email...
Βελτιώστε την αποστολή email με Ανάκληση email, Εργαλεία συνημμένου (Συμπίεση όλων, Αυτόματη αποθήκευση όλων...), Κατάργηση διπλότυπων, να Γρήγορη αναφορά...

Ενισχύστε το Outlook 2021 - 2010 ή το Outlook 365 με αυτές τις προηγμένες δυνατότητες. Απολαύστε μια ολοκληρωμένη δωρεάν δοκιμή 60 ημερών και αναβαθμίστε την εμπειρία ηλεκτρονικού ταχυδρομείου σας!

Διαβάστε περισσότερα ...Κατεβάστε ...

Χρησιμοποιώντας την Υπενθύμιση και το VBA για να ορίσετε την αυτόματη επανάληψη αποστολής εάν δεν υπάρχει απάντηση

Μέρος 1: ορίστε μια υπενθύμιση για υπενθύμιση σε καθορισμένο χρόνο

1. Κάντε δεξί κλικ σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου (από τον φάκελο Απεσταλμένα) που θέλετε να στείλετε ξανά εάν δεν υπάρχει απάντηση, στο αναδυόμενο μενού περιβάλλοντος, κάντε κλικ Ακολουθω > Προσθήκη Υπενθύμισης.

το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 1

2. Στο σκάσιμο Εξατομικευμένο διαλόγου, κρατήστε το υπενθύμιση επιλέξτε το πλαίσιο ελέγχου και, στη συνέχεια, στα παρακάτω αναπτυσσόμενα πλαίσια, επιλέξτε μια ημερομηνία και ώρα που θέλετε να έχει φτάσει η απάντηση πριν, επίσης μπορείτε να πληκτρολογήσετε απευθείας την ημερομηνία και την ώρα στα πλαίσια. Κάντε κλικ OK.

το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 1

Μέρος 2: Εισαγάγετε ένα VBA για να στείλετε ξανά μηνύματα ηλεκτρονικού ταχυδρομείου εάν δεν υπάρξει απάντηση στον καθορισμένο χρόνο

3. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

4. Διπλό κλικ Αυτό το OutlookSession στο Έργο – Έργο1 παράθυρο για να δημιουργήσετε ένα κενό σενάριο και αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο κενό σενάριο.

VBA: Στείλτε ξανά email εάν δεν υπάρχει απάντηση

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. Αποθηκεύστε τον κωδικό, μετά επιστρέψτε στην κύρια διεπαφή και κάντε κλικ Αρχεία > Επιλογές και στο ουe Επιλογές του Outlook παράθυρο, κάντε κλικ στην επιλογή Κέντρο αξιοπιστίας στο αριστερό παράθυρο και κάντε κλικ στο Ρυθμίσεις Κέντρου αξιοπιστίας για να ενεργοποιήσετε το Κέντρο αξιοπιστίας παράθυρο. Κάντε κλικ Ρυθμίσεις μακροεντολών και βεβαιωθείτε ότι το Ενεργοποίηση όλων των μακροεντολών (δεν συνιστάται. Μπορεί να εκτελεστεί επικίνδυνος κώδικας) επιλέγεται η επιλογή στη δεξιά ενότητα. Κάντε κλικ OK > OK.

το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 1

6. Τώρα, εάν το απεσταλμένο μήνυμα ηλεκτρονικού ταχυδρομείου που έχει οριστεί με υπενθύμιση δεν λάβει απάντηση όταν φτάσει η καθορισμένη ώρα, εμφανίζεται ένα αναδυόμενο παράθυρο διαλόγου για να σας υπενθυμίσει εάν πρέπει να στείλετε ξανά ένα email για να κάνετε μια ειδοποίηση.

το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 1

7. κλικ Ναι, εμφανίζεται ένα παράθυρο μηνύματος και επισυνάπτει το προηγούμενο email και μπορείτε να επεξεργαστείτε ξανά το σώμα και να κάνετε κλικ Αποστολή για να ξαναστείλετε το email..

το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 1