3 métodos rápidos para adjuntar todos los archivos de una carpeta local a un correo electrónico de Outlook

Si con frecuencia necesita adjuntar todos los archivos de una carpeta local a un correo electrónico de Outlook, puede utilizar los 3 métodos rápidos que se presentan en este artículo.

No se puede negar que es bastante fácil adjuntar un archivo a un correo electrónico de Outlook. Pero para muchos usuarios de Outlook, es casi un caso muy común que necesiten adjuntar todos los archivos en una carpeta local específica a un correo electrónico de Outlook. Por lo tanto, en respuesta a este requisito, aquí le expondremos 3 medios más prácticos. Puede elegir cualquiera según sus necesidades y preferencias.

Método 1: utilice "Adjuntar archivo"

1. En primer lugar, abra un correo electrónico y redactelo a voluntad.
2. Luego cambie a la pestaña "Insertar".
3. A continuación, haga clic en el botón "Adjuntar archivo".
4. Y luego, en el cuadro de diálogo emergente "Insertar archivo", seleccione todos los archivos con "Ctrl + A".
5. Posteriormente, haga clic en el botón "Insertar".
6. Finalmente, puede terminar el correo electrónico y enviarlo como de costumbre.

Método 2: utilice "Enviar a destinatario de correo"

1. En primer lugar, busque la carpeta local específica en su Explorador de archivos.
2. Luego, después de encontrar la carpeta, haga clic derecho sobre ella.
3. Posteriormente, desde su menú contextual, puede seleccionar "Enviar a"> "Destinatario de correo".
4. Por último, de una vez, se abrirá un nuevo correo electrónico de Outlook y se le agregarán todos los archivos de esta carpeta, como la siguiente captura de pantalla:

Método 3: use Outlook VBA

1. En primer lugar, presione los botones de tecla "Alt + F11" en la ventana principal de Outlook.
2. Luego abra un módulo que no esté en uso.
3. A continuación, copie y pegue los siguientes códigos VBA en él.

Sub AttachAllFilesinaLocalFolder()
    Dim objMail As Outlook.MailItem
    Dim strFolderPath As String
    Dim strFileName As String
 
    If TypeName(Application.ActiveInspector.CurrentItem) = "MailItem" Then
       Set objMail = Application.ActiveInspector.CurrentItem
    End If
 
    'Change the folder path as per your real case
    strFolderPath = "C:\Attachments\DataNumen Products\"
    strFileName = Dir(strFolderPath)
 
    While Len(strFileName) > 0
          objMail.attachments.Add (strFolderPath & strFileName)
          strFileName = Dir
    Wend
End Sub

4. Después de eso, abra un nuevo correo electrónico y agregue la nueva macro a la barra de herramientas de acceso rápido de la ventana del mensaje.
5. Finalmente, puede hacer clic en el botón de nueva macro en la barra de herramientas de acceso rápido. Luego, todos los archivos en la carpeta local específica se insertarán inmediatamente.

Comparación de los 3 métodos

Mantenga a raya los correos electrónicos maliciosos

Outlook es vulnerable a varios factores, incluido el apagado incorrecto frecuente, errores lógicos internos y virus y malware externos. Por lo tanto, si tiene la intención de utilizar macros, debe tener cuidado con los enlaces potencialmente inseguros en los correos electrónicos maliciosos. Además, debe hacerse con una herramienta de reparación robusta en las inmediaciones, como DataNumen Outlook Repair, Que puede reparar Outlook problemas en poco tiempo.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com