Telkens wanneer u een specifiek Excel-werkblad bijwerkt en u altijd een e-mailmelding naar specifieke ontvangers moet sturen, kunt u de methode gebruiken die in dit artikel is geïntroduceerd.
Sommige gebruikers vragen om een oplossing om MS Excel automatisch een Outlook-e-mailmelding te laten sturen naar specifieke personen telkens wanneer ze een specifiek werkblad bijwerken, in die zin dat ze vaak vergeten zo'n e-mail te sturen. In het volgende zullen we u nu laten zien hoe u deze functie met VBA-code kunt bereiken.
Stuur automatisch een e-mail wanneer een specifiek Excel-werkblad wordt bijgewerkt
- Krijg in de eerste plaats toegang tot de bron-Excel-werkmap die het specifieke werkblad bevat.
- Ga vervolgens in het MS Excel-venster naar het menu 'Bestand' en selecteer 'Opties'.
- Ga vervolgens in het venster "Excel-opties" naar het tabblad "Vertrouwenscentrum" en klik op de knop "Instellingen vertrouwenscentrum".
- Ga vervolgens in het nieuwe venster naar het tabblad "Macro-instellingen", waar u "Alle macro's inschakelen" moet selecteren.
- Ga daarna naar het tabblad "Privacyopties" en schakel de functie "Persoonlijke informatie verwijderen uit bestandseigenschappen bij opslaan" in.
- Klik vervolgens meerdere keren op "OK" om deze instellingen op te slaan.
- Ga na het back-uppen naar de Excel-werkmap naar het specifieke werkblad.
- Klik met de rechtermuisknop op de naam van het werkblad in de onderste zijbalk en kies "Code weergeven".
- Kopieer daarna de volgende VBA-code naar het project van het specifieke blad.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- Daarna moet u deze werkmap opslaan als Excel-werkmap met macro's.
- Sluit eerst het venster "Microsoft Visual Basic for Applications".
- Klik vervolgens op "Bestand" in de linkerbovenhoek.
- Kies vervolgens "Opslaan als".
- Kies in het dialoogvenster voor "Excel Macro-Enabled Workbook" in het veld "Opslaan als type".
- Klik ten slotte op de knop "Opslaan".
- Ten slotte kunt u deze werkmap sluiten.
- Nu kunt u de eerder opgeslagen Excel-werkmap met macro's openen.
- Wanneer u wijzigingen aanbrengt in het specifieke werkblad, ontvangt u een bericht met de vraag of u een e-mailmelding wilt verzenden.
- Wanneer u op de knop "Ja" klikt, wordt een Outlook-e-mail verzonden naar de vooraf gedefinieerde ontvangers.
- Deze e-mail ziet eruit als de onderstaande schermafbeelding:
Repareer een beschadigd Outlook-gegevensbestand
Misschien bent u ooit Excel-bestandscorruptie tegengekomen. Eigenlijk is het Outlook-gegevensbestand net zo kwetsbaar als het Excel-bestand. Het onjuist sluiten van Outlook kan bijvoorbeeld gemakkelijk leiden tot corruptie van PST-bestanden. Daarom is het essentieel om maatregelen te nemen om het Outlook-bestand te beschermen, inclusief het regelmatig maken van gegevensback-ups en het voorbereiden van een robuuste PST-fix-tool, zoals DataNumen Outlook Repair. Dit hulpprogramma is krachtig genoeg om reparatie PST problemen oplossen en PST-gegevens herstellen.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com