Za każdym razem, gdy aktualizujesz określony arkusz programu Excel, jeśli zawsze musisz wysłać powiadomienie e-mail do określonych odbiorców, możesz skorzystać z metody przedstawionej w tym artykule.
Niektórzy użytkownicy proszą o rozwiązanie pozwalające MS Excel automatycznie wysyłać powiadomienia e-mail programu Outlook do określonych osób za każdym razem, gdy aktualizują określony arkusz roboczy, ponieważ często zapominają o wysłaniu takiej wiadomości e-mail. Teraz poniżej poprowadzimy, jak osiągnąć tę funkcję za pomocą kodu VBA.
Automatyczne wysyłanie wiadomości e-mail po zaktualizowaniu określonego arkusza programu Excel
- Przede wszystkim uzyskaj dostęp do źródłowego skoroszytu programu Excel, który zawiera określony arkusz.
- Następnie w oknie MS Excel przejdź do menu „Plik” i wybierz „Opcje”.
- Następnie w oknie „Opcje programu Excel” przejdź do zakładki „Centrum zaufania” i kliknij przycisk „Ustawienia Centrum zaufania”.
- Następnie w nowym oknie przechodzimy do zakładki „Ustawienia makr”, pod którą należy wybrać „Włącz wszystkie makra”.
- Następnie przejdź do zakładki „Opcje prywatności” i włącz funkcję „Usuń dane osobowe z właściwości pliku przy zapisywaniu”.
- Następnie kliknij kilka „OK”, aby zapisać te ustawienia.
- Po utworzeniu kopii zapasowej w skoroszycie programu Excel uzyskaj dostęp do określonego arkusza.
- Kliknij prawym przyciskiem myszy nazwę arkusza na dolnym pasku bocznym i wybierz „Wyświetl kod”.
- Następnie skopiuj następujący kod VBA do projektu określonego arkusza.
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
- Następnie należy zapisać ten skoroszyt jako skoroszyt programu Excel z włączoną obsługą makr.
- Najpierw zamknij okno „Microsoft Visual Basic for Applications”.
- Następnie kliknij „Plik” w lewym górnym rogu.
- Następnie wybierz „Zapisz jako”.
- W oknie dialogowym wybierz „Skoroszyt programu Excel z obsługą makr” w polu „Zapisz jako typ”.
- Na koniec kliknij przycisk „Zapisz”.
- Na koniec możesz zamknąć ten skoroszyt.
- Teraz możesz otworzyć wcześniej zapisany skoroszyt programu Excel z włączoną obsługą makr.
- Kiedy wprowadzisz jakiekolwiek zmiany w określonym arkuszu, otrzymasz wiadomość z pytaniem, czy wysłać powiadomienie e-mail.
- Po kliknięciu przycisku „Tak” wiadomość e-mail programu Outlook zostanie wysłana do predefiniowanych odbiorców.
- Ten e-mail będzie wyglądał jak zrzut ekranu poniżej:
Napraw uszkodzony plik danych programu Outlook
Może kiedykolwiek spotkałeś się z uszkodzeniem plików Excela. W rzeczywistości plik danych programu Outlook jest tak samo podatny jak plik programu Excel. Na przykład nieprawidłowe zamknięcie programu Outlook może łatwo doprowadzić do uszkodzenia pliku PST. Dlatego konieczne jest podjęcie działań w celu ochrony pliku Outlooka, w tym regularne tworzenie kopii zapasowych danych, a także przygotowanie solidnego narzędzia do naprawy plików PST, takiego jak DataNumen Outlook Repair. To narzędzie jest wystarczająco potężne, aby naprawa PST problemy i odzyskać dane PST.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com