Comment enregistrer automatiquement toutes les pièces jointes des expéditeurs d'un domaine spécifique via Outlook VBA

Si vous souhaitez laisser Outlook enregistrer automatiquement toutes les pièces jointes des expéditeurs dont les adresses e-mail se trouvent dans un domaine spécifique, vous pouvez lire cet article. Ici, nous allons vous présenter une méthode rapide.

Peut-être que tous les membres du personnel de votre entreprise utilisent les adresses e-mail qui appartiennent au même domaine. Étant donné que vous vous envoyez fréquemment des e-mails avec diverses pièces jointes, vous souhaiterez peut-être qu'Outlook enregistre automatiquement les pièces jointes de ces e-mails. Dans ce cas, Outlook sera invité à vérifier automatiquement le domaine de l'expéditeur de l'e-mail et à enregistrer automatiquement les pièces jointes. Maintenant, dans ce qui suit, nous allons partager un morceau de code VBA capable de le réaliser facilement.

Enregistrer automatiquement toutes les pièces jointes des expéditeurs d'un domaine spécifique

1. Dans un premier temps, exécutez l'éditeur Outlook VBA selon "Comment exécuter le code VBA dans votre Outlook" .
2. Ensuite, placez le code suivant dans un module inutilisé.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
   Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   Dim objMail As Outlook.MailItem
   Dim strSenderAddress As String
   Dim strSenderDomain As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

3. Après cela, restart Outlook pour activer cette macro.
4. Depuis lors, chaque fois qu'un e-mail entrant arrive dans votre boîte de réception, Outlook vérifie automatiquement le domaine de l'expéditeur. S'il est identique au domaine prédéfini et qu'il contient des pièces jointes, Outlook enregistre automatiquement les pièces jointes dans un dossier local spécifique.

Ne jamais ouvrir les pièces jointes des expéditeurs dans des domaines inconnus

Il est conseillé de ne pas faire confiance et de ne pas télécharger facilement les pièces jointes de ceux qui se trouvent dans des domaines inconnus. C'est parce qu'ils peuvent être dotés de logiciels malveillants ou de virus. Une fois que vous les ouvrez, le fichier Outlook peut être attaqué. En d'autres termes, vous pouvez être sujet à la corruption de fichiers Outlook. A cette époque, même Scanpst est incapable de vous aider. Votre seul recours est soit un outil plus puissant, soit un service de récupération PST spécialisé.

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 mdf corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com