¿Cómo enviar un correo electrónico desde un rango específico de celdas en Excel?

En muchos casos, un rango específico de contenido en una hoja de cálculo de Excel puede ser útil en su comunicación por correo electrónico. En este artículo, presentaremos un método para enviar un correo electrónico con un rango especificado directamente en el cuerpo del correo desde Excel.

Enviar correo electrónico desde un rango específico de celdas en Excel
Enviar correo electrónico desde un rango específico de celdas con una herramienta increíble
Más tutoriales para enviar correos en Excel...

Enviar correo electrónico desde un rango específico de celdas en Excel

El siguiente código VBA puede ayudarte a copiar un rango y pegarlo directamente en el cuerpo de un correo de Outlook desde Excel. Por favor, sigue los siguientes pasos.

1. En la hoja de cálculo que contiene el rango que necesitas copiar, presiona simultáneamente las teclas "Alt + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana abierta de "Microsoft Visual Basic para Aplicaciones", haz clic en "Herramientas" > "Referencias", como se muestra en la captura de pantalla a continuación.

3. En el cuadro de diálogo "Referencias – VBAProject", busca y marca la opción "Biblioteca de objetos de Microsoft Outlook", y luego haz clic en el botón Aceptar.

4. Haz clic en "Insertar" > "Módulo", luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Enviar correo electrónico con un rango especificado en Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Notas:

• 1). Cambia el cuerpo del correo en esta línea del script xEmailBody = "Hola" & vbLf & vbLf & "cuerpo del mensaje que deseas agregar" & vbLf & vbLf & xEmailBody & vbNewLine según sea necesario.
• 2). Especifica el destinatario y el asunto del correo en esta línea dentro del código: (.To = happy.xuebi@163.com and .Subject = "prueba").

5. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona el rango que necesitas pegar en el cuerpo del correo y luego haz clic en el botón Aceptar. Ver captura de pantalla:

6. Ahora se ha creado un correo electrónico con el destinatario, asunto, cuerpo y rango de Excel seleccionado especificados; haz clic en el botón "Enviar" para enviar este correo. Ver captura de pantalla mostrada.

Nota: El código VBA solo funciona cuando usas Outlook como tu programa de correo.

Enviar correo electrónico desde un rango específico de celdas con una herramienta increíble

Si no usas Outlook y aún deseas enviar correos electrónicos directamente en Excel con datos de un rango especificado pegados dentro, te recomiendo encarecidamente la función "Enviar Correo Electrónico" de Kutools para Excel. Con esta función, solo necesitas configurar el servidor saliente de una dirección de correo electrónico y luego podrás enviar correos electrónicos directamente en Excel a través de esta dirección en el futuro.

1. Primero, necesitas preparar una lista de correo con los campos necesarios.

• Consejos: La lista de correo debe contener al menos 2 filas, y la primera fila debe ser los encabezados (Suponiendo que deseas enviar correos electrónicos a dos direcciones de correo en Excel, escribe estas dos direcciones de correo con el encabezado “Correo” como se muestra en la captura de pantalla a continuación).
• 
• Alternativamente, puedes crear fácilmente una lista de correo con la función Crear Lista de Correo.

2. Selecciona el rango que agregarás al cuerpo del correo y presiona las teclas Ctrl + C para copiarlo.

3. Selecciona toda la lista de correo (incluidos los encabezados), haz clic en "Kutools Plus" > "Enviar Correos Electrónicos". Ver captura de pantalla:

4. Luego aparecerá el cuadro de diálogo "Enviar Correos Electrónicos".

• 4.1) Los elementos de la lista de correo seleccionada se rellenan en los campos correspondientes (puedes agregar más campos a la lista de correo según sea necesario);
• 4.2) Haz clic en el cuadro del cuerpo del correo, presiona las teclas Ctrl + V para pegar los datos del rango seleccionado en él. Después de eso, agrega otro contenido según sea necesario;
• 4.3) Desmarca la casilla "Enviar correos electrónicos a través de Outlook";
• 4.4) Haz clic en el botón "Configuración del Servidor Saliente". Ver captura de pantalla:

  

5. Luego aparecerá el cuadro de diálogo "Configuración del Servidor Saliente (SMTP) – Nuevo Esquema". Completa la dirección de correo electrónico con sus configuraciones de servidor, especifica una carpeta para guardar todos los correos enviados después de marcar la casilla "Guardar correos enviados en", y luego haz clic en el botón Aceptar para guardar la configuración.

6. Cuando regrese al cuadro de diálogo "Enviar Correos Electrónicos", haz clic en el botón "Enviar" para enviar el correo.

Artículos relacionados: