¿Cómo enviar correo electrónico en Excel?
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