Πώς να στείλετε μαζικά πολλά πρόχειρα μηνύματα ηλεκτρονικού ταχυδρομείου με το Outlook VBA

Για ορισμένους λόγους, μπορείτε να αποθηκεύσετε πολλά πρόχειρα email στο Outlook σας. Αυτό το άρθρο θα σας διδάξει πώς να στέλνετε ομαδικά όλα αυτά ή απλώς τα επιλεγμένα με ένα κλικ, το οποίο δημιουργείται με το Outlook VBA.

Μερικές φορές, μπορεί να μην ελπίζετε να στείλετε τα email αυτή τη στιγμή. Επομένως, θα τα αποθηκεύσετε στον φάκελο αλληλογραφίας Πρόχειρα και σκοπεύετε να τα στείλετε αργότερα. Ως συνήθως, όταν θέλετε να στείλετε τα πρόχειρα, πρέπει να τα ανοίξετε μεμονωμένα και να πατήσετε το κουμπί "Αποστολή" ένα προς ένα. Εάν υπάρχει μεγάλος αριθμός πρόχειρων για αποστολή, θα είναι αρκετά χρονοβόρο. Ως εκ τούτου, πολλοί χρήστες ελπίζουν ότι το Outlook μπορεί να τους επιτρέψει να στείλουν όλα τα προσχέδια κάνοντας απλώς κλικ σε ένα κουμπί. Ωστόσο, από προεπιλογή, δεν υπάρχει τέτοιο κουμπί. Αλλά μπορείτε να εφαρμόσετε το Outlook VBA για να το δημιουργήσετε. Εδώ είναι τα περίπλοκα βήματα και οι κωδικοί VBA.

Μαζική αποστολή όλων των πρόχειρων μηνυμάτων ηλεκτρονικού ταχυδρομείου

1. Αρχικά, εκκινήστε την εφαρμογή Outlook και πατήστε τις συντομεύσεις "Alt + F11".
2. Στη συνέχεια, θα ανοίξετε το παράθυρο του επεξεργαστή VBA, στο οποίο θα πρέπει να ανοίξετε μια νέα ενότητα.
3. Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε αυτό.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

4. Μετά από αυτό, μπορείτε να βγείτε από το πρόγραμμα επεξεργασίας VBA και να προχωρήσετε στην προσθήκη του έργου VBA στη γραμμή εργαλείων γρήγορης πρόσβασης ή στην κορδέλα. Εδώ θα πάρουμε ως παράδειγμα τη γραμμή εργαλείων γρήγορης πρόσβασης.

• Αρχικά, μεταβείτε στην καρτέλα «Αρχείο» > «Επιλογές» > «Γραμμή εργαλείων γρήγορης πρόσβασης».
• Στη συνέχεια, ακολουθήστε τα βήματα που φαίνονται στην παρακάτω εικόνα για να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.

5. Τέλος, μπορείτε να επιστρέψετε στο κύριο παράθυρο του Outlook. Θα δείτε το νέο κουμπί στη γραμμή εργαλείων γρήγορης πρόσβασης.

• Εάν δεν υπάρχει κανένα στοιχείο στο φάκελο Πρόχειρα, όταν κάνετε κλικ στο κουμπί, θα λάβετε ένα μήνυμα όπως το παρακάτω στιγμιότυπο οθόνης.
• Αλλά εάν υπάρχουν στοιχεία στο φάκελο Πρόχειρα, θα λάβετε ένα μήνυμα, όπως η παρακάτω εικόνα. Μόλις επιλέξετε "Ναι", το Outlook θα αρχίσει να στέλνει όλα τα πρόχειρα.

Μαζική αποστολή επιλεγμένων πρόχειρων μηνυμάτων ηλεκτρονικού ταχυδρομείου

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

1. Αρχικά, αντιγράψτε τα σε μια νέα ενότητα.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

2. Στη συνέχεια, προσθέστε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης ως συνήθως.
3. Στη συνέχεια, μπορείτε να επιλέξετε το tarλάβετε πρόχειρα email και πατήστε το κουμπί, θα λάβετε ένα μήνυμα όπως η εικόνα:
4. Τέλος, εφόσον κάνετε κλικ στο «Ναι», τα επιλεγμένα πρόχειρα email θα σταλούν.

Απορρίψτε τα ενοχλητικά προβλήματα του Outlook

Ίσως έχετε αντιμετωπίσει πολλά ενοχλητικά ζητήματα του Outlook. Πώς μπορείτε να απαλλαγείτε από αυτά; Ως συνήθως, μπορείτε να δοκιμάσετε το ενσωματωμένο εργαλείο επισκευής, το Scanpst.exe. Είναι σε θέση να διορθώσει τα μικρά ζητήματα του αρχείου PST του Outlook. Αλλά αν δυστυχώς συναντήσετε σοβαρά προβλήματα, όπως π.χ Ζημιά ηλεκτρονικού ταχυδρομείου PST, το εργαλείο εισερχομένων δεν θα κάνει εφέ. Σε εκείνο το σημείο, δεν έχετε άλλη επιλογή από το να χρησιμοποιήσετε ένα πιο εξέχον εργαλείο, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επισκευή σφαλμάτων mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com