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

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

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

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

Καρτέλα Office - Ενεργοποίηση επεξεργασίας καρτέλας και περιήγησης στο Office και να κάνετε την εργασία πολύ πιο εύκολη ...
Kutools για Outlook - Φέρνει 100 ισχυρές προηγμένες δυνατότητες στο Microsoft Outlook
  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά email μέσω κανόνων. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC. Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου. Απάντηση σε πολλά email ταυτόχρονα. Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Αυτόματη προσθήκη ημερομηνίας και ώρας στο θέμα ...
  • Εργαλεία συνημμένου: Αυτόματη αποσύνδεση, Συμπίεση όλων, Μετονομασία όλων, Αυτόματη αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων, Κατάργηση διπλών μηνυμάτων και επαφών ...
  • Περισσότερα από 100 προηγμένα χαρακτηριστικά θα λύστε τα περισσότερα από τα προβλήματά σας στο Outlook 2010-2019 και 365. Πλήρεις δυνατότητες δωρεάν δοκιμή 60 ημερών.

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

 

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

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

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

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

το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 1 το έγγραφο ξαναστείλει εάν δεν υπάρχει απάντηση 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

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

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

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

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

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

8. κλικ Οχι, η υπενθύμιση θα διαγραφεί.

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

Note: Εάν το email έχει απαντηθεί πριν από την καθορισμένη ώρα, η υπενθύμιση θα αφαιρεθεί από τη VBA.


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0  Χαρακτήρες
Προτεινόμενες τοποθεσίες