Utilice vba para escribir datos de Excel en una plantilla de correo electrónico de Outlook

Sub?sendmail()

Dim?rowCount,

endRowNo

Set?objOutlook?=CreateObject("Outlook.Application" )

Set?objMail?=objOutlook.CreateItem(olMailItem)

Set?objMail?=objOutlook.CreateItem(olMailItem)

Con?objMail

.To?=?Cells(1,2).Value' se reemplaza con la dirección de correo electrónico

.Subject?=?Cells(2,2).Value' se reemplaza con el correo electrónico asunto

.Body?=?Cells(3,2).Value' se reemplaza con el contenido del correo electrónico

.Attachments.Add?ThisWorkbook.FullName' se reemplaza con el archivo adjunto

.Enviar

Fin?Con

Set?objMail?=Nada

Set?objOutlook?=Nada

End?Sub

Si hay varias personas, puedes agregar un bucle. Si no entiendes, puedes preguntarme.