'
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'
Private Const WM_CLOSE = &H10
Private Const HTCAPTION = 2&
'
Private Const MON_TITRE As String = [B]"Titre de l'application Outlook"[/B]
'
'
Private Sub FermerApplication()
Dim lHwnd As Long
lHwnd = FindWindow(vbNullString, MON_TITRE)
If lHwnd = 0 Then
MsgBox "L' application " & MON_TITRE & " est introuvalble!"
Else
Call SendMessage(lHwnd, WM_CLOSE, HTCAPTION, ByVal 0&)
End If
End Sub