Hoe stuur ik een e-mail met meerdere bijlagen in Excel?

In dit artikel wordt gesproken over het verzenden van een e-mail via Outlook met meerdere bijlagen in Excel.

Stuur e-mail met meerdere bijlagen in Excel met VBA-code

Stuur e-mail met meerdere bijlagen in Excel met VBA-code

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

Ga als volgt te werk om een ​​e-mail met meerdere bijlagen in Excel te verzenden.

1. Voeg een commandoknop in door op te klikken Ontwikkelaar > Invoegen > Commandoknop (ActiveX-besturingselement). Zie screenshot:

2. Na het invoegen van de Command-knop, klik er met de rechtermuisknop op en selecteer Bekijk code vanuit het contextmenu.

3. In de opening Microsoft Visual Basic voor toepassingen venster, klik dan Toolbox > Referenties zoals hieronder getoond screenshot.

4. In de Referenties - VBAProject dialoogvenster, zoek en controleer het Microsoft Outlook-objectbibliotheek optie en klik vervolgens op het OK knop.

5. Vervang vervolgens de originele code in het codevenster door onderstaande VBA-code.

VBA-code: stuur een e-mail 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 hoofdtekst door de variate in .To = happy.xuebi@163.com, .Subject = "test" en .HTMLBody = "test" regels in de code.

6. druk de anders + Q toetsen samen om het Microsoft Visual Basic voor toepassingen venster.

7. klikken Ontwikkelaar > Ontwerpmodus om de ontwerpmodus uit te schakelen. Zie screenshot:

8. Klik op de Command-knop om de code uit te voeren. Bij het opduiken Blader selecteer de bestanden die u in de e-mail wilt bijvoegen en klik vervolgens op het OK knop. Zie screenshot:

9. Vervolgens wordt een e-mail gemaakt met gespecificeerde velden en bijlagen. Klik op het Verstuur knop om het te verzenden. Zie screenshot:

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

Gerelateerde artikelen:

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

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...