Envíos masivos con documento adjunto personalizado Excel y Outlook
Necesito para el trabajo hacer un envío masivo con documentos adjuntos diferentes y tengo hecha una macro en excel para hacer envíos masivos que se conecta directamente al Outlook, pero no sé como incluir en la macro la ruta o el envío de esos documentos adjuntos que son diferentes para cada destinatario. El excel es muy básico, En la columna A tengo los correos electrónicos de los destinatarios, en B el Asunto del mensaje en el C el cuerpo y el el DE se podrían poner la ruta de los documentos adjuntos.
La programación que tengo hecha es la siguiente:
Sub EnvioMasEmail()
Dim A As Outlook.Application
Dim email As Outlook.Mailitem
Set A = New Outlook.Application
For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set email = A.createItem(emailItem)
With email
.To = Cells(i, 1).Value
.Subject = Cells(i, 2).Value
.Body = Cells(i, 3).Value
.Display
.Send
End With
Next i
Set email = Nothing
Set A = Nothing
End Sub
¿Podrías