Dim nProcID As Long
nProcID = Shell("C:\AddIn\ClickYes.exe")
 
'Diverse Zugriffe in Outlook und Synchronisation der Mail-Adressen
 
'Beenden des Programm's
If IsTaskActive(nProcID) Then
    TerminateTask nProcID
    CloseHandle (nProcID)
End If
 
'________________________________________________
'Definitionen in einem Module
Private Declare Function OpenProcess Lib "kernel32" ( _
  ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long
 
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
  ByVal hProcess As Long, _
  lpExitCode As Long) As Long
 
Private Declare Function TerminateProcess Lib "kernel32" ( _
  ByVal hProcess As Long, _
  ByVal uExitCode As Long) As Long
 
Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
 
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const PROCESS_TERMINATE = &H1
 
Public Function IsTaskActive(lTaskID As Long) As Boolean
  Dim lhwnd As Long
  Dim lExitCode As Long
 
  lhwnd = OpenProcess(PROCESS_ALL_ACCESS, False, lTaskID)
  Call GetExitCodeProcess(lhwnd, lExitCode)
  Call CloseHandle(lhwnd)
 
  IsTaskActive = (lExitCode = STILL_ACTIVE)
End Function
 
' Task beenden
Public Sub TerminateTask(lTaskID As Long)
  Dim lhwnd As Long
  Dim lResult As Long
 
  lhwnd = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
  lResult = TerminateProcess(lhwnd, 1&)
  CloseHandle lhwnd
End Sub