¿Cómo enviar un correo electrónico a varios destinatarios en una lista desde Excel a través de Outlook?

Si tienes varias direcciones de correo electrónico en una columna de la hoja de cálculo y deseas enviar un correo electrónico a esta lista de destinatarios directamente desde Excel sin abrir Outlook, este artículo te explicará cómo hacerlo.

Enviar correo electrónico a múltiples destinatarios desde Excel con código VBA

Enviar correo electrónico a múltiples destinatarios con el libro de trabajo actual como archivo adjunto utilizando código VBA

Enviar correo electrónico a múltiples destinatarios desde Excel con código VBA

Puedes usar un código VBA para enviar mensajes a múltiples destinatarios a la vez. Por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Enviar correo electrónico a múltiples destinatarios

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. Luego presiona la tecla F5 para ejecutar este código; aparecerá un cuadro de diálogo para recordarte que selecciones la lista de direcciones, ver captura de pantalla:

4. Luego haz clic en Aceptar, y se mostrará una ventana de Mensaje de Outlook. Podrás ver que todas las direcciones de correo seleccionadas se han añadido al campo Para, y luego puedes ingresar el asunto y redactar tu mensaje, ver captura de pantalla:

5. Después de terminar el mensaje, haz clic en el botón Enviar, y este mensaje será enviado a los destinatarios de tu lista en la hoja de cálculo.

Enviar correo electrónico a múltiples destinatarios con el libro de trabajo actual como archivo adjunto usando código VBA

Si necesitas enviar un mensaje a múltiples destinatarios con el libro de trabajo actual como archivo adjunto, puedes aplicar el siguiente código VBA.

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Enviar correo electrónico a múltiples destinatarios con el libro de trabajo actual como archivo adjunto

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. Después de pegar el código, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones las direcciones a las que deseas enviar el mensaje, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y se mostrará una ventana de Mensaje de Outlook. Todas las direcciones de correo electrónico se han añadido al campo Para, y tu libro de trabajo actual se ha insertado como archivo adjunto también. Luego puedes ingresar el asunto y redactar tu mensaje, ver captura de pantalla:

5. Luego haz clic en el botón Enviar para enviar este mensaje a la lista de destinatarios con el libro de trabajo actual como archivo adjunto.

Artículo relacionado:

¿Cómo enviar correos masivos personalizados a una lista desde Excel a través de Outlook?