Hoe verzendt u een e-mailherinnering of -melding wanneer de werkmap in Excel wordt bijgewerkt?
In sommige gevallen moet u mogelijk een e-mailmelding verzenden naar een opgegeven ontvanger als er gegevens worden bijgewerkt in de werkmap die u hebt verstuurd. In dit artikel wordt een methode beschreven om dit te realiseren.
E-mailherinnering of -melding verzenden als de werkmap wordt bijgewerkt met VBA-code
E-mailherinnering of -melding verzenden als de werkmap wordt bijgewerkt met VBA-code
Volg deze stappen om een e-mailherinnering of -melding te verzenden wanneer de werkmap wordt bijgewerkt.
1. Open in de werkmap het specifieke werkblad dat u als basis wilt gebruiken voor de e-mailmelding, afhankelijk van de bijgewerkte gegevens.
2. Klik met de rechtermuisknop op het bladtabblad en selecteer Code weergeven in het contextmenu. Zie screenshot:
2. Plak in het venster Microsoft Visual Basic for Applications de volgende code in het codevenster. Zie screenshot:
VBA-code: E-mailherinnering of -melding verzenden als de werkmap wordt bijgewerkt
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End SubOpmerking: Vervang E-mailadres door het e-mailadres van de ontvanger in de regel .To = „E-mailadres". Pas ook de velden Cc, Onderwerp en berichttekst in de VBA-code aan naar wens.
3. Druk op de toetsencombinatie Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
4. Nadat u een cel in het werkblad hebt bewerkt, verschijnt het dialoogvenster Kutools voor Excel, zoals hieronder in de screenshot is weergegeven. Als u de bijgewerkte werkmap als bijlage aan de e-mail wilt toevoegen, klikt u op de knop Ja. Klik anders op de knop Nee.
5. Vervolgens wordt er automatisch een e-mail gemaakt, met of zonder de bijgewerkte werkmap als bijlage. Alle opgegeven velden zijn opgenomen in de e-mail. Klik op de knop Verzenden om deze te versturen.
Opmerking: De VBA-code werkt alleen wanneer u Outlook gebruikt als uw e-mailprogramma.
Gerelateerde artikelen:
- Hoe verzendt u automatisch een e-mail op basis van een celwaarde in Excel?
- Hoe verzendt u een e-mail via Outlook wanneer de werkmap wordt opgeslagen in Excel?
- Hoe verzendt u een e-mail als een bepaalde cel wordt gewijzigd in Excel?
- Hoe verzendt u een e-mail als er op een knop wordt geklikt in Excel?
- Hoe verzendt u een e-mail als Vervaldatum is voldaan in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins