Come esportare automaticamente le informazioni sugli allegati delle e-mail di Outlook in arrivo in una cartella di lavoro di Excel

Alcuni utenti vorrebbero registrare automaticamente le informazioni degli allegati in ogni email in arrivo. Questo articolo condividerà un breve momento per realizzarlo con facilità.

Se sei abituato a esportare le informazioni sugli allegati di ogni e-mail di Outlook in arrivo in un file Excel, forse desidererai alcuni approcci che consentano a Outlook di svolgere automaticamente questo lavoro. In tal modo, puoi sbarazzarti manualmente degli allegati di tracciamento. Fortunatamente, sebbene Outlook non fornisca una funzionalità così diretta, puoi comunque ottenerla con un po' di scripting. Ora ti insegneremo passo dopo passo.

Esporta automaticamente le informazioni sugli allegati delle e-mail in arrivo in Excel

1. Inizialmente, avvia l'applicazione Outlook.
2. Quindi, vai all'editor VBA tramite "Alt + F11".
3. Successivamente, copia il seguente codice VBA in un modulo.

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. Successivamente, esci dall'editor VBA.
5. Successivamente, crea una regola per eseguire automaticamente questa macro su ogni email in arrivo.

• Prima di tutto, vai al menu "File".
• Quindi, fai clic sul pulsante "Gestisci regole e avvisi".
• Nella finestra di dialogo "Regole e avvisi", fare clic su "Nuova regola".
• Nella finestra di dialogo "Creazione guidata regole", seleziona "Applica regola ai messaggi che ricevo" e fai clic su "Avanti".
• Successivamente, imposta le condizioni della regola in base alle tue esigenze e fai clic su "Avanti".
• Nel passaggio "Seleziona azioni", seleziona "Esegui uno script" e scegli lo script "AutoExportAttachmentInfo".
• Infine, segui le procedure guidate sullo schermo per completare l'impostazione della regola.

6. D'ora in poi, ogni volta che una nuova e-mail arriva nella tua casella di posta, se ha allegati, Outlook esporterà automaticamente le informazioni dell'allegato nel file Excel predefinito.

Non scaricare mai allegati sospetti

Hai mai ricevuto e-mail da mittenti sconosciuti e contenenti allegati? Di solito, si suggerisce di non fidarsi prontamente di tali allegati in quanto potrebbero essere con virus. Finché li scarichi, i tuoi dati di Outlook possono essere infettati. A quel punto, dovrai farlo riparare Outlook file. È certamente intricato a meno che non si ricorra a uno strumento di riparazione competente, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare Sql Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com