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

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

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

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

Φοβερο! Χρήση αποτελεσματικών καρτελών στο Excel όπως το Chrome, το Firefox και το Safari!

Εξοικονομήστε 50% του χρόνου σας και μειώστε χιλιάδες κλικ ποντικιού για εσάς κάθε μέρα!

---

Κάντε τα εξής για να στείλετε ένα 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 σε διευθύνσεις email που καθορίζονται σε κελιά στο Excel;
• Πώς να στείλετε email με αντιγραφή και επικόλληση συγκεκριμένου εύρους στο σώμα email στο Excel;
• Πώς να εισαγάγετε υπογραφή στο email του Outlook κατά την αποστολή μέσω vba στο Excel;
• Πώς να στείλετε email εάν έχει πληρωθεί η προθεσμία στο Excel;
• Πώς να στέλνετε αυτόματα email με βάση την τιμή κελιού στο Excel;

---

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

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

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

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά... 

---

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

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...