Envío de correos mediante excel con archivos adjuntos
Interesante aplicación que puede solucionar el envío masivo de mails en un tiempo muy reducido.
'***Macro Para enviar correos
Sub correo()
'Por.Dam
ufila = Range("B" & Rows.Count).End(xlUp).Row
col = Range("G1").Column
For i = 2 To ufila
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
dam2.To = Range("B" & i) 'Destinatarios
dam2.CC = Range("C" & i) 'Con copia
dam2.Bcc = Range("D" & i) 'Con copia oculta
dam2.Subject = Range("E" & i) '"Asunto"
dam2.body = Range("F" & i) '"Cuerpo del mensaje"
ucol = Cells(i, Columns.Count).End(xlToLeft).Column
For j = col To ucol
archivo = Cells(i, j)
dam2.Attachments.Add archivo
Next
dam2.send 'El correo se envía en automático
'dam2.display 'El correo se muestra
Next
End SubEstuve tratando de aplicar tu macro a una rutina de envío de mails que realizo; sin embargo, la macro se detiene en la siguiente fila:
dam2.To = Range("B" & i) 'Destinatariosdam2.To = Range("B" & i) 'Destinatarios
Actualmente estoy utilizando MS Office 2013, ¿crees qué se deba a alguna incompatibilidad?
¿Tienes el archivo correo5?
¿Qué mensaje de error te pone cuando se detiene la macro?
¿Y tienes outlook?
Vamos a realizar una prueba, para revisar si se está abriendo outlook.
En un módulo pon la siguiente macro:
Sub EnviarCorreo()
'Por.Dante Amor
Set dam = CreateObject("outlook.application").createitem(0)
dam.display 'El correo se muestra
End SubEjecuta la macro y me dices qué es lo que hizo.
Saludos. Dante Amor
¡Gracias Dante por tu apoyo!
- Tengo el archivo de correo5
- Tengo Outlook
- Hice lo que me sugeriste y lo que hace la macro es abrir una ventana de correo nuevo. Crees que se deba a la clave que me solicita Outlook para abrir la libreta de direcciones?
Saludos y gracias nuevamente
Me olvidé comentarte que el mensaje que aparece en pantalla es el siguiente:
Sí, quita la clave y vuelves a probar todo
1 respuesta más de otro experto
Hola Dante Amor yo tengo problemas al ejecutarla, precisamente el edpurador me pone en amarillo Set dam = CreateObject("outlook.application").createitem(0), y me aparece una ventana que dice "se ha producido el error 429" en tiempo de ejecución: El componente Active X no puede crear el objeto - Pedro A Bayly
Revisa en el menú de vba, Herramientas, Referencias, que tengas activa la referencia: Microsoft office 12.0 Object Library - Dante Amor
Hola. Tu macro es la solución a mis problemas. La ejecute pero me da un error al ejecutarla. El mismo error que describe el autor de la pregunta pero no he podido solucionarlo. - Ana Mile Roa
Después del paréntesis escribe .value, por ejemplo dam2.To = Range("B" & i).value tienes que ponerlo en las siguientes líneas - Dante Amor