Πώς να στείλετε 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

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

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

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

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

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

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

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

• Πώς να στείλετε email σε διευθύνσεις email που καθορίζονται σε κελιά στο Excel;
• Πώς να στείλετε email με αντιγραφή και επικόλληση συγκεκριμένου εύρους στο σώμα email στο Excel;
• Πώς να εισαγάγετε υπογραφή στο email του Outlook κατά την αποστολή μέσω vba στο Excel;
• Πώς να στείλετε email εάν έχει πληρωθεί η προθεσμία στο Excel;
• Πώς να στέλνετε αυτόματα email με βάση την τιμή κελιού στο Excel;