Como exportar automaticamente as informações de anexo de e-mails do Outlook recebidos para uma pasta de trabalho do Excel

Alguns usuários gostariam de registrar automaticamente as informações dos anexos em todos os e-mails recebidos. Este artigo irá compartilhar um tempo rápido para realizá-lo com facilidade.

Se você está acostumado a exportar as informações do anexo de cada e-mail recebido do Outlook para um arquivo do Excel, talvez deseje algumas abordagens que possam permitir que o Outlook realize esse trabalho automaticamente. Assim, você pode se livrar dos anexos de rastreamento manualmente. Felizmente, embora o Outlook não forneça um recurso tão direto, você ainda pode alcançá-lo com um pouco de script. Agora, vamos ensinar passo a passo.

Exportar automaticamente as informações de anexo de e-mails recebidos para o Excel

1. Primeiro, inicie o aplicativo Outlook.
2. Em seguida, vá para o editor VBA via “Alt + F11”.
3. Em seguida, copie o seguinte código VBA em um módulo.

Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

4. Depois disso, saia do editor VBA.
5. Posteriormente, crie uma regra para executar automaticamente essa macro em todos os emails recebidos.

• Primeiro, vá para o menu "Arquivo".
• Em seguida, clique no botão “Gerenciar regras e alertas”.
• Na caixa de diálogo “Regras e alertas”, clique em “Nova regra”.
• Na caixa de diálogo “Assistente de regras”, selecione “Aplicar regra às mensagens recebidas” e clique em “Avançar”.
• Em seguida, defina as condições da regra de acordo com suas necessidades e clique em “Avançar”.
• Na etapa “Selecionar ações”, selecione “Executar um script” e escolha o script “AutoExportAttachmentInfo”.
• Por fim, siga os assistentes na tela para concluir a configuração da regra.

6. A partir de agora, sempre que um novo e-mail chegar à sua caixa de correio, se houver algum anexo, o Outlook exportará automaticamente as informações do anexo para o arquivo Excel predefinido.

Nunca baixe anexos suspeitos

Você já recebeu algum e-mail de remetentes desconhecidos e com anexos? Normalmente, sugere-se não confiar prontamente em tais anexos, pois podem estar com vírus. Enquanto você baixá-los, seus dados do Outlook podem ser infectados. Nesse ponto, você precisará corrigir Outlook arquivo. É reconhecidamente complicado, a menos que você recorra a uma ferramenta de reparo proficiente, 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 recuperar Sql Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com