Saltar al contenido

Enviar correo a destinatario por linea y con 2 adjuntos para cada uno.

publicado

Hola:

A pesar de haber visto bastantes temas similares al propuesto, no encuentro ninguno que me acomode.

Necesito enviar unos 20 correos con los campos Destinatario, Con copia, Asunto, Cuerpo, Pie, y dos adjuntos.

El problema lo tengo en que no sé cómo indicarle al código que lea las rutas de los archivos que inserto en F2 y G2 mediante un botón. De paso, explico en el archivo que ese botón está preparado para seleccionar varios archivos, pero solo inserta la ruta de uno. Si se puediera arreglar, bien, si no, lo utilizaré para insertar las rutas una a una.

He partido del código de Roberto Salas https://www.ayudaexcel.com/foro/macros-programacion-vba-10/macro-para-enviar-correo-automaticamente-449/, el cual envia a un solo destinatario tantos mensajes iguales como celdas no vacias haya debajo de A3 (ver punto -d- en el archivo), cosa que no necesito.

Acepto cualquier otro formato con tal de que envie como mínimo 2 adjuntos a cada destinatario que haya en la columna A de un solo golpe. Si alguien tiene alguna idea, se lo agradezco.

Saludos.

Enviar email1.rar

Featured Replies

publicado
  • Autor

Si me funciona (mañana lo comprobaré en el trabajo y os contaré)...¡va a ser la leche!

¡Era exactamente lo que buscaba!

He añadido un botón para insertar la ruta explorando.

Saludos.

Envio email 2.zip

publicado
  • Autor

Funciona a las mil maravillas!

Dar por solucionado.

Saludos.

Archivado

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