Cómo enviar correos electrónicos por lotes desde Excel

Métodos/Pasos

Organiza el programa salarial como se muestra a continuación

1. Tú mismo puedes agregar y eliminar el número de columnas;

2. Si no puede enviar un correo electrónico después de ordenar la columna de datos, agregue una letra "X" mayúscula en el encabezado;

3. modifique el nombre de la hoja de trabajo antes de enviarla;

3. p>

Habilite la pestaña Herramientas de desarrollo; inserte un control de comando; modifique el nombre del control y el nombre para mostrar;

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

Private Sub envía automáticamente un correo electrónico_Click()

'Para poder enviarlo correctamente se requiere una configuración efectiva de Microsoft Outlook

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

'Obtiene el nombre de la hoja de trabajo actual y úselo como asunto del correo electrónico para enviar

sFile1 = ActiveSheet.Name

'Crear objOutlook como Outlook objeto de aplicación

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 dirección tabla de libros)

'.CC = Cells (rowCount, 0)

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

.Subject = sFile1

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

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

'colSpan es un lenguaje de programación cuyas propiedades 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

End If

Next

.HTMLBody = sFile

'Establecer archivo adjunto (obtenido 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 objeto objMail

Establecer objMail = Nada

Siguiente

'Destruir objeto objOutlook

Establecer objOutlook = Nada

'Avisar cuando todos los correos electrónicos se hayan enviado correctamente

MsgBox rowCount - 2 & "¡Las nóminas de los empleados se enviaron correctamente!"

End Sub

Ya terminó, el cuadro de prueba es el siguiente

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

Método de manejo: haga clic en Herramientas-Referencia-verificar

Consejo: haga clic para enviar consejos 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 enviarme una advertencia activa

7

Consejo: El acceso programático no se puede verificar cuando aparece en gris

Solución: Panel de control-Cuenta de usuario-Haga clic en Cuenta de usuario-Cambiar configuración de control de cuenta de usuario-Agregar a Nunca notificar, reinicie la computadora y ajuste la configuración de OUTLOOK nuevamente después de ajustarla.