¿Guardar archivos adjuntos de muchos correos electrónicos a la vez en Outlook?

Alguien me envió 200 correos electrónicos durante la noche, con un archivo adjunto cada uno. suspiro

Espero otros 200 cada noche durante las próximas tres noches (los correos electrónicos provienen de un servidor, por lo que no es posible pedirles que los procesen por lotes).

Los archivos adjuntos tienen nombres de archivo únicos, entonces, ¿hay una manera directa de guardar los archivos adjuntos de todo el grupo de correos electrónicos a la vez?

Odiaría tener que abrir cada correo electrónico individualmente, hacer clic derecho, guardar, enjuagar, repetir ...

Soy fluido en VBA, me siento muy cómodo creando macros de Excel, así que puedo imaginar que debería ser relativamente fácil atravesar una carpeta determinada para todos los mensajes y guardar archivos adjuntos para cada uno, pero no he escrito una macro de Outlook antes, no estoy familiarizado con La jerarquía de objetos.

OutlookAttachView de NirSoft puede hacer esto fácilmente, ¡incluso desde la línea de comandos!

OutlookAttachView escanea todos los mensajes almacenados en su Outlook y muestra la lista de todos los archivos adjuntos que encuentra. Puede seleccionar fácilmente uno o más archivos adjuntos y guardarlos en la carpeta deseada, así como también puede eliminar archivos adjuntos no deseados que ocupan demasiado espacio en disco en su buzón. También puede guardar la lista de archivos adjuntos en el archivo xml / html / text / csv.

OutlookAttachView es un programa gratuito.

Complemento del removedor de archivos adjuntos de Outlook :

Complemento gratuito de Outlook para guardar y extraer archivos adjuntos, disminuyendo el tamaño de sus archivos de Outlook. Fácil de usar. Un montón de características.

Aquí hay algunas opciones más con esto.

El sitio de Sue Mosher http://slipstick.com es un recurso fantástico para Outlook. También es MVP de Microsoft.

Para sus codificadores: Guarde los archivos adjuntos en el disco duro y, alternativamente, guarde y abra un archivo adjunto usando VBA .

El siguiente código funciona en Outlook 2000 y versiones posteriores. Guarda los archivos adjuntos de los mensajes seleccionados pero no elimina los archivos adjuntos de los mensajes.

...

Copie y pegue el código de esta página en su proyecto ThisOutlookSession.

En Outlook, presione Alt + F11 para abrir el editor VBA y expanda Objetos de Microsoft Outlook, luego haga doble clic en ThisOutlookSession para abrirlo en el panel de edición y Ctrl + V para pegar el código.

Para usarlo, primero debe crear una carpeta debajo de Mis documentos llamada OLAttachments (el código no lo creará para usted). Luego seleccione uno o más mensajes y ejecute la macro para guardar los archivos adjuntos. Deberá configurar la seguridad de macros para advertir antes de habilitar macros o firmar la macro. Puede cambiar el nombre de la carpeta o la ruta donde se guardan los archivos adjuntos editando el código.

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

Y si no desea programar: Herramientas de administración de archivos adjuntos para Outlook

Después de que fui bombardeado con correos electrónicos de una persona que pensó que era bueno enviarme un archivo RAR dividido en 30 correos, utilicé con éxito este script VBA publicado por Microsoft llamado mAttachmentSaver.

Primero, debe descargar el archivo que contiene el script .

Es importante que las macros estén habilitadas. En Outlook 2010, puede hacerlo yendo a Archivo »Opciones» Centro de confianza »Configuración del Centro de confianza» Configuración de macro »Habilitar todas las macros» Aceptar »Aceptar . Entonces necesitas reiniciar Outlook. Para versiones anteriores, está bajo Herramientas »Macro» Seguridad ... .

Luego, siga los pasos descritos en el artículo de TechCenter:

• Presione Alt+F11para abrir el VBE en Outlook.

• Arrastre el mAttachmentSaver.basarchivo al Explorador de proyectos (presione Ctrl+Rsi no puede verlo) o mediante Archivo >> Importar archivo ... ( Ctrl+M).

  Ejecute la ExecuteSavingmacro para guardar archivos adjuntos.

• Vuelva a la interfaz de usuario de Outlook y luego presione Alt+F8para abrir la ventana Macros.

• Seleccione ExecuteSavingen la lista de nombres y luego haga clic en el botón Ejecutar (recuerde seleccionar los elementos de Outlook antes de ejecutar esta macro).

• Seleccione una carpeta específica para guardar archivos adjuntos en el cuadro de diálogo Buscar carpeta y luego haga clic en el botón Aceptar .