每次更新特定的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 Macro-Enabled工作簿。
- 首先，關閉“ Microsoft Visual Basic for Applications”窗口。
- 然後，單擊左上角的“文件”。
- 接下來，選擇“另存為”。
- 在對話框中，在“另存為類型”字段中選擇“ Excel Macro-Enabled Workbook”。
- 最後，點擊“保存”按鈕。
- 最後，您可以關閉此工作簿。
- 現在，您可以打開以前保存的啟用Excel宏的工作簿。
- 在特定工作表中進行任何更改時，您會收到一條消息，詢問是否發送電子郵件通知。
- 當您單擊“是”按鈕時，Outlook電子郵件將被發送到預定義的收件人。
- 該電子郵件將類似於以下屏幕截圖：
修復損壞的Outlook數據文件
也許您曾經遇到過Excel文件損壞。 實際上，Outlook數據文件與Excel文件一樣容易受到攻擊。 例如，以不正確的方式關閉Outlook可能會輕易導致PST文件損壞。 因此，必須採取措施保護Outlook文件，包括進行定期數據備份以及準備強大的PST修復工具，例如 DataNumen Outlook Repair。 該實用程序功能強大，足以 維修PST 發布並恢復PST數據。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM