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

Πώς να στείλετε πολλά πρόχειρα ταυτόχρονα στο Outlook;

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

Αποστολή όλων των πρόχειρων μηνυμάτων ταυτόχρονα στο Outlook με κωδικό VBA


Αποστολή όλων των πρόχειρων μηνυμάτων ταυτόχρονα στο Outlook με κωδικό VBA

Οι ακόλουθοι κωδικοί VBA μπορούν να σας βοηθήσουν να στείλετε ταυτόχρονα όλα ή επιλεγμένα πρόχειρα μηνύματα ηλεκτρονικού ταχυδρομείου από το φάκελο Πρόχειρα, κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

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

Sub SendAllDraftEmails()
Dim xAccount As Account
Dim xDraftFld As Folder
Dim xItemCount As Integer
Dim xCount As Integer
Dim xDraftsItems As Outlook.Items
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xCurFld As Folder
Dim xTmpFld As Folder
On Error Resume Next
xItemCount = 0
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    xItemCount = xItemCount + xDraftFld.Items.Count
    If xDraftFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
Set xDraftFld = Nothing
If xItemCount > 0 Then
   xPromptStr = "Are you sure to send out all the drafts?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        If Not xTmpFld Is Nothing Then
            Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        End If
        VBA.DoEvents
        For Each xAccount In Outlook.Application.Session.Accounts
            Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
            Set xDraftsItems = xDraftFld.Items
            For i = xDraftsItems.Count To 1 Step -1
                If xDraftsItems.Item(i).Recipients.Count <> 0 Then
                    xDraftsItems.Item(i).sEnd
                    xCount = xCount + 1
                End If
            Next
        Next xAccount
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No Drafts!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

3. Στη συνέχεια, αποθηκεύστε τον κωδικό και πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει εάν στείλετε όλα τα πρόχειρα, κάντε κλικ Ναι, δείτε το στιγμιότυπο οθόνης:

4. Και θα εμφανιστεί ένα παράθυρο διαλόγου για να σας υπενθυμίσει πόσα πρόχειρα μηνύματα ηλεκτρονικού ταχυδρομείου έχουν σταλεί, δείτε το στιγμιότυπο οθόνης:

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλα τα μηνύματα στο Πρόχειρα ο φάκελος θα σταλεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

:

1. Ο παραπάνω κώδικας θα στείλει όλα τα πρόχειρα μηνύματα ηλεκτρονικού ταχυδρομείου από όλους τους λογαριασμούς στο Outlook.

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

Κωδικός VBA: Αποστολή επιλεγμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου από το φάκελο Πρόχειρα:

Sub SendSelectedDraftEmails()
Dim xSelection As Selection
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xAccount As Account
Dim xCurFld As Folder
Dim xDraftsFld As Folder
Dim xTmpFld As Folder
Dim xArr() As String
Dim xCount As Integer
Dim xMail As MailItem
On Error Resume Next
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftsFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    If xDraftsFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
If xTmpFld Is Nothing Then
    MsgBox "The current folder is not a draft folder", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection.Count > 0 Then
    xPromptStr = "Are you sure to send out the selected " & xSelection.Count & " draft item(s)?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        ReDim xArr(xSelection.Count - 1)
        For i = 1 To xSelection.Count
            xArr(i - 1) = xSelection.Item(i).EntryID
        Next
        Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        VBA.DoEvents
        For i = 0 To UBound(xArr)
            Set xMail = Application.Session.GetItemFromID(xArr(i))
            If xMail.Recipients.Count <> 0 Then
                xMail.sEnd
                xCount = xCount + 1
            End If
        Next
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No items selected!", vbInformation, "Kutools for Outlook"
End If
End Sub

Σχετικά Άρθρα:

Πώς να στείλετε ένα email σε πολλούς παραλήπτες μεμονωμένα στο Outlook;

Πώς να στείλετε εξατομικευμένα ηλεκτρονικά μηνύματα σε λίστα από το Excel μέσω του Outlook;

