Seleccionar archivos adjuntos correo

   Buenas.Tengo un pequeño lío a la hora de usar la instrucción filedialog. No se qué estoy haciendo mal.
Estoy mandando desde access un correo, y para elegir los archivos adjuntos he puesto este código incluído entre el resto de código que lanza el outlook:

Dim numarchivos As Integer, i As Integer

numarchivos = InputBox("Introduzca el número de archivos que va a adjuntar al correo")

For i = 1 To numarchivos Step 1

        MsgBox archivo_adjunto
        Set objOutlookAttach = .Attachments.Add(archivo_adjunto)

Next i

Ésto llama a la siguiente función:

Function archivo_adjunto() As String

Dim ventana As Object
Dim obj As Variant
Dim ruta As String

Set ventana = Application.FileDialog(3)

With ventana

    .Title = "Eligir archivo"
'    .AllowMultiSelect = True
'    .Filters.Add "Bases de datos", "*.accdb"
    .Show

'    If .Show = -1 Then

    For Each obj In .SelectedItems
        ruta = CStr(obj)
        MsgBox ruta
        archivo_adjunto = ruta
    Next obj

'    Else
'    End If

End With

Set ventana = Nothing

'archivo_adjunto = ruta

End Function

El problema es que me abre la ventana para coger el archivo dos veces por cada paso del for y sólo me coge el segundo archivo de cada par de veces...
Las líneas comentadas son por pruebas que he ido haciendo y no han salido del todo bien. Ni caso.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Kublai Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 11/Julio/2020 Localización: Murcia Estado: Sin conexión Puntos: 162	Tema: Seleccionar archivos adjuntos correo Enviado: 13/Septiembre/2022 a las 11:18
	Buenas. Tengo un pequeño lío a la hora de usar la instrucción filedialog. No se qué estoy haciendo mal. Estoy mandando desde access un correo, y para elegir los archivos adjuntos he puesto este código incluído entre el resto de código que lanza el outlook: Dim numarchivos As Integer, i As Integer numarchivos = InputBox("Introduzca el número de archivos que va a adjuntar al correo") For i = 1 To numarchivos Step 1 MsgBox archivo_adjunto Set objOutlookAttach = .Attachments.Add(archivo_adjunto) Next i Ésto llama a la siguiente función: Function archivo_adjunto() As String Dim ventana As Object Dim obj As Variant Dim ruta As String Set ventana = Application.FileDialog(3) With ventana .Title = "Eligir archivo" ' .AllowMultiSelect = True ' .Filters.Add "Bases de datos", "*.accdb" .Show ' If .Show = -1 Then For Each obj In .SelectedItems ruta = CStr(obj) MsgBox ruta archivo_adjunto = ruta Next obj ' Else ' End If End With Set ventana = Nothing 'archivo_adjunto = ruta End Function El problema es que me abre la ventana para coger el archivo dos veces por cada paso del for y sólo me coge el segundo archivo de cada par de veces... Las líneas comentadas son por pruebas que he ido haciendo y no han salido del todo bien. Ni caso.

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: en línea Puntos: 14734	Enviado: 13/Septiembre/2022 a las 11:28
	Hola, Si dentro del bucle tienes 2 líneas que llaman a la función archivo_adjunto es normal que aparezca 2 veces el selector. Quita la línea del MsgBox y nos cuentas. Un saludo
	Xavi, un minyó de Terrassa Mi web

Kublai Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 11/Julio/2020 Localización: Murcia Estado: Sin conexión Puntos: 162	Enviado: 13/Septiembre/2022 a las 11:42
	Algo tan simple y llevo toda la mañana calentándome la cabeza sin verlo. Muchísimas gracias Xavi. Como siempre, me has ayudado un montón. Ahora funciona estupendamente. Gracias por todo. Por mi parte ya se podría cerrar el hilo.