Enregistrer les pièces jointes de nombreux e-mails à la fois dans Outlook?

Quelqu'un m'a envoyé 200 e-mails pendant la nuit, avec une pièce jointe chacun. soupir

Je m'attends à 200 autres chaque nuit pour les trois prochaines nuits (les e-mails proviennent d'un serveur, donc leur demander de les regrouper n'est pas possible).

Les pièces jointes ont des noms de fichiers uniques. Existe-t-il donc un moyen simple d'enregistrer les pièces jointes de l'ensemble du groupe d'e-mails à la fois?

Je détesterais devoir ouvrir chaque e-mail individuellement, faire un clic droit, enregistrer, rincer, répéter ...

Je parle couramment VBA, très à l'aise pour créer des macros Excel, donc je peux imaginer qu'il devrait être relativement facile de parcourir un dossier donné pour tous les messages et d'enregistrer les pièces jointes pour chacun, mais je n'ai pas écrit de macro Outlook auparavant, je ne suis pas familier avec la hiérarchie des objets.

OutlookAttachView de NirSoft peut le faire facilement, même à partir de la ligne de commande!

OutlookAttachView analyse tous les messages stockés dans votre Outlook et affiche la liste de tous les fichiers joints qu'il trouve. Vous pouvez facilement sélectionner une ou plusieurs pièces jointes et les enregistrer toutes dans le dossier souhaité, ainsi que supprimer des pièces jointes volumineuses qui occupent trop d'espace disque dans votre boîte aux lettres. Vous pouvez également enregistrer la liste des pièces jointes dans un fichier xml / html / text / csv.

OutlookAttachView est un logiciel gratuit.

Complément de suppression de pièces jointes Outlook :

Complément Outlook gratuit pour enregistrer et extraire les pièces jointes, réduisant la taille de vos fichiers Outlook. Facile à utiliser. Beaucoup de fonctionnalités.

Voici quelques options supplémentaires avec cela.

Le site http://slipstick.com de Sue Mosher est une ressource fantastique pour Outlook. Elle est également MVP Microsoft.

Pour vous, codeurs: enregistrez les pièces jointes sur le disque dur et enregistrez et ouvrez une pièce jointe à l'aide de VBA .

Le code suivant fonctionne dans Outlook 2000 et versions ultérieures. Il enregistre les pièces jointes des messages sélectionnés mais ne supprime pas les pièces jointes du ou des messages.

…

Copiez et collez le code de cette page dans votre projet ThisOutlookSession.

Dans Outlook, appuyez sur Alt + F11 pour ouvrir l'éditeur VBA et développer les objets Microsoft Outlook, puis double-cliquez sur ThisOutlookSession pour l'ouvrir dans le volet d'édition et sur Ctrl + V pour coller le code.

Pour l'utiliser, vous devez d'abord créer un dossier sous vos documents nommé OLAttachments (le code ne le créera pas pour vous). Sélectionnez ensuite un ou plusieurs messages et exécutez la macro pour enregistrer les pièces jointes. Vous devrez définir la sécurité des macros pour avertir avant d'activer les macros ou de signer la macro. Vous pouvez modifier le nom du dossier ou le chemin d'accès où les pièces jointes sont enregistrées en modifiant le code.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

Et si vous ne voulez pas programmer: Outils de gestion des pièces jointes pour Outlook

Après avoir été bombardé d'e-mails d'une personne qui pensait qu'il était agréable de m'envoyer un fichier RAR divisé en 30 e-mails, j'ai utilisé avec succès ce script VBA publié par Microsoft appelé mAttachmentSaver.

Vous devez d'abord télécharger l'archive contenant le script .

Il est important que les macros soient activées. Dans Outlook 2010, vous pouvez le faire en allant dans Fichier »Options» Centre de gestion de la confidentialité »Paramètres du Centre de gestion de la confidentialité» Paramètres de macro »Activer toutes les macros» OK »OK . Ensuite, vous devez redémarrer Outlook. Pour les versions antérieures, c'est sous Outils »Macro» Sécurité… .

Ensuite, suivez les étapes décrites dans l'article TechCenter:

• Appuyez sur Alt+F11pour ouvrir le VBE dans Outlook.

• Faites glisser le mAttachmentSaver.basfichier vers l'Explorateur de projets (appuyez sur Ctrl+Rsi vous ne le voyez pas) ou via Fichier >> Importer un fichier ... ( Ctrl+M).

  Exécutez la ExecuteSavingmacro pour enregistrer les pièces jointes.

• Revenez à l'interface utilisateur Outlook, puis appuyez sur Alt+F8pour ouvrir la fenêtre Macros.

• Sélectionnez ExecuteSavingdans la liste des noms, puis cliquez sur le bouton Exécuter (n'oubliez pas de sélectionner les éléments Outlook avant d'exécuter cette macro).

• Sélectionnez un dossier spécifique pour enregistrer les pièces jointes dans la boîte de dialogue Rechercher un dossier , puis cliquez sur le bouton OK .