Macro para enviar individualmente a un listado de correos la información contigua de las celdas de la derecha.
En la columna A tengo una lista de correos electrónicos y en las celdas a la derecha tengo información diferente de cada usuario. Mi petición es poder enviar al correo A2 la información de la celda B2, C2, D2, E2, F2, G2, H2 y con sus respectivos encabezados en B1, C1, D1, E1, F1, G1, H1 y así para cada correo sus celdas a la derecha con los encabezados de siempre. ¿Sería mucho pedir conservar el formato de excel 2010? Uso Outlook 2010
1 Respuesta
Estimado Aneudys, te comparto un par de imágenes donde muestro la base de datos en Excel y el ejemplo de como pediría se arme el correo en Outlook, espero te sirva y de antemano gracias!
Seria algo así
Crear una hoja modelo en la celda a1 hasta i nombra las celda con los encabezada
Este hoja sera solo para copier los datos que se van a enviar
Selecciona el numero de cliente que vas a enviar le reporte
En tu ejemplo tiene el 2
Solo tiene que cambiar la celda de asunto destinatario y cuerpo
Sub correo_este_es()
Range(ActiveCell, ActiveCell.Offset(0, 8)).Copy
Sheets("sheet1").Range("a2").PasteSpecial Paste:=xlPasteValues
Sheets("sheet1").Range("a1:i2").Copy
Set Dam1 = CreateObject("outlook.application")
Set Dam2 = Dam1.createitem(olmailitem)
Dam2.to = Range("b4").Text 'Destinatarios
Dam2.Subject = Range("b5").Text '"Asunto"
Dam2.body = Range("b6").Text
Dam2.display 'El correo se muestra
SendKeys "^{END}"
SendKeys "^v"
DoEvents
End Sub
