Como enviar um e-mail quando o arquivo anexo do Excel é aberto pelos destinatários?
A maioria de nós pode enviar algumas mensagens importantes com um anexo de arquivo do Excel para nossos clientes, portanto, precisamos saber se o destinatário recebeu a mensagem e abriu o anexo de arquivo. Nesse caso, você pode criar um código VBA para o seu arquivo de anexo do Excel, quando o destinatário abrir a pasta de trabalho e ativar o código, um e-mail será enviado para você automaticamente.
Enviar um e-mail quando o arquivo Excel anexado for aberto pelos destinatários com o código VBA
Enviar um e-mail quando o arquivo Excel anexado for aberto pelos destinatários com o código VBA
Antes de enviar este arquivo Excel, você deve criar um código da seguinte forma:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Em seguida, clique duas vezes Esta pasta de trabalho sob a Projeto VBA seção para abrir um módulo em branco e, em seguida, copie e cole o seguinte código no módulo:
Código VBA: Envie um e-mail quando o arquivo Excel for aberto:
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
Note: No código acima, você deve alterar o endereço de e-mail para o seu próprio endereço do qual deseja receber o e-mail imediato, e alterar o assunto conforme sua necessidade.
3. Em seguida, salve esta pasta de trabalho como Pasta de trabalho habilitada para macro do Excel formato de arquivo, veja a captura de tela:
4. E então enviar uma mensagem com este anexo de arquivo para os destinatários de que você precisa, quando os destinatários baixarem e abrirem este arquivo Excel e ativarem o código, um e-mail será enviado automaticamente para você informando que o arquivo foi aberto por quem segue captura de tela mostrada:
Note: Este método está disponível apenas quando você usa o Outlook como seu programa de e-mail.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
