FERMER OUTLOOK, ET TESTER SI BIEN FERMÉ

// Dans un form tout bête avec un bouton.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, Outlook2000, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
  DCOMoutlook: TOutlookApplication;
  bOuvert, bFermeSuccess : Boolean;
begin
  //
  // Test si outlook est ouvert et si c'est le cas essaye de le fermer
  //
  bOuvert:= False;
  DCOMoutlook := TOutlookApplication.Create(nil);
  try
    DCOMoutlook.ConnectKind := ckRunningInstance;
    //Si pas ouvert => exception, sinon affectation du booléen
    Try
      DCOMoutlook.Connect;
      bOuvert := True;
      DCOMoutlook.Quit;
    Except
      // Erreur connection => Outlook non ouvert
    End;
  Finally
    DComOutlook.Free;
  end;

  //
  // Test si outlook est fermé
  //
  bFermeSuccess := True;
  if ( bOuvert ) Then
  Begin
    DCOMoutlook := TOutlookApplication.Create(nil);
    try
      DCOMoutlook.ConnectKind := ckRunningInstance;
      //Si pas ouvert => exception, sinon affectation du booléen
      Try
        DCOMoutlook.Connect;
        bFermeSuccess := False;
      Except
        // Erreur connection => Outlook est bien fermé
      End;
    Finally
      DComOutlook.Free;
    end;
  End;


  if ( bOuvert ) Then
  Begin
    ShowMessage('Outlook ouvert');
    if ( bFermeSuccess ) Then ShowMessage('Outlook fermé avec succés')
    Else ShowMessage('Outlook non fermé');
  End
  Else ShowMessage('Outlook non démarré');

end;

end.