Saltar al contenido principal

¿Cómo guardar archivos adjuntos sin abrir el correo electrónico en Outlook?

Es posible que deba guardar con frecuencia los archivos adjuntos de los correos electrónicos recibidos en los discos de su computadora. Es fácil guardar un archivo adjunto o todos los archivos adjuntos de un mensaje de correo electrónico, pero ¿cómo guardar archivos adjuntos de varios correos electrónicos a la vez? Normalmente, debe abrir repetidamente los correos electrónicos y guardar los archivos adjuntos. ¿Hay algún truco para deshacerse de las operaciones repetidas? Aquí los métodos de este tutorial pueden ayudarlo.

Guarde los archivos adjuntos de uno o más correos electrónicos sin abrirlos con el código VBA
Guarde los archivos adjuntos de uno o más correos electrónicos sin abrirlos con una herramienta increíble

Guarde los archivos adjuntos de uno o más correos electrónicos sin abrirlos con el código VBA

El siguiente código VBA puede ayudar a guardar archivos adjuntos de uno o más correos electrónicos al mismo tiempo sin abrir los correos electrónicos en Outlook. Haz lo siguiente.

1. Seleccione un correo electrónico o varios correos electrónicos donde guardará los archivos adjuntos, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Ampliar la Objetos de Microsoft Outlook carpeta, haga doble clic en el Esta sesión de Outlook para abrir el Código ventana, y luego copie el siguiente código VBA en el archivo.

Código VBA: guarde los archivos adjuntos sin abrir los correos electrónicos

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. presione el F5 clave para ejecutar el código. Entonces un BrowseForFolder aparece una ventana emergente, seleccione una carpeta para guardar los archivos adjuntos y luego haga clic en el OK del botón.

Luego, todos los archivos adjuntos en los correos electrónicos seleccionados se guardan en la carpeta seleccionada inmediatamente.

Nota: Todos los archivos adjuntos se separarán de los correos electrónicos y mantendrán los enlaces de la ruta de guardado correspondiente en el cuerpo del correo electrónico.

Guarde los archivos adjuntos de uno o más correos electrónicos sin abrirlos con una herramienta increíble

Si es un novato en VBA, el método de esta sección será su buena elección.

Aquí recomiendo el Guardar todos los archivos adjuntos utilidades de Kutools para Outlook para ti. Si solo desea guardar los archivos adjuntos sin separarse de los correos electrónicos seleccionados, la función Guardar todos los archivos adjuntos puede ayudarlo a hacerlo fácilmente. Por favor haga lo siguiente.
Antes de aplicar Kutools para Outlook, por favor descargarlo e instalarlo en primer lugar.

1. Seleccione los correos electrónicos que contienen los archivos adjuntos que guardará, haga clic en Kutools > Herramientas de adjunto > Guardar todo.

2. En el Guardar configuración cuadro de diálogo, debe:

  • 2.1) en el Guardar archivos adjuntos en esta carpeta sección, elija una carpeta para guardar los archivos adjuntos;
  • 2.2) La Guarde los archivos adjuntos en el estilo siguiente box es opcional para que pueda crear una subcarpeta con estilo certian para guardar los archivos adjuntos, o cambiar el nombre de los archivos adjuntos guardados con estilo certian.
  • 2.3) Click OK para comenzar a guardar todos los archivos adjuntos de los correos electrónicos seleccionados.

Tips: Con las configuraciones anteriores, todos los archivos adjuntos se guardarán en la carpeta especificada. Si solo desea guardar algunos archivos adjuntos certianos, como guardar solo los archivos PDF con la palabra certiana "factura" en el nombre del archivo, puede configurar las condiciones del filtro de la siguiente manera.  

  • Haga clic en el Opciones avanzadas botón para expandir el Condición del filtros;
  • Especifique las condiciones según sus necesidades.
    Consejos: Aquí miro el Nombre del adjunto contiene el cuadro y luego ingrese "factura" en el cuadro de texto, luego marque la casilla Tipo de apego cuadro, ingrese ".pdf" en el cuadro de texto.

3. En el siguiente cuadro de diálogo emergente, haga clic en Sí para continuar.

Luego, los archivos adjuntos en los correos electrónicos seleccionados se guardan en la carpeta especificada a la vez.

Tips: Para separar archivos adjuntos de correos electrónicos seleccionados y dejar solo los hipervínculos adjuntos en el cuerpo del correo electrónico, el Separar todos los archivos adjuntos función puede ayudar.

  Si desea tener una prueba gratuita (60 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.

Artículos relacionados

Descargue / guarde automáticamente los archivos adjuntos de Outlook en una carpeta determinada
En términos generales, puede guardar todos los archivos adjuntos de un correo electrónico haciendo clic en Archivos adjuntos> Guardar todos los archivos adjuntos en Outlook. Pero, si necesita guardar todos los archivos adjuntos de todos los correos electrónicos recibidos y recibir correos electrónicos, ¿lo ideal? Este artículo presentará dos soluciones para descargar automáticamente archivos adjuntos de Outlook a una carpeta determinada.

Mantenga los archivos adjuntos al responder en Outlook
Cuando reenviamos un mensaje de correo electrónico en Microsoft Outlook, los archivos adjuntos originales de este mensaje de correo electrónico permanecen en el mensaje reenviado. Sin embargo, cuando respondemos un mensaje de correo electrónico, los archivos adjuntos originales no se adjuntarán en el nuevo mensaje de respuesta. Aquí vamos a presentar un par de trucos para mantener los archivos adjuntos originales al responder en Microsoft Outlook.

Buscar palabras dentro del archivo adjunto (contenido) en Outlook
Cuando escribimos una palabra clave en el cuadro de búsqueda instantánea en Outlook, buscará la palabra clave en los asuntos, cuerpos, archivos adjuntos, etc. de los correos electrónicos. Pero ahora solo necesito buscar la palabra clave en el contenido del archivo adjunto solo en Outlook, ¿alguna idea? Este artículo le muestra los pasos detallados para buscar palabras dentro del contenido del archivo adjunto en Outlook fácilmente.

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations