Как да изпратите автоматично имейл известие на Outlook, когато конкретен работен лист на Excel се актуализира

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

Някои потребители искат решение, което да позволи на MS Excel автоматично да изпраща известия по имейл на Outlook до определени лица всеки път, когато актуализират конкретен работен лист, тъй като често забравят да изпратят такъв имейл. Сега, по-долу, ще ви напътстваме как да постигнете тази функция с VBA код.

Автоматично изпращане на имейл, когато конкретен работен лист на Excel се актуализира

1. На първо място, получете достъп до изходната работна книга на Excel, която съдържа конкретния работен лист.
2. След това в прозореца на MS Excel отидете в менюто „Файл“ и изберете „Опции“.
3. След това в прозореца „Опции на Excel“ преминете към раздела „Център за доверие“ и щракнете върху бутона „Настройки на центъра за доверие“.
4. След това в новия прозорец преминете към раздела „Настройки на макроси“, под който трябва да изберете „Активиране на всички макроси“.
5. След това отворете раздела „Опции за поверителност“ и активирайте функцията „Премахване на лична информация от свойствата на файла при запазване“.
6. След това щракнете няколко пъти върху „OK“, за да запазите тези настройки.
7. След като архивирате работната книга на Excel, отворете конкретния работен лист.
8. Щракнете с десния бутон върху името на работния лист в долната странична лента и изберете „Преглед на кода“.
9. След това копирайте следния 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

10. След това трябва да запишете тази работна книга като Excel Macro-Enabled workbook.

• Първо затворете прозореца „Microsoft Visual Basic за приложения“.
• След това щракнете върху „Файл“ в левия горен ъгъл.
• След това изберете „Запазване като“.
• В диалоговия прозорец изберете „Работна книга с активирани макроси на Excel“ в полето „Запиши като тип“.
• Накрая щракнете върху бутона „Запазване“.

11. Накрая можете да затворите тази работна книга.
12. Сега можете да отворите предварително запазената работна книга с активирани макроси на Excel.
13. Когато правите промени в конкретния работен лист, ще получите съобщение с въпрос дали да изпратите известие по имейл.
14. Когато щракнете върху бутона „Да“, имейл на Outlook ще бъде изпратен до предварително зададените получатели.
15. Този имейл ще изглежда като екранната снимка по-долу:

Поправете повреден файл с данни на Outlook

Може би някога сте се сблъсквали с повреда на Excel файл. Всъщност файлът с данни на Outlook е същият уязвим като файла на Excel. Например, неправилното затваряне на Outlook може лесно да доведе до повреда на PST файла. Следователно е от съществено значение да се предприемат действия за защита на файла на Outlook, включително правене на редовни резервни копия на данни, както и подготовка на надежден инструмент за корекция на PST, като напр. DataNumen Outlook Repair. Тази помощна програма е достатъчно мощна, за ремонт PST проблеми и възстановяване на PST данни.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com