Amigos quien pueda revisar esta macro se los agradeceré
Tengo la siguiente macro que solo envía un correo a la vez, lo que necesito es enviar más de un correo con información diferente les dejo la macro para que la revisen
Sub envío()
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
Set parte3 = parte1.createitem(olmailitem)
parte2.to = Range("C2")
parte2.Subject = "Diferencias" + " " + Range("E2") + " " + Range("F2")
parte2.body = "Buenos Días" + Chr(13) + Chr(13) + Range("D2") + Chr(13) + Chr(13) + Range("E2") + " " + Range("F2") + " " + " " + Range("G22") + " " + Range("H2")
parte2.display 'aquí puedes poner send y lo enviará directamente
Set parte1 = Nothing
Set parte2 = Nothing
End Sub
1 respuesta
Desarrollé una macro para enviar varios correos y con varios archivos.
Te anexo el archivo, en el archivo, va un ejemplo y la explicación para ejecutarlo.
https://www.dropbox.com/s/hfwi9tykoy0c4v9/correo4.xls
Saludos. Dam
Si es lo que necesitas.
Estimado
Lo que busco es lo siguiente en la columna c están los correos en la columna d,e,f,g los datos que aparecerán como cuerpo o mensaje del correo.
Me gustaría que la macro recorra la columna c y envíe los correos con los datos de la siguiente columna que le corresponde y no ir uno por uno enviándolos, te puedo enviar el archivo a algun correo.
Justamente eso hace el archivo que te envié, recorré todas las filas y va enviando fila por fila un correo. ¿Lo revisaste?
Saludos. Dam
Me marca error 287
¿Modificaste algo en el archivo?
¿Pusiste correos reales en PARA y Con copia para?
no modifique nada, ¿mi código no lo puede modificar?
Te modifiqué el código para que envíe todos los correo de la columna C, empezando en la C2
Sub envío()
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
Set parte3 = parte1.createitem(olmailitem)
parte2.to = Range("C" & i)
parte2.Subject = "Diferencias" + " " + Range("E" & i) + " " + Range("F" & i)
parte2.body = "Buenos Días" + Chr(13) + Chr(13) + Range("D" & i) + Chr(13) + Chr(13) + Range("E" & i) + " " + Range("F" & i) + " " + " " + Range("G" & i) + " " + Range("H" & i)
parte2.display 'aquí puedes poner send y lo enviará directamente
Set parte1 = Nothing
Set parte2 = Nothing
Next
End Sub
Saludos. Dam
Si es lo que necesitas.
