Outlook öffnen und später schließen 29.09.2008 14:00:28 Herbert Wie kann ich via VBa Outlook öffnen und später wieder schließen. Danke. Grüße Peter Anzeige
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 ExplicitPrivate Declare Function OpenProcess Lib "kernel32.dll" ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32.dll" ( _ ByVal hProcess As Long, _ ByVal uExitCode As Long) As LongPrivate Const PROCESS_TERMINATE = &H1Private Const PROCESS_VM_READ = &H10Private lvntTaskId As VariantPublic Sub Open_Outlook() lvntTaskId = Shell("C:\Programme\Microsoft Office\OFFICE11\OUTLOOK.EXE", vbMaximizedFocus)End SubPublic 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 IfEnd Sub Gruß Nepumuk Anzeige