Як надіслати електронне повідомлення, коли вкладений файл Excel відкривають одержувачі?
Більшість з нас можуть надсилати своїм клієнтам деякі важливі повідомлення із вкладеним файлом Excel, тому нам потрібно знати, чи одержувач отримав повідомлення та відкрив вкладений файл. У цьому випадку ви можете створити код VBA для файлу вкладеного файлу Excel, коли одержувач відкриє книгу та активує код, тоді вам автоматично надішле відповідне електронне повідомлення.
Надішліть електронне повідомлення, коли одержувачі відкриють вкладений файл Excel за допомогою коду VBA
Перед надсиланням цього файлу Excel слід створити такий код:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Потім двічі клацніть ThisWorkbook під VBAProject розділ, щоб відкрити порожній модуль, а потім скопіюйте та вставте наступний код у модуль:
Код VBA: Надішліть електронне повідомлення при відкритті файлу Excel:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
примітки: У наведеному вище коді вам слід змінити електронну адресу на свою адресу, на яку ви хочете отримати оперативне повідомлення електронної пошти, і змінити тему відповідно до своїх потреб.
3. Потім збережіть цю книгу як Книга Excel з підтримкою макросів формат файлу, див. знімок екрана:
4. А потім надішліть повідомлення з цим вкладеним файлом одержувачам, які вам потрібні, коли одержувачі, завантажуючи та відкриваючи цей файл Excel та активуючи код, автоматично отримують відповідне повідомлення електронною поштою з повідомленням про те, що файл відкрив хто, як зазначено показано скріншот:
примітки: Цей метод доступний лише тоді, коли ви використовуєте Outlook як свою поштову програму.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!