Cita:
Iniciado por juanutcm
¿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
¿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
¿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.