Email verzenden via VBA

Onderstaande VBA-code in Excel maakt een nieuw e‑mailbericht in Outlook en voegt een bestand als bijlage toe.

Sub StuurMailMetBijlage()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim PadNaarBestand As String

    ' Volledig pad naar de bijlage
    PadNaarBestand = "C:\Map\Bestand.pdf"

    ' Outlook starten
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)   ' 0 = olMailItem

    With OutlookMail
        .To = "******@voorbeeld.com"          ' ontvanger
        .CC = ""                            ' optioneel
        .BCC = ""                           ' optioneel
        .Subject = "Onderwerp van de mail"
        .Body = "Tekst van de e-mail." & vbCrLf & "Met vriendelijke groet," & vbCrLf & "Naam"

        ' Bijlage toevoegen
        .Attachments.Add PadNaarBestand

        ' Toon bericht (gebruik .Send om direct te verzenden)
        .Display
    End With

    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

Belangrijk:

• Outlook moet op de pc geïnstalleerd en geconfigureerd zijn.
• Pas PadNaarBestand, To, Subject en Body aan naar wens.
• Gebruik .Display om eerst te controleren; vervang door .Send om direct te verzenden.

References:

• Getting started with VBA in Office
• Office VBA Reference