Você geralmente precisa anexar arquivos específicos ao enviar e-mails específicos no Outlook? Nesse caso, você pode achar tedioso adicioná-los manualmente todas as vezes. Este artigo ensinará um método rápido para alcançá-lo com o Outlook VBA.
No meu trabalho diário, frequentemente sou solicitado a anexar arquivos específicos ao enviar e-mails específicos. Por exemplo, todas as semanas, tenho de enviar um e-mail aos meus superiores para relatar o meu trabalho semanal. Neste e-mail, precisarei anexar alguns arquivos específicos, incluindo logs de trabalho, alguns relatórios estatísticos de dados e assim por diante. Eu costumo atualizar esses arquivos toda semana. No passado, eu normalmente compunha primeiro o corpo da mensagem e depois adicionava esses arquivos manualmente. No entanto, no momento, encontro um truque mais inteligente. Isso está usando o Outlook VBA para automatizá-lo. Se você tiver requisitos semelhantes, continue lendo para aprender os códigos VBA concretos e as operações detalhadas.
Anexar automaticamente arquivos específicos ao enviar e-mails específicos
- Para começar, abra o Outlook e acesse a guia "Desenvolvedor".
- Então você pode encontrar e clicar no botão “Visual Basic”, que abrirá a janela do editor VBA de uma só vez.
- Na janela subsequente, você deve clicar duas vezes no projeto “ThisOutlookSession” na lista de projetos do lado esquerdo.
- Em seguida, você deve copiar e colar os seguintes códigos VBA nele.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Depois disso, você será solicitado a atribuir um certificado digital ao novo projeto.
- Em primeiro lugar, clique no botão “Ferramenta” na barra de ferramentas e escolha “Assinatura Digital”.
- Em seguida, na caixa de diálogo pop-up “Assinatura digital”, clique no botão “Escolher”,
- Posteriormente, você pode escolher um certificado existente.
- Por fim, clique em uma série de “OK” para atribuí-lo com sucesso.
- Posteriormente, você terá que modificar as configurações de macro para simplesmente permitir macros assinadas digitalmente.
- Eventualmente, você pode tentar.
- Ao clicar em “Enviar” para enviar o e-mail específico que contém as palavras específicas no assunto ou é enviado para um contato específico, você verá uma caixa de mensagem, como na imagem abaixo.
- Depois disso, você pode verificar o e-mail enviado. Você certamente encontrará os arquivos predefinidos anexados no e-mail enviado.
Nunca adie a correção de erros do Outlook
Às vezes, mesmo que você tenha encontrado uma mensagem de erro no Outlook, depois de fechar a mensagem, você ainda pode continuar trabalhando. Mas na verdade não é uma ação aconselhável. O que você deve fazer é eliminá-los o mais rápido possível, em vez de deixá-los de lado. O acúmulo de problemas resultará em um acidente grave. Se o seu Outlook travar, seus dados PST do Outlook serão colocados em risco. Você deveria saber disso dados PST do Outlook corrompidos é bastante nodoso. Nesse momento, você não tem escolha a não ser usar uma ferramenta de reparo experiente e confiável, como DataNumen Outlook Repair.
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 reparo danificado SQL Server lima e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com