Certains utilisateurs souhaitent enregistrer automatiquement les informations des pièces jointes dans chaque e-mail entrant. Cet article va partager un petit moment pour le réaliser en toute simplicité.
Si vous avez l'habitude d'exporter les informations de pièce jointe de chaque e-mail Outlook entrant vers un fichier Excel, vous souhaiterez peut-être certaines approches permettant à Outlook d'entreprendre automatiquement ce travail. Ainsi, vous pouvez vous débarrasser manuellement des pièces jointes de suivi. Heureusement, bien qu'Outlook ne fournisse pas une fonctionnalité aussi directe, vous pouvez toujours y parvenir avec un peu de script. Maintenant, nous allons vous apprendre étape par étape.
Exporter automatiquement les informations de pièce jointe des e-mails entrants vers Excel
- Dans un premier temps, lancez l'application Outlook.
- Ensuite, allez dans l'éditeur VBA via "Alt + F11".
- Ensuite, copiez le code VBA suivant dans un module.
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
- Après cela, quittez l'éditeur VBA.
- Par la suite, créez une règle pour exécuter automatiquement cette macro sur chaque e-mail entrant.
- Tout d'abord, allez dans le menu "Fichier".
- Ensuite, cliquez sur le bouton "Gérer les règles et les alertes".
- Dans la boîte de dialogue "Règles et alertes", cliquez sur "Nouvelle règle".
- Dans la boîte de dialogue "Assistant de règle", sélectionnez "Appliquer la règle aux messages que je reçois" et cliquez sur "Suivant".
- Ensuite, définissez les conditions de règle selon vos besoins et cliquez sur "Suivant".
- À l'étape "Sélectionner des actions", sélectionnez "Exécuter un script" et choisissez le script "AutoExportAttachmentInfo".
- Enfin, suivez les assistants à l'écran pour terminer la configuration des règles.
- Désormais, chaque fois qu'un nouvel e-mail arrive dans votre boîte aux lettres, s'il contient des pièces jointes, Outlook exporte automatiquement les informations de la pièce jointe vers le fichier Excel prédéfini.
Ne téléchargez jamais de pièces jointes suspectes
Avez-vous déjà reçu des e-mails provenant d'expéditeurs inconnus et contenant des pièces jointes ? Habituellement, il est suggéré de ne pas faire confiance à ces pièces jointes car elles peuvent contenir des virus. Tant que vous les téléchargez, vos données Outlook peuvent être infectées. À ce stade, vous devrez réparer Outlook déposer. Il est certes noueux à moins que vous n'ayez recours à un outil de réparation compétent, tel que DataNumen Outlook Repair.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer Sql Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com