Cómo enviar por lotes todos los archivos en una carpeta de Windows a través de correos electrónicos de Outlook separados

Si desea enviar todos los archivos en una carpeta de Windows a través de correos electrónicos individuales de Outlook a alguien, puede utilizar el método presentado en este artículo. Está utilizando código VBA, que es bastante efectivo.

Después de leer mi artículo anterior, "3 métodos rápidos para adjuntar todos los archivos de una carpeta local a un correo electrónico de Outlook”, Algunos usuarios desean enviar todos los archivos en una carpeta local a través de correos electrónicos separados. De manera estándar, debe crear correos electrónicos y adjuntar los archivos uno por uno. Es bastante problemático. Por lo tanto, a continuación, le presentaremos una forma más eficaz.

Envíe por lotes todos los archivos en una carpeta de Windows a través de correos electrónicos separados

1. En primer lugar, inicie su programa Outlook.
2. Luego, en Outlook, acceda al editor de VBA en referencia al artículo - "Cómo ejecutar código VBA en su Outlook.
3. A continuación, copie y pegue el siguiente código VBA en un proyecto o módulo.

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

4. Después de eso, puede ejecutar esta macro a la vez. Simplemente presione el botón "F5".
5. Posteriormente, se le pedirá que seleccione la carpeta de origen de Windows en el cuadro de diálogo emergente.
6. En última instancia, Outlook adjuntará todos los archivos de esta carpeta de Windows para separar los correos electrónicos y enviarlos al destinatario predefinido.
7. Cuando termine, recibirá un mensaje que le indicará "¡Todo listo!".

Vigile Outlook Health

Aunque Outlook se ha promocionado como el cliente de correo electrónico más popular del mercado, aún tiene un defecto fatal: su vulnerabilidad. En otras palabras, Outlook es propenso a diversos errores y corrupción. Por lo tanto, debe prestar mucha atención al buen estado de su Outlook y protegerlo de daños. Además, debe realizar copias de seguridad de sus archivos de Outlook periódicamente. Asimismo, se recomienda obtener una herramienta de reparación de PST, como DataNumen Outlook Repair. Se puede reparar Outlook problemas sin problemas.

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 corrección de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com