Cómo enviar correos electrónicos por lotes automáticamente usando Excel

Organiza la tabla de detalles salariales como se muestra a continuación

1. El número de columnas puedes agregarlas y eliminarlas

2. en columnas, los correos electrónicos no se pueden enviar. Agregue la letra mayúscula "X" en el encabezado;

3. El nombre de la hoja de trabajo se utiliza como asunto del correo electrónico. Modifique el nombre de la hoja de trabajo antes de enviarlo. /p>

Habilite la pestaña de herramientas de desarrollo; Inserte el control de comando; modifique el nombre del control y el nombre para mostrar;

Ingrese a la interfaz de programación VBA; copie el siguiente código en la ventana de edición.

Private Sub envía automáticamente mail_Click()

'Para poder enviarlo correctamente, Microsoft Outlook debe estar configurado efectivamente

En caso de error, reanudar a continuación

p>

Atenuar rowCount, endRowNo, endColumnNo, sFile$, sFile1$, A&, B&

Atenuar objOutlook como objeto

Atenuar objMail como elemento de correo

'Obtiene el número de filas y columnas en el área de datos de la hoja de trabajo actual

endRowNo = ActiveSheet.UsedRange.Rows.Count

endColumnNo = ActiveSheet.UsedRange.Columns. Count

' Obtenga el nombre de la hoja de trabajo actual y utilícelo como asunto del correo electrónico para enviar

sFile1 = ActiveSheet.Name

'Crear objOutlook como un objeto de aplicación Outlook

Establecer objOutlook = CreateObject("Outlook.Application")

'Comenzar a enviar correos electrónicos en un bucle

For rowCount = 2 To endRowNo

'Crear objMail como objeto de correo

Establecer objMail = objOutlook.CreateItem(olMailItem)

Con objMail

'Establecer la dirección del destinatario y el número de columnas de la fuente de datos

.To = Cells(rowCount, 5)

'Establezca la dirección de copia (obtenida del campo 'Dirección de correo electrónico' de la tabla de la libreta de direcciones)

'.CC = Cells (rowCount, 0)

'Establezca el asunto del correo electrónico y obtenga el nombre de la hoja de cálculo,

.Subject = sFile1

'Establecer el contenido del correo electrónico (de la tabla de la libreta de direcciones (obtenida del campo "Contenido")

'alinear el modo de visualización del texto de la celda a la izquierda (izquierda), al centro (centro) , derecha (derecha), el valor predeterminado es centro, ancho-ancho-alto-alto borde Grosor de la línea celular, color del borde devuelve o establece el color del borde del objeto

'colSpan es un lenguaje de programación cuyas propiedades se pueden establecer o devolver el número de columnas abarcadas por el elemento de la tabla

sFile = "¡Hola!
El siguiente es su " + sFile1 + ", ¡compruébelo! "

sFile = sFile + "

sFile = sFile + "

B = 1

For A = 1 To endColumnNo

'Este campo no se enviará después de agregar "X" al encabezado de datos

If Application.WorksheetFunction.CountIf(Cells(1 , A), "*X*") = 0 Entonces

Si B = 1 Entonces

sFile = sFile + "

B = 0

Else

sFile = sFile + "

B = 1

Finalizar si

Finalizar si

Siguiente

.HTMLBody = sFile

'Establecer archivos adjuntos (obtenidos del campo "Adjunto" de la tabla de la libreta de direcciones)

.Attachments.Add Cells(rowCount, 24).Value

'Enviar correos electrónicos automáticamente

.Enviar

Finalizar con

'Destruir el objeto objMail

Establecer objMail = Nothing

Siguiente

'Destruir objeto objOutlook

Establecer objOutlook = Nothing

'Preguntar cuando todos los correos electrónicos se envíen completos

MsgBox rowCount - 2 & " ¡Recibo de pago enviado correctamente! "

End Sub

Listo, la imagen de prueba es la siguiente

Consejos: método de manejo de excepciones indefinido de tipo definido por el usuario

Método: haga clic en Herramientas-Referencia-Verificar

Consejos: haga clic para enviar el mensaje de seguridad de OUTLOOK

Método: haga clic en Archivo-Opciones -Centro de confianza- Configuración del Centro de confianza-Acceso programático-Verificar nunca avisarme que hay actividad disponible

Consejo: cuando el acceso programático no se puede verificar y aparece gris

Solución: Panel de control-Usuario Cuenta: haga clic en Cuenta de usuario - Cambiar la configuración de control de cuentas de usuario - Ajustar para no notificar nunca, reinicie la computadora y vuelva a ajustar la configuración de Outlook después de ajustarla.

Pasos para leer