Note: The other languages of the website are Google-translated. Back to English
Inicia sesión  \/ 
x
or
x
Regístrese  \/ 
x

or

¿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

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 adjuntoGuardar 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.

Consejos: 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 para continuar.

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

Consejos: 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.


    Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

    • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
    • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
    • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
    • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
    • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
    tiro kutools outlook kutools pestaña 1180x121
    tiro kutools outlook kutools plus pestaña 1180x121
     
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.