Cómo copiar por lotes todos los archivos adjuntos de varios correos electrónicos a un nuevo correo electrónico en Outlook

Si desea crear un nuevo correo electrónico y agregar todos los archivos adjuntos en varios otros correos electrónicos al nuevo correo, puede utilizar el método presentado en este artículo. Le enseñará a usar VBA para obtenerlo como una brisa.

A veces, es posible que deba copiar por lotes todos los archivos adjuntos de varios correos electrónicos a un nuevo correo electrónico. Por supuesto, puede seleccionar hacerlo manualmente, simplemente guardándolos primero en la unidad local y luego adjuntándolos a un correo electrónico recién creado uno por uno. Sin embargo, aparentemente, por este medio, será una tarea bastante tediosa. Por lo tanto, ¿por qué no utiliza VBA para darse cuenta rápidamente? A continuación, le expondremos las operaciones elaboradas y los códigos VBA correspondientes.

Copie por lotes todos los archivos adjuntos de varios correos electrónicos a un nuevo correo electrónico

1. Para empezar, inicie su programa Outlook como de costumbre.
2. A continuación, en la ventana principal de Outlook, presione los botones de tecla "Alt + F11".
3. En la siguiente ventana de "Microsoft Visual Basic para Aplicaciones", inserte un módulo nuevo o abra un módulo que no esté en uso.
4. Luego copie y pegue los siguientes códigos VBA en dicho módulo.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Después de eso, debe proceder a agregar el nuevo proyecto de VBA a la barra de herramientas de acceso rápido. Puede completarlo en "Opciones de Outlook".
6. Más tarde, debería cambiar su nivel de seguridad macro de Outlook a bajo.
7. Finalmente puedes intentarlo.

• En primer lugar, presione la tecla "Ctrl" y seleccione varios correos electrónicos cuyos archivos adjuntos desea copiar.
• Luego presione el botón de nueva macro en la barra de herramientas de acceso rápido.
• Inmediatamente, aparecerá un nuevo correo electrónico con todos los archivos adjuntos.

Desafíe los problemas frecuentes de Outlook PST

Como los problemas de Outlook PST pueden ocurrir de vez en cuando, debe dedicar muchos esfuerzos a proteger sus datos de PST. Por ejemplo, es mejor que haga una copia de seguridad de sus datos PST de forma regular, de modo que pueda recuperar los Outlook corrupto datos de copias de seguridad sin sudar. Además, debe tener una herramienta confiable cerca, como DataNumen Outlook Repair.

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