Macro para enviar un archivo adjunto diferente a diferentes destinatarios
Estoy haciendo una macro en excel para enviar correo electrónico. Tengo dos columnas, la de correos y la de la ruta del archivo adjunto que deseo enviar. La cuestión aquí es que solo he logrado que envíe el mismo archivo adjunto a todos los correos pero no el correspondiente a cada correo.
Espero me puedan ayudar.
Sub CorreoEnCadena() Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Asunto As String Dim Destinatario As String Dim Correo As String Dim Msg As String Set OutlookApp = New Outlook.Application For Each cell In Range("B2:B3") Asunto = "Envio de Correo en cadena" Correo = cell.Value Msg = "Prueba.Salu2" Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = Correo .Subject = Asunto .Body = Msg .Attachments.Add Range("C2").Value .DeleteAfterSubmit = False .Send End With Next End Sub
2 Respuestas
Respuesta de Abraham Valencia
1
Respuesta de Dante Amor
1