Πώς να στείλετε ένα ημερολόγιο σε πολλούς παραλήπτες μεμονωμένα στο Outlook;

Πώς να στείλετε email σε πολλούς παραλήπτες χωρίς να το γνωρίζουν στο Outlook;


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

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (15)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό, λειτούργησε μια γοητεία, ευχαριστώ :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
einfach nur perfekt. Herzlichen Dank
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αντιγράφηκε όπως αναφέρεται παραπάνω αλλά όταν πατάω το F5 δεν γίνεται τίποτα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Cathleen,
Ο παραπάνω κώδικας λειτουργεί καλά στο Outlook μου, ποια έκδοση του Outlook χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω πολλούς λογαριασμούς ανταλλαγής. Θέλω να έχω έναν από τους λογαριασμούς που δεν είναι ο προεπιλεγμένος μου αποστολέας. Πού θα το έβαζα στον κωδικό; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνει κανείς κάποια μηνύματα ηλεκτρονικού ταχυδρομείου στον διαγραμμένο φάκελο κάνοντας αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Bill,
Θέλετε να στείλετε πολλά επιλεγμένα email από το διαγραμμένο φάκελο;
Παρακαλώ δώστε το πρόβλημά σας πιο αναλυτικά, σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου skyyang, αντιμετωπίζω το ίδιο πρόβλημα. Συντάσσω συνήθως 15-20 email και στη συνέχεια χρησιμοποιώ αυτόν τον κωδικό για να τα στείλω όλα ταυτόχρονα, αλλά αργότερα συνειδητοποιώ ότι ένα από αυτά τα μηνύματα ηλεκτρονικού ταχυδρομείου δεν αποστέλλεται, αλλά αποστέλλονται στον φάκελο "Διαγραμμένα". Ακόμη και η προτροπή λέει τον σωστό αριθμό email για π.χ.: "20 emails έχουν σταλεί", αλλά όταν ελέγξω, θα είχαν σταλεί μόνο 19, ένα θα το βρω στον φάκελο με τα διαγραμμένα στοιχεία μου. Θέλω όλα τα email να αποστέλλονται στους παραλήπτες τους χωρίς σφάλμα. Μπορείτε να μου πείτε γιατί συμβαίνει αυτό. Παρακαλώ βοηθήστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Darewin, Ενημερώσαμε τους παραπάνω κωδικούς, δοκιμάστε ξανά, σας ευχαριστούμε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ίδιο πρόβλημα: εάν επιλέξετε 4 μηνύματα, αφού στείλετε τρία από αυτά βρίσκονται στον φάκελο απορριμμάτων (λόγω της δήλωσης "xDraftsItems.Item(i).Delete")
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιήσαμε το σενάριο για να στείλουμε όλα τα πρόχειρα μηνύματα ηλεκτρονικού ταχυδρομείου ταυτόχρονα για μια παρτίδα μηνυμάτων ηλεκτρονικού ταχυδρομείου που δημιουργήθηκαν από το Sage 200. Τα μηνύματα ηλεκτρονικού ταχυδρομείου στα απεσταλμένα αντικείμενα φαίνονται ωραία, αλλά οι πελάτες τα λαμβάνουν με το κύριο κείμενο στα κινέζικα! Καμιά ιδέα τι μπορεί να συμβαίνει εδώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να εξηγήσετε γιατί η τελευταία αλληλογραφία (i = 1) δημιουργείται εκ νέου σε ένα νέο MailItem αντί για απλώς .Send;

Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, γρήγορη ερώτηση, ίσως έχετε μια ιδέα. Έχουμε μια εξωτερική εφαρμογή που αποθηκεύει όλα τα μηνύματα στο φάκελο πρόχειρων. αν τρέξω τη μακροεντολή έχουμε το πρόβλημα, ότι μόνο το πρώτο μήνυμα στη λίστα αποστέλλεται σωστά, όλα τα άλλα μηνύματα αναβάλλονται επειδή προσθέτει εισαγωγικά " " στη διεύθυνση αλληλογραφίας. Υπάρχει τρόπος να αποφευχθεί αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κώδικας στέλνει όλα τα πρόχειρα σε έναν υποφάκελο που ονομάζεται Εργαλεία συγχώνευσης (σας ρωτά πριν από την αποστολή). Είμαι σίγουρος ότι μπορείτε να το επεξεργαστείτε για να ταιριάζει στις ανάγκες σας. Είναι πολύ πιο απλό. Απολαμβάνω :)
Sub SendAllMergeToolsDrafts()

