Hola compañeros . Lo primero deciros que soy nuevo aqui y pido disculpas si este hilo está donde no debe.
Os cuento; Tengo un base de datos con varias tablas. En una tabla se almacenan columnas normales y además algunas columnas de tipo "datos adjuntos".
Pues bueno, la cuestion es que ahora quiero que en un momento dado (un boton) tenga un accesso directo al correo de outlook con algunos ficheros de esa tabla adjuntadas directamente y preparada para enviar.
Para eso , he conseguido esto(y es que soy muy novato en VBA)
Código:
Private Sub correo()
Dim nomb As String
nomb= Form_Adjuntos.Texto19
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "xxxxx"
.Body = "xxxxx"
.Attachments.Add ("C:\xxx")
.Attachments.Add ("C:\yyy")
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Con esto es posible que adjunte directamente siempre que le doy una ruta válida del disco duro, pero lo que yo quiero es que en vez de aparecer la ruta, aparezca el dato adjunto (supongamos que el dato adjunto esta en un formulario)
La idea es que sea algo asi, pero naturalmente no lo es y por eso os pido ayuda
Código:
.Attachments.Add (Form_adjuntos.dato_adjuntos) //donde Form_Adj es el
formulario y datos_Adjuntos un campo de tipo "datos adjuntos" existente
U otra opción que sería es que exportara temporalmente a una carpeta y adjuntar luego desde alli pero aqui viene otro problema. ¿Alguien sabe donde se guardan los vinculos -si es que se guardan- al adjuntar archivos? Es que no veo manera...
Muchas gracias
Saludos