Insertar Archivos
Estoy tratando de hacer una pequeña aplicación con Visual Basic para mandar correos. Me gustaría saber si para anexar archivos al correo existe algún control o alguna función para el típico botón de 'Examinar' y que me permita anexar un archivo de cualquier parte.
Respuesta de losbeaves
1
Prueba este código:
' lo ha probado con Outlook 2000 y funciona
Private Sub CmdEmail_Click()
'abre el outloock
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = "[email protected]"
.Attachments.Add "c:\borrame.xls"
End With
'muestra el formulario de envío
myOLItem.Display
'Si deseas enviar el e-mail sin ver el formulario
'donde se escriben los datos solamente escribe esto
'los datos se enviaran automáticamente
'myOLItem. Send
Exit Sub
end sub
' lo ha probado con Outlook 2000 y funciona
Private Sub CmdEmail_Click()
'abre el outloock
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = "[email protected]"
.Attachments.Add "c:\borrame.xls"
End With
'muestra el formulario de envío
myOLItem.Display
'Si deseas enviar el e-mail sin ver el formulario
'donde se escriben los datos solamente escribe esto
'los datos se enviaran automáticamente
'myOLItem. Send
Exit Sub
end sub
1 respuesta más de otro experto
Respuesta de uripe
1
Pues si lo hay, es el microsoft common dialog control
Esta en proyecto componentes
Lo dibujas(no se vera en ejecución)
Y le llamas por ejemplo Commo
Y en un botón pones:
'Esto es el filtro de archivos a abrir
Commo.Filter = "Text (*.txt)|*.txt|Word (*.doc)|*.doc|"
' eso abre la ventana
Commo.showopen
'Esto retorna el directorio selecionado por ti,para k puedas hacer lo k kieras
TxtRuta = Commo.filename
Este control también tiene para mostrar ayuda, guardar como, impresoras y colores de windows lo único que en lugar de showopen es showsave, showcolor, etc..
Y cada uno de estos eventos tiene un retorno por ejemplo es showcolor retorna el color
Espero que te sirva y si quieres más ejemplos me lo dices
Esta en proyecto componentes
Lo dibujas(no se vera en ejecución)
Y le llamas por ejemplo Commo
Y en un botón pones:
'Esto es el filtro de archivos a abrir
Commo.Filter = "Text (*.txt)|*.txt|Word (*.doc)|*.doc|"
' eso abre la ventana
Commo.showopen
'Esto retorna el directorio selecionado por ti,para k puedas hacer lo k kieras
TxtRuta = Commo.filename
Este control también tiene para mostrar ayuda, guardar como, impresoras y colores de windows lo único que en lugar de showopen es showsave, showcolor, etc..
Y cada uno de estos eventos tiene un retorno por ejemplo es showcolor retorna el color
Espero que te sirva y si quieres más ejemplos me lo dices