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
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 SubOpmerking:: specificeer uw e-mailontvanger, onderwerp en hoofdtekst door de variate in .To = blij.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 Verzenden knop om het te verzenden. Zie screenshot:
Opmerking:: De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.
Verzend eenvoudig e-mail via Outlook op basis van velden van gemaakte mailinglijst in Excel:
De Stuur emails nut van Kutools for Excel helpt gebruikers bij het verzenden van e-mail via Outlook op basis van de gemaakte mailinglijst in Excel.
Download en probeer het nu! (30-dag gratis parcours)
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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
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 honderden muisklikken voor u elke dag!
