Enviar varios correos desde excel

17/05/2006 - 12:40 por pacomar | Informe spam

Buenos días grupo.

He estado mirando los anteriores mensajes sobre este tema posteados con
anterioridad, pero no he visto nada parecido a lo que necesito.

Supongamos que necesito enviar por e-mail un documento personalizado en
formato pdf a varios destinatarios cuyas direcciones tengo en un libro:
"e-mails" y su hoja correspondiente: "hoja1"
A: id B: Nombre C: Email

Supongamos que tengo una carpeta donde guardo los pdf generados para
cada uno de los detinatarios: "C:/docspdf/001.pdf, 002.pdf, xxx.pdf".

¿Se podría confeccionar una rutina que buscara los ficheros
correspondientes, donde el nombre de fichero (001) se correspondería
con el "id" del destinatario y lo enviara como adjunto a las
direcciones almacenadas en la columna C?

Saludos...

Paco.

Siga el debate

10 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 pacomar

19/05/2006 - 10:09 | Informe spam

Hola Fco.

Efectivamente, este método que me envías funciona, pero ¿cómo lo
integro en la rutina anterior para que me pida el nombre de la carpeta
donde guardo los ficheros a enviar?. Lo he intentado en varios lugares
pero en todos ellos trastoca el código y nada funciona.

Saludos..

Paco.

Francisco MTY ha escrito:

Post de KL:

Usa el metodo GetOpenFileName. Revisa la Ayuda en linea de Excel (desde el
Editor VBA) para los detalles de la sintaxis y ejemplos.

Adaptando un poco el ejemplo que sale en la Ayuda:

Sub test()
Archivo = _
Application.GetOpenFilename _
("Archivo Microsoft Excel (*.xls), *.xls")
If Archivo <> False Then
MsgBox "Open " & Archivo
'Workbooks.Open Archivo
End If
End Sub

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

#7 Francisco MTY

19/05/2006 - 11:19 | Informe spam

Que buscas hacer con esta funcion ?
Selecionar el archivo en cuestion para el envio, es decir abrirlo y ejecutar
la macro de envio ?
O designar la ruta donde se almacenan los archivos ?
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

#8 Francisco MTY

19/05/2006 - 11:42 | Informe spam

Ok
El detalle es que no solicita la ruta donde guardas los archivos que deseas
enviar, sino que asume que estan dentro de la columna C1:F1 ya los nombres
de lo diferentes archivos a enviar igual que la ruta completa :)

Lo mas sencillo que se puede hacer es que dentro del DOS realizes una lista
de los archivos con la ruta completa como por ejemplo, segun sea el caso:

dir /b/s c:\*.pdf > milistaPDF.txt

este archivo lo abres y copias el contenido dentro de la columna en cuestion
:)

Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

#9 pacomar

19/05/2006 - 11:59 | Informe spam

Hola de nuevo...

Exacto, de lo que se trata es de seleccionar la ruta donde están los
archivos a enviar.

Saludos..

Paco.

Responder a este mensaje

#10 pacomar

19/05/2006 - 12:16 | Informe spam

Ok.. Fco.

Lo haremos así.

Gracias por todo.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google