Перейти до основного матеріалу

Як надіслати електронне повідомлення, коли вкладений файл Excel відкривають одержувачі?

Більшість з нас можуть надсилати своїм клієнтам деякі важливі повідомлення із вкладеним файлом Excel, тому нам потрібно знати, чи одержувач отримав повідомлення та відкрив вкладений файл. У цьому випадку ви можете створити код VBA для файлу вкладеного файлу Excel, коли одержувач відкриє книгу та активує код, тоді вам автоматично надішле відповідне електронне повідомлення.

Надішліть електронне повідомлення, коли одержувачі відкриють вкладений файл Excel за допомогою коду VBA


стрілка синя права міхур Надішліть електронне повідомлення, коли одержувачі відкриють вкладений файл 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

doc надіслати при відкритті файлу 1

примітки: У наведеному вище коді вам слід змінити електронну адресу на свою адресу, на яку ви хочете отримати оперативне повідомлення електронної пошти, і змінити тему відповідно до своїх потреб.

3. Потім збережіть цю книгу як Книга Excel з підтримкою макросів формат файлу, див. знімок екрана:

doc надіслати при відкритті файлу 2

4. А потім надішліть повідомлення з цим вкладеним файлом одержувачам, які вам потрібні, коли одержувачі, завантажуючи та відкриваючи цей файл Excel та активуючи код, автоматично отримують відповідне повідомлення електронною поштою з повідомленням про те, що файл відкрив хто, як зазначено показано скріншот:

doc надіслати при відкритті файлу 3

примітки: Цей метод доступний лише тоді, коли ви використовуєте Outlook як свою поштову програму.

Найкращі інструменти продуктивності офісу

Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

вкладка kte 201905


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for the above code. I'm just curious. To add a selected range of a specific worksheet too in the body of the email. I have tried using sh.range select method in your code and the email goes out but without the range probably I'm doing something wrong here or missed to add some additional codes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations