Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/05/2007, 09:39
ReViJa
 
Fecha de Ingreso: abril-2007
Mensajes: 187
Antigüedad: 17 años
Puntos: 1
Re: Como Abrir Simbolo de Sistema Desde VB 6.0

Cita:
Iniciado por juanutcm Ver Mensaje
¿Como hago para que desde un Command Button se abra la ventana del Simbolo del Sistema (MSDOS)?
Donde pause es un comando opcional, es por si quieres mandar algún tipo de parametro.
Código:
Private Sub Command1_Click()
Shell ("cmd /c ,pause"), vbMaximizedFocus
End Sub
Cita:
Iniciado por juanutcm Ver Mensaje
¿Como abrir desde un Command Button el Outlook?
Este está bastante claro
Código:
Private Sub Command2_Click()

Dim OutApli As Outlook.Application
Dim Msn As Outlook.MailItem

Set OutApli = New Outlook.Application      'Asigno las variables
Set Msn = OutApli.CreateItem(olMailItem)
  
Msn.To = "[email protected]"                 'Para
Msn.CC = "[email protected]"                  'Con copia (visible)
Msn.Subject = "Hola amigo"                 'Cabecera
Msn.Body = "mañana quedamos a las 10:00"   'Cuerpo del mensaje
Msn.Attachments.Add "c:\datos.txt"         'Datos adjuntos
Msn.Send                                   'Envia

Set OutApli = Nothing
Set Msn = Nothing
MsgBox "Mensaje enviado con exito", vbInformation

Set OutApli = Nothing
Set Msn = Nothing
End Sub
Cita:
Iniciado por juanutcm Ver Mensaje
¿Como abrir desde un Command Button un Nuevo Documento de Word y tambien uno ya existente?
Código:
Private Sub Command3_Click()
Dim Dispo As Object

Set Dispo = CreateObject("Word.Basic")
Dispo.ChDefaultDir App.Path, 0 ' Si el doc está en el directorio de la aplicación
Dispo.FileOpen Name:="Ayuda.doc"
Dispo.AppShow   'Asi abririas el documento ayuda

'Dispo.FileClose    'para cerrar ua página abierta
'Dispo.FileQuit     'para cerrar el documento word
'Dispo.FileNew      'para abrir un documento nuevo

Set Dispo = Nothing
End Sub


Un saludo.