Organice la tabla de salarios como se muestra a continuación: 1) Usted mismo puede aumentar o disminuir el número de columnas 2) Si las columnas de datos ordenadas no se pueden enviar, agregue una letra mayúscula "X" al encabezado; se utiliza como asunto del correo electrónico. Modifique el nombre de la hoja de trabajo antes de enviarla. Habilite la pestaña Desarrollador, inserte un control de comando y modifique el nombre del control y el nombre para mostrar. ? Ingrese a la interfaz de programación de VBA; copie el siguiente código en la ventana de edición. ? Private Sub Enviar correo automáticamente _ Click()' Para enviar correo correctamente, se requiere una configuración efectiva de Microsoft Outlook. Cuando se produce un error, restaure el siguiente Dim RowCount, EndRowNo, número de columna final, SFile $, SFile 1 $, A amp;, B amp;' como objeto dim obj mail as mailitem 'Obtener el número de fila de los datos de la hoja de trabajo actual área EndrowNo = hoja activa. rango usado. Obtiene el nombre de la hoja de trabajo actual y la envía como asunto del correo electrónico. sFile1 = Hoja Activa. Cree objOutlook como un objeto de aplicación de Outlook. establecer objOutlook = CreateObject("Outlook.App")? Inicie el bucle para enviar correos electrónicos desde rowCount = 2 hasta endRowNo 'Crear objMail como un conjunto de objetos de correo objmail = objoutlook. ¿Crear elemento (olmailitem)? ¿Usar objMail? Establezca el número de columnas donde se encuentran la dirección del destinatario y la fuente de datos. ¿A = celda (número de filas, 5)? Establezca la dirección CC (obtenida del campo "Dirección de correo electrónico" en 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 trabajo. Asunto = sFile1?" del correo electrónico (obtenido del campo "Contenido" de la tabla de la libreta de direcciones)? "¿Alineación? El modo de visualización del texto de la celda es izquierda (izquierda), medio (medio), derecha (derecha). ¿El valor predeterminado es centrado, ancho-ancho-alto? Grosor de la línea de la celda del borde, color del borde devuelve o establece el color del borde de la El objeto "colSpan" es una propiedad del lenguaje de programación que establece o devuelve el número de columnas que abarca una celda SFile = "¡Hola!
Este es tu "sFile1", ¡compruébalo! " sFile = sFile " " sFile = sFile "? Este campo es de aplicación. Funciones de la hoja de trabajo. countif (celdas (1, a), " * x * ") = 0, entonces si b = 1, no se enviará después de agregar "x" al encabezado de datos de la tabla de salarios. sArchivo = sArchivo "?" celda(1,A). Texto "?" Celda (número de filas, A). Texto " "? B = 0? else sFile = sFile " " Celdas(1,A). Texto "?" Celda (número de filas, A). Texto "" B = 1 ¿Finalizar si? ¿Y si se acaba el próximo? . HTMLBody = sFile? Establecer archivos adjuntos (obtenidos del campo "Adjuntos" en la tabla de la libreta de direcciones). apéndice. AddCells(recuento de filas, 24). Valor 'Enviar correo electrónico automáticamente. ¿enviar? Termina con...
Destruir el conjunto de objetos objMail objMail = Nada Siguiente paso 'Destruir el conjunto de objetos objOutlook objOutlook = Nada '¿Preguntar cuando se envían todos los correos electrónicos? Recuento de filas de MsgBox: 2 y "¡Recibo de sueldo del empleado enviado correctamente!" Fin del subconsejo: primero puedes desconectarte de China. Haga clic en él, luego vaya a la bandeja de salida de su buzón de correo para ver cómo funciona. Si no funciona, puedes eliminarlo y empezar de nuevo. Esta respuesta fue recomendada por el clasificador de redes de Computer China, Li Xiaozhong.