Varje gång du uppdaterar ett specifikt Excel-kalkylblad, om du alltid behöver skicka ett e-postmeddelande till specifika mottagare, kan du använda metoden som introduceras i den här artikeln.
Vissa användare efterfrågar en lösning för att låta MS Excel automatiskt skicka ett Outlook-e-postmeddelande till specifika personer varje gång de uppdaterar ett specifikt kalkylblad, eftersom de ofta glömmer att skicka ett sådant e-postmeddelande. Nu, i det följande, kommer vi att guida hur man uppnår denna funktion med VBA-kod.
Skicka ett e-postmeddelande automatiskt när ett specifikt Excel-kalkylblad uppdateras
- I första hand får du tillgång till källarbetsboken i Excel som innehåller det specifika kalkylbladet.
- Gå sedan till "Arkiv"-menyn i MS Excel-fönstret och välj "Alternativ".
- Därefter, i fönstret "Excel-alternativ", växla till fliken "Trust Center" och klicka på knappen "Trust Center Settings".
- Därefter, i det nya fönstret, flytta till fliken "Makroinställningar", där du ska välja "Aktivera alla makron".
- Efter det, gå till fliken "Sekretessalternativ" och aktivera funktionen "Ta bort personlig information från filegenskaper vid spara".
- Klicka sedan på flera "OK" för att spara dessa inställningar.
- Efter att ha backat till Excel-arbetsboken, gå till det specifika kalkylbladet.
- Högerklicka på kalkylbladets namn i det nedre sidofältet och välj "Visa kod".
- Efter det kopierar du följande VBA-kod till projektet för det specifika 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
- Efter det bör du spara den här arbetsboken som Excel Macro-Enabled-arbetsbok.
- Stäng först fönstret "Microsoft Visual Basic for Applications".
- Klicka sedan på "Arkiv" i det övre vänstra hörnet.
- Välj sedan "Spara som".
- I dialogrutan väljer du "Excel Macro-Enabled Workbook" i fältet "Spara som typ".
- Klicka slutligen på knappen "Spara".
- Slutligen kan du stänga den här arbetsboken.
- Nu kan du öppna den tidigare sparade Excel-makroaktiverade arbetsboken.
- När du gör några ändringar i det specifika kalkylbladet får du ett meddelande som frågar om du vill skicka ett e-postmeddelande.
- När du klickar på "Ja"-knappen kommer ett Outlook-e-postmeddelande att skickas ut till de fördefinierade mottagarna.
- Detta e-postmeddelande kommer att se ut som skärmdumpen nedan:
Reparera skadad Outlook-datafil
Kanske har du någonsin stött på korruption av Excel-filer. Faktum är att Outlook-datafilen är samma sårbar som Excel-fil. Till exempel kan felaktig stängning av Outlook leda till att PST-filen lätt skadas. Därför är det viktigt att vidta åtgärder för att skydda Outlook-filer, inklusive att göra regelbundna säkerhetskopior av data samt att förbereda ett robust PST-fixverktyg, som t.ex. DataNumen Outlook Repair. Detta verktyg är kraftfullt nog att reparera PST problem och återställa PST-data.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com