Hoe een e-mail via Outlook verzenden wanneer het werkboek wordt opgeslagen in Excel?

Deze handleiding laat zien hoe je automatisch een e-mail via Outlook kunt versturen wanneer een specifiek werkboek wordt opgeslagen in Excel. Door een eenvoudige VBA-code te gebruiken, kun je ervoor zorgen dat updates van je werkboek naadloos worden gedeeld.

Een e-mail verzenden via Outlook wanneer het werkboek wordt opgeslagen met VBA-code

Een e-mail verzenden via Outlook wanneer het werkboek wordt opgeslagen met VBA-code

Om een e-mail via Outlook te verzenden wanneer het werkboek wordt opgeslagen in Excel, volg dan de volgende stappen.

1. Sla eerst het werkboek op als een Excel Werkboek met Macro's ingeschakeld. Klik op Bestand > Opslaan als. Kies in het dialoogvenster Opslaan als een map om het werkboek op te slaan, voer een naam in het vak Bestandsnaam in, selecteer Excel Werkboek met Macro's ingeschakeld uit de vervolgkeuzelijst Opmaak opgeven voor opslaan en klik vervolgens op de knop Opslaan. Zie screenshot:

2. Open het zojuist opgeslagen Excel Werkboek met Macro's ingeschakeld, druk tegelijkertijd op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisWorkbook in de linker zijbalk, kopieer en plak vervolgens de onderstaande VBA-code in het codevenster van ThisWorkbook. Zie screenshot:

VBA-code: E-mail verzenden wanneer werkboek wordt opgeslagen

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Opmerking: Vervang E-mail Adres door het e-mailadres van de ontvanger in de regel .To = "Email Address". Pas de velden Cc, Onderwerp en Inhoud in de VBA-code naar behoefte aan.

3. Druk tegelijkertijd op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

Vanaf nu zal er telkens wanneer je het werkboek bijwerkt en opslaat, automatisch een e-mail worden aangemaakt met het bijgewerkte werkboek als bijlage. Klik op de knop Verzenden om de e-mail te versturen. Zie screenshot:

Opmerking: Deze VBA-code werkt alleen als je Outlook als je e-mailprogramma gebruikt.

Gerelateerde artikelen:

• Hoe automatisch een e-mail verzenden op basis van een celwaarde in Excel?
• Hoe een e-mail verzenden als een bepaalde cel wordt gewijzigd in Excel?
• Hoe een e-mail verzenden als een knop wordt geklikt in Excel?
• Hoe een e-mail verzenden als een vervaldatum is bereikt in Excel?
• Hoe een e-mailherinnering of -melding verzenden als een werkboek wordt bijgewerkt in Excel?