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 Tools > 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 = ""
.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 .Naar = , .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:
Het 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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab 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!
