Macro para enviar varios correos a diferentes destinatarios !
¿Me podrías ayudar con mi macro?, lo que necesito es enviar diferentes correos a los mismos destinatarios, solo cambia lo que se envía en cada correo, es un correo por cada hoja
2 Respuestas
Respuesta de Dante Amor
1
H o l a:
Envíame un ejemplo de lo que tienes y qué es lo que quieres enviar.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Martha Hernandez Baez”
¡Gracias! Ya te lo envíe a tu correo
Te anexo la macro actualizada
Sub COPRE_Todas()
'Act.Por.Dante Amor
'
For Each h In Sheets
h.Select
h.Range("A1:U100").Copy
Set dam = CreateObject("outlook.application").createitem(olmailitem)
dam.To = "[email protected]"
dam.Subject = "Saludos"
Dam. Display
DoEvents
Application. Wait Now + TimeValue("00:00:03")
DoEvents
SendKeys "^v", True
DoEvents
Application. Wait Now + TimeValue("00:00:03")
DoEvents
'dam. Send
DoEvents
Next
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Respuesta de Programar Excel
Para enviar a varios haz un bucle en el listado de mails.
En vez de resaltar los datos al realizar el bucle envías el correo puedes llamar con call el nombre de la macro que envía correo