Macro para enviar todos los archivos de una carpeta usando tabla Excel
Quería hacer una hoja para enviar factuaras a los clientes, conseguí un código para enviarlo atrave de Outloook pero mi problema es que tengo elegir los archivos que quiero enviar por cada línea, ¿no hay ninguna manera de automatizar? Los nombres de archivos son variables pero la carpeta es fija si yo pongo la ruta de carrpeta no hay alguna manera de que me salga todos los archivos (la Ruta )para enviarlo . Adjunto la hoja, cualquier duda o alclaracion por favor preguntadme, muchísimas gracias de antemano... De verdad estoy atascado...
1 Respuesta
Respuesta de Victor Rodriguez
Deberías crear un do while para que repitiese el envío para todos los archivos:
Sub EnviarMail() Dim MyFolder As String Dim MyFile As String MyFolder = "C:\Ruta" MyFile = Dir(MyFolder & "\*.xlsx") Do While MyFile <> "" 'INSTRUCCIONES PARA ENVIAR EL MAIL MyFile = Dir Loop End Sub
Deberás cambiar C:\Ruta por tu ruta y si no son .xlsx también la extensión en la macro
