Comment copier par lots toutes les pièces jointes de plusieurs e-mails vers un nouvel e-mail dans Outlook

Si vous souhaitez créer un nouvel e-mail et ajouter toutes les pièces jointes de plusieurs autres e-mails au nouveau courrier, vous pouvez utiliser la méthode présentée dans cet article. Il vous apprendra à utiliser VBA pour l'obtenir comme un jeu d'enfant.

Parfois, vous devrez peut-être copier par lots toutes les pièces jointes de plusieurs e-mails vers un nouvel e-mail. Bien sûr, vous pouvez choisir de le faire manuellement, simplement en les enregistrant d'abord sur le lecteur local, puis en les joignant un par un à un e-mail nouvellement créé. Cependant, apparemment, par ce moyen, ce sera une tâche assez fastidieuse. Par conséquent, pourquoi n'utilisez-vous pas VBA pour le réaliser rapidement ? Dans ce qui suit, nous allons vous exposer les opérations élaborées et les codes VBA correspondants.

Copier par lots toutes les pièces jointes de plusieurs e-mails vers un nouvel e-mail

1. Pour commencer, lancez votre programme Outlook comme d'habitude.
2. Ensuite, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
3. Dans la fenêtre suivante "Microsoft Visual Basic pour Applications", insérez un nouveau module ou ouvrez un module qui n'est pas utilisé.
4. Ensuite, copiez et collez les codes VBA suivants dans un tel module.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Après cela, vous devez ajouter le nouveau projet VBA à la barre d'outils d'accès rapide. Vous pouvez le compléter dans "Options Outlook".
6. Plus tard, vous devrez définir le niveau de sécurité de votre macro Outlook sur faible.
7. Enfin, vous pouvez essayer.

• Tout d'abord, appuyez sur la touche "Ctrl" et sélectionnez plusieurs e-mails dont vous souhaitez copier les pièces jointes.
• Cliquez ensuite sur le bouton Nouvelle macro dans la barre d'outils d'accès rapide.
• Immédiatement, un nouvel e-mail apparaîtra avec toutes les pièces jointes.

Défiez les problèmes Outlook PST fréquents

Comme des problèmes Outlook PST peuvent survenir de temps en temps, vous devriez faire beaucoup d'efforts pour protéger vos données PST. Par exemple, vous feriez mieux de sauvegarder régulièrement vos données PST, de sorte que vous pourrez récupérer le Outlook corrompu données à partir de sauvegardes sans transpirer. De plus, vous devez garder un outil de bonne réputation à proximité, comme 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éparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com