Saltar al contenido

Añadir adjuntos a un correo segun rango de celdas


Recommended Posts

publicado

Buenas Foro.

En un rango de celdas variable en columna A tengo rutas y nombres de archivos para adjuntar a un correo.

Con

.Attachments.Add

adjunto un archivo y mi pregunta es como podria adjuntar los que tengo en el rango A con algun bucle o algo?

publicado
Hace 2 horas, Abraham Valencia dijo:

Hola

No das los suficientes detalles, pero creo que esto te ayudará:

Enlace

Saludos

Hola Abraham,, gracias por contestar.

Por lo que veo en tu blog, lo que hace bucle es mandar muchos correos, pero lo que yo pretendo es adjuntar un numero indeterminado  de adjuntos en un mismo correo. La ruta y nombre  de los adjuntos están desde la celda A1, A2...

publicado
Hace 20 minutos , Antoni dijo:

Por ejemplo:

For Each Archivo In Range("A1:A7")
   .Attachments.Add Archivo.Value, 1
Next

 

Buenas Antoni.

He adaptado tu codigo a esto:

For Each archivo In Range("A1:A " & Application.WorksheetFunction.CountA(Hoja4.[A:A]))
   .Attachments.Add archivo.Value, 1
Next

For Each archivo In Range("A1:A " & Application.WorksheetFunction.CountA(Hoja4.[A:A]))
   .Attachments.Add archivo.Value, 1
Next

Me da el error: No se encontró el elemento seleccionado, con la linea amarilla en For each...

publicado

Sobra un espacio en Range("A1:A ", prueba así:

For Each archivo In Hoja4.Range("A1:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row)
   .Attachments.Add archivo.Value, 1
Next

 

publicado
Hace 17 minutos , Antoni dijo:

Sobra un espacio en Range("A1:A ", prueba así:

For Each archivo In Hoja4.Range("A1:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row)
   .Attachments.Add archivo.Value, 1
Next

 

A sus pies maestro, una vez mas y agradecido ?

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.