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 = "
El siguiente es su " + sFile1 + ", ¡compruébelo!
sFile = sFile + "
Tabla de salarios | |||
" + Celdas(1, A).Texto + " ? | " + Celdas(rowCount, A).Texto + " | "" + Celdas(1, A).Texto + " ? | " + Celdas(rowCount, A).Texto + " |