Como enviar automaticamente uma notificação de e-mail do Outlook quando uma planilha específica do Excel é atualizada

Sempre que você atualizar uma planilha específica do Excel, se precisar sempre enviar uma notificação por e-mail para destinatários específicos, poderá utilizar o método apresentado neste artigo.

Alguns usuários pedem uma solução para permitir que o MS Excel envie automaticamente uma notificação de e-mail do Outlook para pessoas específicas sempre que atualizarem uma planilha específica, pois muitas vezes se esquecem de enviar esse e-mail. Agora, a seguir, vamos orientar como conseguir essa função com o código VBA.

Enviar automaticamente um e-mail quando uma planilha específica do Excel for atualizada

1. Em primeiro lugar, obtenha acesso à pasta de trabalho do Excel de origem que contém a planilha específica.
2. Em seguida, na janela do MS Excel, vá para o menu 'Arquivo' e selecione 'Opções'.
3. Em seguida, na janela “Opções do Excel”, mude para a guia “Central de Confiabilidade” e clique no botão “Configurações da Central de Confiabilidade”.
4. Posteriormente, na nova janela, mude para a guia “Configurações de macro”, na qual você deve selecionar “Ativar todas as macros”.
5. Depois disso, vá para a guia “Opções de privacidade” e ative o recurso “Remover informações pessoais das propriedades do arquivo ao salvar”.
6. Em seguida, clique em vários “OK” para salvar essas configurações.
7. Após voltar para a pasta de trabalho do Excel, acesse a planilha específica.
8. Clique com o botão direito do mouse no nome da planilha na barra lateral inferior e escolha "Exibir código".
9. Depois disso, copie o seguinte código VBA no projeto da planilha específica.

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. Depois disso, você deve salvar esta pasta de trabalho como pasta de trabalho habilitada para macro do Excel.

• Primeiro, feche a janela “Microsoft Visual Basic for Applications”.
• Em seguida, clique em “Arquivo” no canto superior esquerdo.
• Em seguida, escolha “Salvar como”.
• Na caixa de diálogo, opte por “Pasta de trabalho habilitada para macro do Excel” no campo “Salvar como tipo”.
• Por fim, clique no botão “Salvar”.

11. Finalmente, você pode fechar esta pasta de trabalho.
12. Agora, você pode abrir a pasta de trabalho habilitada para macro do Excel salva anteriormente.
13. Ao fazer alterações na planilha específica, você receberá uma mensagem perguntando se deseja enviar uma notificação por e-mail.
14. Quando você clicar no botão “Sim”, um e-mail do Outlook será enviado aos destinatários predefinidos.
15. Este e-mail se parecerá com a captura de tela abaixo:

Reparar arquivo de dados do Outlook danificado

Talvez você já tenha encontrado corrupção de arquivo do Excel. Na verdade, o arquivo de dados do Outlook é o mesmo vulnerável que o arquivo do Excel. Por exemplo, fechar o Outlook incorretamente pode levar à corrupção do arquivo PST prontamente. Portanto, é essencial tomar medidas para proteger o arquivo do Outlook, incluindo fazer backups de dados regulares, bem como preparar uma ferramenta robusta de correção de PST, como DataNumen Outlook Repair. Este utilitário é poderoso o suficiente para reparar PST problemas e recuperar dados PST.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com