Red de conocimiento informático - Material del sitio web - ¿Cómo enviar correo electrónico en Excel?

¿Cómo enviar correo electrónico en Excel?

Primero, cree una libreta de direcciones para amigos y familiares

Cree una libreta de direcciones para amigos y familiares con diferentes destinatarios, temas, contenidos y archivos adjuntos en la hoja de trabajo.

En segundo lugar, utilice macros para enviar correos electrónicos automáticamente.

Abra Herramientas → Macro → Editor de Visual Basic, haga clic en Insertar → Módulo para insertar el módulo, haga doble clic en el módulo insertado en la ventana del proyecto para abrir su ventana de código e ingrese la siguiente macro:

Sub AutoSendMail()

"Para enviar correctamente, necesita configurar Microsoft Outlook de manera efectiva.

En caso de error, continúe con el siguiente paso

Atenuar rowCount, endRowNo

Atenuar objOutlook como una nueva aplicación de Outlook

Atenuar el correo del objeto como un elemento de correo

"Obtener la hoja de cálculo actual conectada a la celda (1, 1) El número de filas en el rango de datos.

endRowNo = Celdas (1, 1). región actual. recuento de filas

"Crear objOutlook como un objeto de aplicación de Outlook.

Establecer objOutlook = nuevo Outlook. .App

"Comienza a enviar correos electrónicos en un bucle.

Para rowCount = 2 hasta endRowNo

"Crear objMail como objeto de correo.

Establecer objMail = objOutlook.CreateItem(olMailItem)

Establezca la dirección del destinatario (obtenida del campo "Dirección de correo electrónico" en la tabla de la libreta de direcciones) con objMail

To = cell(rowCount, 2)"Establecer asunto del mensaje.

. Asunto = "¡Feliz año nuevo! [Saludos de amigos, Sra. Fu]"

"Establezca el contenido del correo electrónico (obtenido del campo "Contenido" de la tabla de la libreta de direcciones)

. Cuerpo = unidad Celda(rowCount, 3)

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

. Adjuntos.Agregar celda(rowCount) , 4)

"Enviar correo automáticamente.

. Enviar

Termina con...

" Destruye el objeto objMail.

Establezca objMail = Nada

Luego

"Destruya el objeto objOutlook.

Establezca objOutlook = Nada

"Pregunta al enviar todos los mensajes.

Línea número 1 de MsgBox