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

Πώς να στείλετε email με πολλά συνημμένα συνημμένα στο Excel;

Αυτό το άρθρο αφορά την αποστολή email μέσω του Outlook με πολλά συνημμένα συνημμένα στο Excel.

Στείλτε email με πολλά συνημμένα συνημμένα στο Excel με κωδικό VBA


Στείλτε email με πολλά συνημμένα συνημμένα στο Excel με κωδικό VBA

Κάντε τα εξής για να στείλετε ένα email με πολλά συνημμένα συνημμένα στο Excel.

1. Εισαγάγετε ένα κουμπί εντολής κάνοντας κλικ Εργολάβος > Κύριο θέμα > Κουμπί εντολών (ActiveX Control). Δείτε το στιγμιότυπο οθόνης:

2. Μετά την εισαγωγή του κουμπιού εντολής, κάντε δεξί κλικ και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος.

3. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παρακαλώ κάντε κλικ Εργαλεία > αναφορές όπως φαίνεται παρακάτω.

4. Στο Αναφορές - VBAProject πλαίσιο διαλόγου, βρείτε και επιλέξτε το Βιβλιοθήκη αντικειμένων του Microsoft Outlook και στη συνέχεια κάντε κλικ στο OK κουμπί.

5. Στη συνέχεια, αντικαταστήστε τον αρχικό κωδικό στο παράθυρο Κωδικός με τον παρακάτω κώδικα VBA.

Κωδικός VBA: Αποστολή συνημμένου email με πολλά συνημμένα στο Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Note: προσδιορίστε τον παραλήπτη του email, το θέμα και το σώμα σας αλλάζοντας την παραλλαγή σε .Το = happy.xuebi@163.com, .Θέμα = "δοκιμή" και .HTMLBody = "δοκιμή" γραμμές στον κώδικα.

6. Πάτα το άλλος + Q πλήκτρα μαζί για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.

7. κλικ Εργολάβος > Λειτουργία σχεδίασης για να απενεργοποιήσετε τη λειτουργία σχεδίασης. Δείτε το στιγμιότυπο οθόνης:

8. Κάντε κλικ στο κουμπί Command για να εκτελέσετε τον κωδικό. Στο αναδυόμενο Αναζήτηση παράθυρο, επιλέξτε τα αρχεία που πρέπει να επισυνάψετε στο email και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

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

Note: Ο κωδικός VBA λειτουργεί μόνο όταν χρησιμοποιείτε το Outlook ως πρόγραμμα ηλεκτρονικού ταχυδρομείου.


Στείλτε εύκολα email μέσω του Outlook με βάση τα πεδία της δημιουργημένης λίστας αλληλογραφίας στο Excel:

Η καλύτερη Αποστολή email χρησιμότητα του Kutools για Excel βοηθά τους χρήστες να στέλνουν email μέσω του Outlook με βάση τη λίστα αλληλογραφίας που δημιουργήθηκε στο Excel
Κατεβάστε και δοκιμάστε το τώρα! (30-Ημέρα δωρεάν διαδρομή)



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


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (14)
Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να στείλω "Γρήγορη αποστολή email με πολλαπλά συνημμένα συνημμένα στο Excel με το Kutools για Excel" χρησιμοποιώντας τα παραπάνω βήματα, αλλά θα ήθελα να κάνω ένα βήμα παραπέρα και να εξατομικεύσω κάθε email εισάγοντας τα ονόματά τους (από μια στήλη στο φύλλο του Excel) στο σώμα του email. Ενώ βρίσκομαι στο σώμα του μηνύματος ηλεκτρονικού ταχυδρομείου, προσπαθώ να επιλέξω το πεδίο και να κάνω κλικ στο "Εισαγωγή Placeholder" αλλά δεν συμβαίνει τίποτα. Καμιά ιδέα γιατί ή πώς μπορώ να το διορθώσω; Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι γίνεται αν τα παραπάνω αρχεία βρίσκονται σε υποφακέλους; Πώς να αναζητήσετε ένα αρχείο σε φάκελο και υποφακέλους;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι θα γινόταν αν θα σταλούν πολλοί διαφορετικοί χρήστες και διαφορετικά συνημμένα με διαφορετική γραμμή θέματος.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ο παραπάνω κώδικας λειτουργεί άψογα ευχαριστώ!! αλλά η αυτόματη υπογραφή του email μου φαίνεται να εξαφανίζεται με αυτόν τον κωδικό. καμια ιδεα γιατι?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
HI Team ....δεν μπορώ να δω το συνημμένο στο mail, οπότε αν ακολουθήσω το βήμα σας...μπορείτε να βοηθήσετε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό...... Λειτουργεί τέλεια.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου άρεσε να δουλεύω με αυτήν τη λύση για την προσθήκη πολλαπλών συνημμένων σε ένα email από το Excel VBA. Σας ευχαριστώ. Ξέρω ότι πολλοί από εμάς ωφελούνται και μετά θέλουν κάποια πτυχή προσαρμοσμένη για αυτό ακριβώς που προσπαθούμε να κάνουμε. Δεν είμαι διαφορετικός, αλλά για το βήμα 8. Μπορούμε να ορίσουμε το μονοπάτι που το Αναζήτηση παράθυρο θα ανοίξει με; Μπορώ να περιηγηθώ σε άλλο φάκελο σε διαφορετική τοποθεσία, αλλά αν μπορούσα να ορίσω τη διαδρομή, θα ήταν εξοικονόμηση χρόνου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Me gustaría saber como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.
Σας ευχαριστώ πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Alex de Graaf,
Ο κώδικας καλεί απευθείας το παράθυρο επιλογής αρχείων της Microsoft. Αυτό διευκολύνει τους χρήστες VBA να επιλέξουν τα απαραίτητα αρχεία.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal,

Ναι, το καταλαβαίνω. Ωστόσο, θέλω οι χρήστες να μπορούν να επιλέγουν μόνο αρχεία pdf.
Είναι αυτό δυνατό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Alex de Graaf,
Ο ακόλουθος κώδικας VBA παραθέτει μόνο τα αρχεία PDF στο παράθυρο Αναζήτηση. Δοκιμάστε το.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal,
Ναι, το καταλαβαίνω. Ωστόσο, είναι δυνατός ο περιορισμός των χρηστών να επιλέγουν μόνο αρχεία pdf;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
أريد إرسال بريد إلكتروني مع البريد أو hotmail με CDO ολκώς λέμε ότι μόνο με τον υπολογιστή σας είναι απλά άριστ ή μεταφρασμένος από τον υπολογιστή σας για να μεταβείτε στο ηλεκτρονικό ταχυδρομείο με το ηλεκτρονικό ταχυδρομείο ή το MF62 Excel naims.
Βαθμολογήθηκε το 5 από το 5
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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