AW: Outlook öffnen und später schließen
29.09.2008 19:10:23
Nepumuk
Hallo Peter,
eine Möglichkeit:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Private Declare Function OpenProcess Lib "kernel32.dll" ( _
ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_READ = &H10
Private lvntTaskId As Variant
Public Sub Open_Outlook()
lvntTaskId = Shell("C:\Programme\Microsoft Office\OFFICE11\OUTLOOK.EXE", vbMaximizedFocus)
End Sub
Public Sub Close_Outlook()
Dim lngHandle As Long
If lvntTaskId <> 0 Then
lngHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, lvntTaskId)
If lngHandle <> 0 Then Call TerminateProcess(lngHandle, 0&)
End If
End Sub
Gruß
Nepumuk