Problemas con macro correo5b, Error -2147517851
Dante:
He descargado la macro para enviar archivos distintos a usuarios distintos, pero al tratar de ejecutarla me aparece el error indicado.
¿Estoy haciendo algo mal?
1 respuesta
Si, tengo office 2010 empresas.
Gracias por tu respuesta
Puedes decirme más sobre el error.
Te aparece una ventana que tiene un botón "Depurar", presiona ese botón y dime qué línea de la macro está de amarillo
dam.To = Range("B" & i) 'Destinatarios
Te cuento además que tengo instalado windows 8.1 y cuando entro en la opción ventanas y luego correo, me he dado cuenta que no abre el outlook y no esta configurado a otro correo tampoco.
GRacias por tu tiempo
Entra a VBA, en el Menú Herramientas, referencias y revisa que tengas las siguientes referencias activas:
Ya lo he revisado y la única diferencia es que me aparece 14 en vez de 12, sin embargo aun no logro que la macro funcione y se para en la misma línea. He bajado un par de macros más para envío de correos y se mantiene el problema en el destinatario.
¿Hay algo más que pueda hacer o revisar?
Gracias
Prueba con la siguiente macro:
Sub correob()
'Por.Dante Amor
Dim dam1 As Object
Dim dam As Object
col = Range("H1").Column
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set dam1 = CreateObject("outlook.application")
Set dam = dam1.createitem(0)
With dam
.To = Range("B" & i) 'Destinatarios
.CC = Range("C" & i) 'Con copia
.Bcc = Range("D" & i) 'Con copia oculta
.Subject = Range("E" & i) '"Asunto"
.Body = Range("F" & i) '"Cuerpo del mensaje"
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j)
If archivo <> "" Then .Attachments.Add archivo
Next
.send 'El correo se envía en automático
.display 'El correo se muestra
End With
Next
MsgBox "Correos enviados", vbInformation, ""
End Sub
No logre que funcionara esta macro, pero baje otra y funcionó. No soy muy experta en el tema por lo que no podría decirte que cambió. Si quieres te la puedo compartir.
Gracias de todas formas
Sí, puedes compartirla.
Avísame cualquier duda que tengas.
No dejes preguntas sin valorar. G racias
¿Puedo añadir archivos acá como la plantilla excel que estoy utilizando?
Gracias
Puedes subir el archivo a una nube, por ejemplo dropbox o googledrive y entonces compartir el enlace, o simplemente copia la macro que utilizaste y la pegas aquí.
