Hver gang du opdaterer et specifikt Excel-regneark, hvis du altid har brug for at sende en e-mail-underretning til bestemte modtagere, kan du bruge metoden introduceret i denne artikel.
Nogle brugere beder om en løsning til at lade MS Excel automatisk sende en Outlook-e-mail-underretning til bestemte personer hver gang de opdaterer et specifikt regneark, idet de ofte glemmer at sende en sådan e-mail. Nu, i det følgende, vil vi guide, hvordan du opnår denne funktion med VBA-kode.
Send automatisk en e-mail, når et specifikt Excel-regneark opdateres
- For det første skal du få adgang til kilden Excel-projektmappe, der indeholder det specifikke regneark.
- Gå derefter til MS Excel-vinduet i menuen 'File' og vælg "Options".
- Dernæst, i vinduet "Excel-indstillinger", skift til "Trust Center" -fanen og klik på "Trust Center Settings" -knappen.
- Derefter skiftes i det nye vindue til fanen "Makroindstillinger", hvorunder du skal vælge "Aktivér alle makroer".
- Derefter skal du gå til fanen "Privatlivsindstillinger" og aktivere funktionen "Fjern personlige oplysninger fra filegenskaber ved gemning".
- Klik derefter på flere “OK” for at gemme disse indstillinger.
- Efter sikkerhedskopiering til Excel-projektmappen skal du åbne det specifikke regneark.
- Højreklik på regnearkets navn i nederste sidepanel, og vælg "Vis kode".
- Derefter skal du kopiere følgende VBA-kode til projektet på det specifikke ark.
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
- Derefter skal du gemme denne projektmappe som Excel-makroaktiveret projektmappe.
- Luk først vinduet “Microsoft Visual Basic for Applications”.
- Klik derefter på "File" i øverste venstre hjørne.
- Vælg derefter "Gem som".
- I dialogboksen skal du vælge "Excel Makroaktiveret projektmappe" i feltet "Gem som type".
- Til sidst skal du klikke på knappen "Gem".
- Endelig kan du lukke denne projektmappe.
- Nu kan du åbne den tidligere gemte Excel-makroaktiverede projektmappe.
- Når du foretager ændringer i det specifikke regneark, får du en besked, der spørger, om du skal sende en e-mail-underretning.
- Når du klikker på knappen “Ja”, sendes en Outlook-e-mail de foruddefinerede modtagere.
- Denne e-mail vil se ud som skærmbilledet nedenfor:
Reparer beskadiget Outlook-datafil
Måske har du nogensinde stødt på Excel-filkorruption. Faktisk er Outlook-datafilen den samme sårbare som Excel-filen. For eksempel kan forkert lukning af Outlook let føre til korruption af PST-filer. Derfor er det vigtigt at tage skridt til at beskytte Outlook-filen, herunder foretage regelmæssige sikkerhedskopier af data samt forberede et robust PST-fixværktøj, såsom DataNumen Outlook Repair. Dette værktøj er kraftigt nok til at reparation PST problemer og gendanne PST-data.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com