Щоразу, коли ви оновлюєте певний аркуш Excel, якщо вам завжди потрібно надсилати сповіщення електронною поштою певним одержувачам, ви можете скористатися методом, представленим у цій статті.
Деякі користувачі просять дозволити MS Excel автоматично надсилати сповіщення електронною поштою Outlook певним особам кожного разу, коли вони оновлюють певний аркуш, оскільки вони часто забувають надіслати такий електронний лист. Нижче ми розповімо, як отримати цю функцію за допомогою коду VBA.
Автоматичне надсилання електронного листа, коли оновлюється певний аркуш Excel
- По-перше, отримайте доступ до вихідної книги Excel, яка містить певний робочий аркуш.
- Потім у вікні MS Excel перейдіть до меню «Файл» і виберіть «Параметри».
- Далі у вікні «Параметри Excel» перейдіть на вкладку «Центр довіри» та натисніть кнопку «Параметри центру довіри».
- Згодом у новому вікні перейдіть на вкладку «Налаштування макросів», у якій виберіть «Увімкнути всі макроси».
- Після цього перейдіть на вкладку «Параметри конфіденційності» та ввімкніть функцію «Видалити особисту інформацію з властивостей файлу під час збереження».
- Потім кілька разів натисніть «ОК», щоб зберегти ці налаштування.
- Після повернення до робочої книги Excel перейдіть до певного аркуша.
- Клацніть правою кнопкою миші назву аркуша на нижній бічній панелі та виберіть «Переглянути код».
- Після цього скопіюйте наступний код VBA в проект певного аркуша.
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
- Після цього вам слід зберегти цю книгу як книгу Excel із підтримкою макросів.
- Спочатку закрийте вікно «Microsoft Visual Basic для програм».
- Потім натисніть «Файл» у лівому верхньому куті.
- Далі виберіть «Зберегти як».
- У діалоговому вікні виберіть «Книга Excel із підтримкою макросів» у полі «Зберегти як тип».
- Нарешті натисніть кнопку «Зберегти».
- Нарешті, ви можете закрити цю книгу.
- Тепер ви можете відкрити попередньо збережену книгу Excel із підтримкою макросів.
- Коли ви вносите будь-які зміни в певний аркуш, ви отримаєте повідомлення із запитом, чи надсилати сповіщення електронною поштою.
- Коли ви натискаєте кнопку «Так», електронний лист Outlook буде надіслано заздалегідь визначеним одержувачам.
- Цей електронний лист виглядатиме так, як на знімку екрана нижче:
Відновлення пошкодженого файлу даних Outlook
Можливо, ви коли-небудь стикалися з пошкодженням файлів Excel. Насправді файл даних Outlook так само вразливий, як і файл Excel. Наприклад, неправильне закриття Outlook може легко призвести до пошкодження файлу PST. Тому важливо вживати заходів для захисту файлу Outlook, зокрема регулярно створювати резервні копії даних, а також готувати надійний інструмент виправлення PST, наприклад DataNumen Outlook Repair. Ця утиліта досить потужна, щоб ремонт PST проблеми та відновлення даних PST.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com