Hoe een e-mail met meerdere bijlagen in Excel te versturen?

Dit artikel gaat over het verzenden van een e-mail via Outlook met meerdere bijlagen in Excel.

E-mail met meerdere bijlagen in Excel verzenden met VBA-code

E-mail met meerdere bijlagen in Excel verzenden met VBA-code

Volg de volgende stappen om een e-mail met meerdere bijlagen in Excel te versturen.

1. Voeg een opdrachtknop in door te klikken op Ontwikkelaar > Invoegen > Opdrachtknop (ActiveX Control). Zie screenshot:

2. Nadat u de Opdrachtknop hebt ingevoegd, klikt u er met de rechtermuisknop op en selecteert u Code Weergeven in het contextmenu.

3. Klik in het venster Microsoft Visual Basic for Applications dat wordt geopend, op Tools > References zoals in onderstaande screenshot te zien is.

4. Vind en vink in het dialoogvenster References – VBAProject de optie Microsoft Outlook Object Library aan, en klik vervolgens op de OK-knop.

5. Vervang vervolgens de originele code in het Code-venster door de volgende VBA-code.

VBA-code: E-mail verzenden met meerdere bijlagen in 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

Opmerking: specificeer uw e-mailontvanger, onderwerp en tekst door de variabele te wijzigen in .To = happy.xuebi@163.com, .Subject = "test" en .HTMLBody = "test" regels in de code.

6. Druk tegelijk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te verlaten.

7. Klik op Ontwikkelaar > Ontwerpmodus om de Ontwerpmodus uit te schakelen. Zie screenshot:

8. Klik op de Opdrachtknop om de code uit te voeren. Selecteer in het pop-up venster Bladeren de bestanden die u wilt bijvoegen in de e-mail, en klik vervolgens op de OK-knop. Zie screenshot:

9. Er wordt een e-mail gemaakt met de gespecificeerde velden en bijlagen weergegeven. Klik op de knop Verzenden om deze te versturen. Zie screenshot:

Opmerking: De VBA-code werkt alleen wanneer u Outlook als uw e-mailprogramma gebruikt.

Gerelateerde artikelen:

• Hoe een e-mail naar e-mailadressen die zijn opgegeven in cellen in Excel te verzenden?
• Hoe een e-mail te verzenden met het kopiëren en plakken van een gespecificeerd bereik in de e-mailtekst in Excel?
• Hoe een handtekening in een Outlook-e-mail in te voegen bij het verzenden via VBA in Excel?
• Hoe een e-mail te verzenden als de vervaldatum is bereikt in Excel?
• Hoe automatisch een e-mail te versturen op basis van celwaarde in Excel?