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

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

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

Στη συνέχεια, θα σας εκθέσουμε έναν τόσο αποτελεσματικό τρόπο. Χρησιμοποιεί VBA. αν δεν ξέρετε πώς να χρησιμοποιείτε το VBA, μπορείτε να ανατρέξετε στο άρθρο – “Τρόπος εκτέλεσης κώδικα VBA στο Outlook" Εν τω μεταξύ.

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

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

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. Μετά από αυτό, ενεργοποιήστε αυτήν τη μακροεντολή είτε πατώντας απευθείας το κουμπί "F5".
5. Τέλος, όταν ολοκληρωθεί η μακροεντολή, θα σας ζητηθεί ο αριθμός των email που θα σταλούν.
6. Τώρα, ανοίξτε τα Εξερχόμενα, στα οποία μπορείτε να δείτε ότι αποστέλλονται όλα τα email που έχουν ανοίξει προηγουμένως.

Επαναφέρετε το Outlook από απροσδόκητη βλάβη

Έχετε αντιμετωπίσει ποτέ διαφθορά του Outlook στο παρελθόν; Πολλοί χρήστες έχουν αντιμετωπίσει αυτό το ζήτημα και έχουν παραπονεθεί για αυτό. Γενικά, εάν κάνετε έγκαιρες και αποτελεσματικές λύσεις, μπορείτε να ανακτήσετε εύκολα δεδομένα του Outlook κατεστραμμένο PST αρχείο. Για παράδειγμα, εάν έχετε ενημερωμένα δεδομένα του Outlook, μπορείτε εύκολα να επιστρέψετε στο αντίγραφο ασφαλείας. Φυσικά, θα μπορούσατε να χρησιμοποιήσετε ένα εξαιρετικό και αξιόπιστο εργαλείο επισκευής, όπως DataNumen Outlook Repair, το οποίο μπορεί να σαρώσει το κατεστραμμένο αρχείο του Outlook και να ανακτήσει τα μέγιστα δεδομένα.

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

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