If MsgBox("Είστε βέβαιοι ότι θέλετε να στείλετε ΟΛΑ τα στοιχεία στον φάκελο προχείρων Merge Tools;", _
vbQuestion + vbYesNo) <> vbYes Στη συνέχεια, βγείτε από το Sub

Dim myNamespace As Outlook.NameSpace 'Αλλαγή προβολής σε Inbox για να αποφευχθεί το ενσωματωμένο σφάλμα
Ορισμός myNamespace = Application.GetNamespace("MAPI") 'Αλλαγή προβολής σε Εισερχόμενα για να αποφευχθεί το ενσωματωμένο σφάλμα
Ορισμός Application.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderInbox) 'Αλλαγή προβολής σε Εισερχόμενα για να αποφευχθεί το ενσωματωμένο σφάλμα

Dim fldDraft As MAPIFolder, msg As Outlook.MailItem, intCount As Integer
Ορισμός fldDraft = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts).Folders("Merge Tools") 'Στέλνει όλα τα πρόχειρα μόνο στο φάκελο Merge Tools
intCount = 0
Do while fldDraft.Items.count > 0
Ορισμός msg = fldDraft.Items(1)
μήνυμα.Αποστολή
intCount = intCount + 1
Βρόχος
Αν όχι (το μήνυμα δεν είναι τίποτα) Τότε ορίστε msg = τίποτα
Ορισμός fldDraft = Τίποτα
MsgBox intCount & " μηνύματα στάλθηκαν", vbInformation + vbOKOnly

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας παιδιά. Σκέφτηκα να μοιραστώ. Εδώ είναι ο κωδικός μου για την αποστολή όλων των πρόχειρων:
Sub SendAllDrafts() 'Από jamesmalcolmwood@gmail.com

If MsgBox("Είστε βέβαιοι ότι θέλετε να στείλετε ΟΛΑ τα στοιχεία στον φάκελο πρόχειρών σας;", _
vbQuestion + vbYesNo) <> vbYes Στη συνέχεια, βγείτε από το Sub

Dim myNamespace As Outlook.NameSpace 'Αλλαγή προβολής σε Inbox για να αποφευχθεί το ενσωματωμένο σφάλμα
Ορισμός myNamespace = Application.GetNamespace("MAPI") 'Αλλαγή προβολής σε Εισερχόμενα για να αποφευχθεί το ενσωματωμένο σφάλμα
Ορισμός Application.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderInbox) 'Αλλαγή προβολής σε Εισερχόμενα για να αποφευχθεί το ενσωματωμένο σφάλμα

Dim fldDraft As MAPIFolder, msg As Outlook.MailItem, intCount As Integer
Ορισμός fldDraft = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts) 'Στέλνει όλα τα πρόχειρα στον κύριο φάκελο πρόχειρων. Για έναν υποφάκελο, προσθέστε .Folders("όνομα φακέλου")
intCount = 0
Do while fldDraft.Items.count > 0
Ορισμός msg = fldDraft.Items(1)
μήνυμα.Αποστολή
intCount = intCount + 1
Βρόχος
Αν όχι (το μήνυμα δεν είναι τίποτα) Τότε ορίστε msg = τίποτα
Ορισμός fldDraft = Τίποτα
MsgBox intCount & " μηνύματα στάλθηκαν", vbInformation + vbOKOnly

Sub End
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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