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

Πώς να δημιουργήσετε αυτόματα μια εργασία κατά την αποστολή email στο Outlook;

Μερικές φορές, ενδέχεται να χρειαστεί να δημιουργήσετε αυτόματα μια εργασία ενός μηνύματος ηλεκτρονικού ταχυδρομείου κατά την αποστολή του στο Outlook. Εδώ σας παρέχουμε μια μέθοδο για να το κάνετε γρήγορα.

Δημιουργήστε αυτόματα μια εργασία κατά την αποστολή email στο Outlook με VBA


Δημιουργήστε αυτόματα μια εργασία κατά την αποστολή email στο Outlook με VBA

Με τον παρακάτω κώδικα VBA, μπορείτε να δημιουργήσετε μια εργασία αυτόματα βάσει ενός email αποστολής στο Outlook. Κάντε τα εξής:

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε τον παρακάτω κώδικα VBA στο Αυτό το OutlookSession παράθυρο κώδικα.

Κωδικός VBA: Δημιουργήστε αυτόματα μια εργασία κατά την αποστολή email στο Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Note: Οι παραλήπτες μηνυμάτων και το σώμα μηνυμάτων θα προστεθούν αυτόματα στο σώμα εργασιών. Η ημερομηνία έναρξης της εργασίας είναι η ημερομηνία αποστολής του μηνύματος και η εργασία θα λήξει σε 3 ημέρες. Θα σας υπενθυμίσουμε την εργασία στις 9 π.μ. μετά από μία μέρα. Μπορείτε να τα αλλάξετε όπως χρειάζεστε.

3. Αποθηκεύστε τον κωδικό και πατήστε το άλλος + Q για να κλείσετε το παράθυρο της Microsoft Visual Basic for Applications.

4. Από τώρα και στο εξής, όταν κάνετε κλικ στο Στείλετε κουμπί σε νέο ή απαντημένο παράθυρο email, α Δημιουργία εργασιών θα εμφανιστεί το πλαίσιο διαλόγου όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, κάντε κλικ στο Ναι για να στείλετε το email και να δημιουργήσετε μια εργασία αυτόματα ή κάντε κλικ στο Οχι για να στείλετε το email χωρίς να δημιουργήσετε εργασία.


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

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

Αυτό λειτούργησε για λίγες μέρες και τώρα δεν λειτουργεί πλέον.

Υπάρχει λόγος;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Terri Amos,
Ενεργοποιήστε την επιλογή Ενεργοποίηση όλων των μακροεντολών και την επιλογή Εφαρμογή ρυθμίσεων ασφαλείας μακροεντολών στα εγκατεστημένα πρόσθετα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Μετά από αυτό, επανεκκινήστε το Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL