Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo enviar un correo electrónico a las direcciones de correo electrónico especificadas en las celdas de Excel?

Supongamos que tiene una lista de direcciones de correo electrónico, y ahora desea enviar un mensaje de correo electrónico a estas direcciones de correo electrónico a granel directamente en Excel. ¿Cómo lograrlo? Este artículo le mostrará los métodos para enviar correos electrónicos a varias direcciones de correo electrónico especificadas en celdas en Excel.

Enviar correo electrónico a las direcciones de correo electrónico especificadas en las celdas en Excel con VBA

Enviar correo electrónico a las direcciones de correo electrónico especificadas en las celdas con Kutools para Excel

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

Enviar correo electrónico a las direcciones de correo electrónico especificadas en las celdas en Excel con VBA


El siguiente código de VBA puede ayudarlo a enviar correos electrónicos a las direcciones de correo electrónico especificadas en Excel. Por favor haz lo siguiente.

1. En la hoja de trabajo contiene las direcciones de correo electrónico a las que necesita enviar correos electrónicos, presione otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la apertura Microsoft Visual Basic para aplicaciones ventana, por favor haga clic Herramientas > Referencias como se muestra a continuación.

3. En el Referencias - VBAProject cuadro de diálogo, busque y verifique Biblioteca de objetos de Microsoft Outlook opción, y luego haga clic en OK botón.

4. Luego haga clic recuadro > Módulo. Luego copie y pegue el código de VBA a continuación en la ventana del Módulo.

Código de VBA: envíe un correo electrónico a las direcciones de correo electrónico especificadas en las 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 especifique su asunto y cuerpo del correo electrónico en ambos .Subject = "prueba" y .Body = "Estimado" _ & vbNewLine & vbNewLine & _ "Este es un email de prueba" & _ "enviando en Excel" líneas en el código.

5. presione el F5 clave para ejecutar el código. En la apertura Kutools for Excel cuadro de diálogo, seleccione el rango que contiene las direcciones de correo electrónico a las que enviará correos electrónicos y luego haga clic en OK botón. Ver captura de pantalla:

Luego, los correos electrónicos basados ​​en direcciones de correo electrónico seleccionadas se crean como se muestra a continuación. Por favor haga clic en Enviar botones para enviar estos correos electrónicos.

Notas:

1. Si hay tres direcciones de correo electrónico que existen por separado en las celdas seleccionadas, se crearán tres mensajes de correo electrónico.

2. El código de VBA solo funciona cuando usa Outlook como su programa de correo electrónico.


Enviar correo electrónico a las direcciones de correo electrónico especificadas en las celdas con Kutools para Excel

Esta sección te recomendará el Enviar correos electrónicos utilidad de Kutools for Excel. Con esta utilidad, puede enviar fácilmente correos electrónicos a las direcciones de correo electrónico especificadas en las celdas de Excel. Por favor haz lo siguiente.

Kutools for Excel : con más de 300 útiles complementos de Excel, gratis para probar sin limitaciones en los días 60.

1. Seleccione las direcciones de correo electrónico con la celda del encabezado en su hoja de trabajo, luego haga clic Empresa > Enviar correos electrónicos. Ver captura de pantalla:

2. En el apareciendo Enviar correos electrónicos cuadro de diálogo, por favor haga las siguientes configuraciones:

2.1) Seleccione el encabezado de la lista de direcciones de correo electrónico en A la lista desplegable;

2.2) Ingrese el asunto del correo electrónico en Asunto caja;

2.3) Componer su cuerpo de correo electrónico;

2.4) Compruebe la Enviar correos electrónicos a través de Outlook caja;

2.5) Haga clic en Enviar botón. Ver captura de pantalla:

3. Entonces un Kutools for Excel cuadro de diálogo aparece para decirle cuántos correos electrónicos se han enviado. Por favor haga clic en OK botón y cierra el Enviar correos electrónicos caja de diálogo. Ver captura de pantalla:

Notas:

1. Puede ir al Outlook Elementos enviados carpeta para verificar el envío de correos electrónicos.

2. También puede usar otro servidor haciendo clic Configuración del servidor saliente para establecer el modo de envío al suyo.

Propina.Si desea tener una versión de prueba gratuita de esta utilidad, vaya a descarga el software libremente primero, y luego vaya a aplicar la operación de acuerdo a los pasos anteriores.


Demostración: envíe un correo electrónico a las direcciones de correo electrónico especificadas en las celdas con Kutools para Excel

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 60. ¡Descargue la versión de prueba gratuita ahora!


Artículos relacionados:


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.