Εάν χρησιμοποιείτε τον κανόνα του Outlook για αυτόματη απάντηση, θα ανακαλύψετε ότι η αυτόματη απάντηση δεν μπορεί να περιλαμβάνει το αρχικό μήνυμα στο σώμα. Αυτό το άρθρο θα εισαγάγει μια εύκολη μέθοδο, η οποία μπορεί να εισαγάγει το αρχικό μήνυμα ηλεκτρονικού ταχυδρομείου και το προκαθορισμένο κείμενο στο σώμα της αυτόματης απάντησης μέσω του Outlook VBA.
Στο Outlook, οι λογαριασμοί Exchange επιτρέπουν στους χρήστες να ορίζουν απευθείας αυτόματες απαντήσεις μέσω του κουμπιού "Αυτόματες απαντήσεις" στην καρτέλα "Πληροφορίες" στο μενού "Αρχείο", όπως το ακόλουθο στιγμιότυπο οθόνης:
Αλλά εάν χρησιμοποιείτε τον λογαριασμό ηλεκτρονικού ταχυδρομείου μέσω Διαδικτύου, ανεξάρτητα από το IMAP ή το POP3, δεν υπάρχει διαθέσιμο το κουμπί "Αυτόματες απαντήσεις". Ο μόνος τρόπος για να ενεργοποιήσετε μια αυτόματη απάντηση είναι να δημιουργήσετε έναν κανόνα αυτόματης απάντησης, που εμφανίζεται ως η ακόλουθη εικόνα:
Ωστόσο, αυτό το είδος αυτόματης απάντησης μέσω κανόνα του Outlook δεν μπορεί να συμπεριλάβει αυτόματα το αρχικό μήνυμα. Στην πραγματικότητα, οι περισσότεροι άνθρωποι θα ήθελαν να επισυνάψουν το αρχικό email στο σώμα του μηνύματος της αυτόματης απάντησης. Σε τέτοιες περιπτώσεις, ένας κανόνας αυτόματης απάντησης δεν μπορεί να το κάνει σίγουρα. Επομένως, θα πρέπει να χρησιμοποιήσουμε κώδικες VBA του Outlook. Αν ενδιαφέρεστε, διαβάστε παρακάτω για να δείτε τα λεπτομερή βήματα και τους κώδικες VBA.
Αυτόματη απάντηση με το αρχικό μήνυμα ηλεκτρονικού ταχυδρομείου και ένα προκαθορισμένο κείμενο
- Αρχικά, πρέπει να μεταβείτε στην καρτέλα "Προγραμματιστής" και να κάνετε κλικ στο κουμπί "Visual Basic".
- Στη συνέχεια, στο νέο παράθυρο "Microsoft Visual Basic for Applications", πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά.
- Μετά από αυτό, θα ανοίξει το έργο "ThisOutlookSession". Τώρα θα πρέπει να αντιγράψετε και να επικολλήσετε τους ακόλουθους κωδικούς VBA σε αυτό.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim olReply As MailItem
If Item.Class = olMail Then
Set olReply = Item.Reply
Else
Exit Sub
End If
With olReply
'Type Your Own Auto Reply
'Change "John Smith" to Your Own Name
.Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
.Send
End With
End Sub
- Στη συνέχεια θα πρέπει να υπογράψετε αυτόν τον κωδικό ως συνήθως και να συνεχίσετε να αλλάζετε τις ρυθμίσεις μακροεντολών για να επιτρέπετε μόνο ψηφιακά υπογεγραμμένες μακροεντολές.
- Τέλος, αφού ολοκληρώσετε τα παραπάνω βήματα, το Outlook θα στείλει μια απάντηση με τις αρχικές πληροφορίες μηνυμάτων στο σώμα αυτόματα. Θα μοιάζει με την παρακάτω εικόνα:
Σημείωση: Ανεξάρτητα από την αυτόματη απάντηση χρησιμοποιώντας κανόνα ή την αυτόματη απάντηση χρησιμοποιώντας κωδικούς VBA, και οι δύο μπορούν να έχουν εφέ μόνο όταν εκτελείται το Outlook.
Αντιμετώπιση σφαλμάτων δεδομένων του Outlook
Χωρίς αμφιβολίες, το Outlook δεν μπορεί να είναι απρόσβλητο από σφάλματα. Ως εκ τούτου, είναι σημαντικό για τους τακτικούς χρήστες του Outlook να λαμβάνουν κάποια κόλπα για την αντιμετώπισή τους. Προφανώς, ο καλύτερος τρόπος αντιμετώπισης Βλάβη δεδομένων του Outlook δημιουργεί ένα κανονικό αντίγραφο ασφαλείας. Εφόσον αποκτήσετε ένα αποτελεσματικό αντίγραφο ασφαλείας, θα ξεκουραστείτε εύκολα ακόμα και αν το Outlook διακοπεί. Φυσικά, εκτός ασφάλισης, καλύτερα να διατηρήσετε επίσης ένα ισχυρό εργαλείο επισκευής.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιορθώστε την καταστροφή του αρχείου SQL mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com