Hver gang du oppdaterer et spesifikt Excel-regneark, hvis du alltid trenger å sende et e-postvarsel til bestemte mottakere, kan du bruke metoden som er introdusert i denne artikkelen.
Noen brukere ber om en løsning for å la MS Excel automatisk sende en Outlook e-postmelding til bestemte personer hver gang de oppdaterer et spesifikt regneark, ved at de ofte glemmer å sende en slik e-post. Nå, i det følgende, vil vi veilede hvordan du oppnår denne funksjonen med VBA-kode.
Send en e-post automatisk når et spesifikt Excel-regneark er oppdatert
- For det første, få tilgang til Excel-kildearbeidsboken som inneholder det spesifikke regnearket.
- Gå deretter til "Fil"-menyen i MS Excel-vinduet og velg "Alternativer".
- Deretter, i "Excel-alternativer"-vinduet, bytt til "Trust Center"-fanen og klikk på "Trust Center Settings"-knappen.
- Deretter, i det nye vinduet, skift til "Makroinnstillinger" -fanen, der du skal velge "Aktiver alle makroer".
- Deretter går du til fanen "Personvernalternativer" og aktiverer funksjonen "Fjern personlig informasjon fra filegenskaper ved lagring".
- Klikk deretter flere "OK" for å lagre disse innstillingene.
- Etter å ha sikkerhetskopiert til Excel-arbeidsboken, åpne det spesifikke regnearket.
- Høyreklikk på regnearkets navn i den nederste sidelinjen og velg "Vis kode".
- Etter det kopierer du følgende VBA-kode inn i prosjektet til det spesifikke arket.
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
- Etter det bør du lagre denne arbeidsboken som Excel Macro-Enabled arbeidsbok.
- Lukk først "Microsoft Visual Basic for Applications"-vinduet.
- Klikk deretter på "Fil" i øvre venstre hjørne.
- Deretter velger du "Lagre som".
- I dialogboksen velger du "Excel Macro-Enabled Workbook" i "Lagre som type"-feltet.
- Til slutt klikker du på "Lagre"-knappen.
- Til slutt kan du lukke denne arbeidsboken.
- Nå kan du åpne den tidligere lagrede Excel-makroaktiverte arbeidsboken.
- Når du gjør endringer i det spesifikke regnearket, får du en melding som spør om du vil sende et e-postvarsel.
- Når du klikker "Ja"-knappen, vil en Outlook-e-post bli sendt ut de forhåndsdefinerte mottakerne.
- Denne e-posten vil se ut som skjermbildet nedenfor:
Reparer skadet Outlook-datafil
Kanskje du noen gang har støtt på korrupsjon av Excel-filer. Faktisk er Outlook-datafilen samme sårbar som Excel-fil. For eksempel kan feil lukking av Outlook føre til at PST-filen lett blir korrupt. Derfor er det viktig å iverksette tiltak for å beskytte Outlook-filen, inkludert å lage regelmessige sikkerhetskopier av data samt å utarbeide et robust PST-fiksverktøy, som f.eks. DataNumen Outlook Repair. Dette verktøyet er kraftig nok til reparere PST problemer og gjenopprett PST-data.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med