Añadir un control a un UserForm que adjunte archivos

Solo consultas sobre macros y código VBA Excel.
  • Anuncio
Manual Excel avanzado

Añadir un control a un UserForm que adjunte archivos

Notapor saulo » 09 Mar 2010 18:44

Hola

Quisiera saber si es posible hacer lo siguiente:

Tengo un userform que envía correos, eso me funciona bien,
Si pongo por ejemplo

.AddAttachment = TextBox7

me adjunta el archivo y va bien pero me obliga a escribir y saber la ruta completa, el nombre y extension del adjunto de antemano, lo que me gustaría es poder poner un control en el userform (Ej.: command button o lo que me digan), que lo que haga es buscar en mi disco duro el archivo (si se pudieran buscar varios mejor) y me ponga la ruta completa y nombre de archivo en un textbox o donde me digan que es mejor, y así poder enviarlo adjunto al mail en la instrucción

.AddAttachment = ????????

Les adjunto lo que tengo hecho de momento

Gracias anticipadas por vuestra ayuda
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
saulo
Miembro Nuevo
Miembro Nuevo
 
Registrado: 28 Feb 2010 22:28

Re: Añadir un control a un UserForm que adjunte archivos

Notapor Tokenring » 09 Mar 2010 19:30

Buenas Tardes:

Tal vez no entendí bien, pero según yo para que en un TextBox te ponga la ruta y el nombre del archivo
Puede usar algo así:

Private Sub Buscar_Archivos_Click()
Dim archivo As String
archivo = Application.GetOpenFilename
TextBox7.Text = archivo
End Sub

En espera de tus comentarios para saber si entendí el problema

Saludos...
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Tokenring
Miembro Frecuente
Miembro Frecuente
 
Registrado: 03 Mar 2010 14:41
Ubicación: Mexico

Re: Añadir un control a un UserForm que adjunte archivos

Notapor saulo » 10 Mar 2010 22:11

perfecto, es justo lo que necesitaba.

mil gracias. :D :D
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
saulo
Miembro Nuevo
Miembro Nuevo
 
Registrado: 28 Feb 2010 22:28


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado