Mail Versturen Vanuit Excel Vba Top 13 Posts With The Most Views

Om een e-mail te versturen vanuit Excel VBA, kun je gebruik maken van de ingebouwde functionaliteit van Microsoft Outlook. Hieronder vind je een voorbeeldcode om een e-mail te versturen met een bijlage:

vbnet
Sub VerstuurEmail()

    'Variabelen declareren
    Dim OutApp As Object
    Dim OutMail As Object
    Dim FilePath As String
    
    'Pad naar bijlage
    FilePath = "C:\MijnBestand.pdf"
    
    'Outlook applicatie openen
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    'E-mail eigenschappen instellen
    With OutMail
        .To = "[email protected]"
        .Subject = "Onderwerp van de e-mail"
        .Body = "Inhoud van de e-mail"
        .Attachments.Add FilePath 'bijlage toevoegen
        .Send 'direct verzenden, voor testen kan je .Display gebruiken
    End With
    
    'Outlook applicatie sluiten
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

In de code kun je de ontvanger van de e-mail, het onderwerp, de inhoud en het pad naar de bijlage aanpassen aan jouw specifieke situatie. Let op dat je hiervoor Outlook geïnstalleerd moet hebben en dat je de benodigde rechten moet hebben om e-mails te versturen vanuit Outlook.

Ja, je kunt VBA gebruiken om e-mails te versturen vanuit Excel met bijlagen. Hieronder vindt je een voorbeeld van VBA-code die je kunt gebruiken om een e-mail te verzenden vanuit Excel met een bijlage:

vbnet
Sub SendEmail()

    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim FilePath As String
    
    ' Maak een nieuw Outlook-object aan
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' Stel de ontvanger, het onderwerp en het bericht in
    With OutlookMail
        .To = "[email protected]"
        .Subject = "Onderwerp van de e-mail"
        .Body = "Inhoud van het bericht"
    End With
    
    ' Stel het pad van de bijlage in
    FilePath = "C:\Pad\Naar\Bestand.xlsx"
    
    ' Voeg de bijlage toe
    With OutlookMail
        .Attachments.Add FilePath
    End With
    
    ' Verstuur de e-mail
    OutlookMail.Send
    
    ' Ruim de objecten op
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    
End Sub

Je moet het e-mailadres van de ontvanger en het pad naar de bijlage in de code aanpassen aan jouw situatie. Vergeet niet om referenties naar Microsoft Outlook Object Library toe te voegen aan jouw Excel-bestand om deze code te laten werken.

Het is mogelijk om e-mails te verzenden vanuit Excel door gebruik te maken van VBA (Visual Basic for Applications) code.

Hier is een voorbeeld van VBA-code die een e-mail opstelt en verstuurt vanuit Excel:

vbnet
Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim strTo As String
    Dim strCC As String
    Dim strSubject As String
    Dim strBody As String
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    'Stel de ontvanger(s) in
    strTo = "[email protected]"
    
    'Stel de CC-ontvanger(s) in (optioneel)
    strCC = "[email protected]"
    
    'Stel het onderwerp van de e-mail in
    strSubject = "Onderwerp van de e-mail"
    
    'Stel de inhoud van de e-mail in
    strBody = "Inhoud van de e-mail"
    
    'Voeg de ontvanger(s) toe aan de e-mail
    OutlookMail.To = strTo
    
    'Voeg de CC-ontvanger(s) toe aan de e-mail (optioneel)
    OutlookMail.CC = strCC
    
    'Voeg het onderwerp toe aan de e-mail
    OutlookMail.Subject = strSubject
    
    'Voeg de inhoud toe aan de e-mail
    OutlookMail.Body = strBody
    
    'Verstuur de e-mail
    OutlookMail.Send
    
    'Ruim op
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

Je kunt deze code toevoegen aan een module in de Visual Basic Editor in Excel en vervolgens de macro uitvoeren om de e-mail te verzenden. Houd er rekening mee dat je Outlook moet hebben geïnstalleerd en geconfigureerd op je computer voor deze code om te werken.