¿Cómo enviar correos electrónicos a varios destinatarios en una lista desde Excel a través de Outlook?
Si tiene varias direcciones de correo electrónico en una columna de la hoja de trabajo y ahora, desea enviar un correo electrónico a esta lista de destinatarios desde Excel directamente sin abrir Outlook. En este artículo, hablaré sobre cómo enviar correos electrónicos a varios destinatarios desde Excel al mismo tiempo.
Envíe correo electrónico a varios destinatarios desde Excel con código VBA
Envíe correo electrónico a varios destinatarios desde Excel con código VBA
Puede usar un código VBA para enviar mensajes a varios destinatarios a la vez, haga lo siguiente:
1. Mantenga pulsado el botón ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Haga Clic en recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código VBA: envíe un correo electrónico a varios 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. Y luego presione F5 para ejecutar este código, aparecerá un cuadro emergente para recordarle que seleccione la lista de direcciones, vea la captura de pantalla:
4. Luego haga clic OKy Outlook Mensaje aparece la ventana, puede ver que todas las direcciones de correo electrónico seleccionadas se han agregado al A campo, y luego puede ingresar el asunto y redactar su mensaje, vea la captura de pantalla:
5. Después de terminar el mensaje, haga clic en Enviar y este mensaje se enviará a estos destinatarios en su lista de hojas de trabajo.
Envíe un correo electrónico a varios destinatarios con el libro de trabajo actual como archivo adjunto mediante el código VBA
Si necesita enviar un mensaje a varios destinatarios con el libro de trabajo actual como archivo adjunto, puede aplicar el siguiente código VBA.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: envíe un correo electrónico a varios 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, presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione las direcciones a las que desea enviar el mensaje, vea la captura de pantalla:
4. A continuación, haga clic en OK botón y Outlook Mensaje aparece la ventana, todas las direcciones de correo electrónico se han agregado a la A campo, y su libro de trabajo actual también se ha insertado como archivo adjunto, y luego puede ingresar el asunto y redactar su mensaje, vea la captura de pantalla:
5. Luego haga clic Enviar para enviar este mensaje a la lista de destinatarios con el libro actual como archivo adjunto.
Envíe correos electrónicos personalizados a varios destinatarios con diferentes archivos adjuntos:
Con Kutools for Excel's Enviar correos electrónicos función, puede enviar rápidamente correos electrónicos personalizados a varios destinatarios con diferentes archivos adjuntos de Excel a través de Outlook según lo necesite. Al mismo tiempo, también puede enviar mensajes CC o CCO a una persona específica. ¡Haga clic para descargar Kutools para Excel! |
Artículo relacionado:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!