Прескочи на основното съдържание

Как да изпратите имейл, когато прикаченият Excel файл е отворен от получателите?

Автор: Xiaoyang Последна промяна: 2020-08-06

Повечето от нас може да изпратят някои важни съобщения с прикачен файл на Excel до нашите клиенти, така че трябва да знаем дали получателят е получил съобщението и е отворил прикачения файл. В този случай можете да създадете VBA код за вашия прикачен файл в Excel, когато получателят отвори работната книга и активира кода, тогава автоматично ще ви бъде изпратен имейл с подкана.

Изпратете имейл, когато прикаченият Excel файл бъде отворен от получателите с VBA код


стрелка син десен балон Изпратете имейл, когато прикаченият Excel файл бъде отворен от получателите с VBA код

Преди да изпратите този Excel файл, трябва да създадете код, както следва:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. След това кликнете два пъти Тази работна книга под 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 като програма за електронна поща.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел 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