¿Cómo enviar correos electrónicos a las direcciones especificadas en celdas en Excel?

Supón que tienes una lista de direcciones de correo electrónico y ahora quieres enviar un mensaje a todas ellas de forma masiva directamente desde Excel. ¿Cómo lograrlo? Este artículo te mostrará métodos para enviar correos electrónicos a varias direcciones especificadas en celdas de Excel.

Enviar correos electrónicos a direcciones especificadas en celdas de Excel con VBA
Envía fácilmente correos electrónicos a direcciones especificadas en celdas con Kutools para Excel

Enviar correos electrónicos a direcciones especificadas en celdas de Excel con VBA

El siguiente código VBA puede ayudarte a enviar correos electrónicos a las direcciones especificadas en Excel. Por favor, sigue estos pasos.

1. En la hoja de cálculo que contiene las direcciones de correo electrónico a las que necesitas enviar mensajes, pulsa simultáneamente las teclas Alt y F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. En la ventana de Microsoft Visual Basic for Applications que se abre, haz clic en Herramientas > Referencias como se muestra en la siguiente captura de pantalla.

3. En el cuadro de diálogo Referencias – VBAProject, busca y marca la opción Microsoft Outlook Object Library, y luego haz clic en el botón OK.

4. Luego haz clic en Insertar > Módulo. Después, copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Enviar correos electrónicos a direcciones especificadas en celdas de Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Nota: Por favor, especifica el asunto y el cuerpo de tu correo electrónico en las líneas .Subject = "test" y .Body = "Dear " _ & vbNewLine & vbNewLine & _ "This is a test email " & _ "sending in Excel" del código.

5. Pulsa la tecla F5 para ejecutar el código. En el cuadro de diálogo de Kutools para Excel que se abre, selecciona el rango que contiene las direcciones de correo electrónico a las que deseas enviar mensajes y haz clic en OK. Consulta la captura de pantalla:

A continuación, los correos electrónicos basados en las direcciones seleccionadas se crearán como se muestra en la siguiente captura. Haz clic en los botones Enviar para enviar estos mensajes.

Notas:

Enviar correos electrónicos a direcciones especificadas en celdas con Kutools para Excel

En esta sección te recomendamos la utilidad Enviar correo electrónico de Kutools para Excel. Con esta herramienta, puedes enviar fácilmente correos a las direcciones especificadas en celdas de Excel. Por favor, sigue estos pasos.

1. Selecciona las direcciones de correo electrónico junto con la celda de encabezado en tu hoja, luego haz clic en Kutools Plus > Enviar correo electrónico.

2. En el cuadro de diálogo Enviar correo electrónico que aparece, realiza las siguientes configuraciones:

3. Luego aparecerá un cuadro de diálogo de Kutools para Excel informándote cuántos correos se han enviado. Haz clic en OK y cierra el cuadro de diálogo Enviar correo electrónico. Consulta la captura de pantalla:

Notas:

Demostración: Enviar correos electrónicos a direcciones especificadas en celdas con Kutools para Excel

Artículos relacionados:

• ¿Cómo enviar un correo electrónico copiando y pegando un rango especificado en el cuerpo del mensaje en Excel?
• ¿Cómo enviar un correo electrónico con varios archivos adjuntos en Excel?
• ¿Cómo insertar una firma en un correo de Outlook al enviar mediante VBA en Excel?
• ¿Cómo enviar un correo electrónico si se ha alcanzado la fecha de vencimiento en Excel?
• ¿Cómo enviar automáticamente un correo electrónico según el valor de una celda en Excel?