Fermer outlook, et tester si bien fermé

Télécharger le projet
Commenter

Description

Ce bout de code permet de fermer outlook proprement (pas en tuant le processus :-p) et de tester s'il s'est bien fermé.

Je m'en suis servi pour une appli de sauvegarde que j'ai installé sur les postes utilisateurs de la boîte. Comme je souhaite sauvegarder les fichier .pst d'Outlook il faut qu'Outlook soit fermé sinon je n'y ai pas accès.

Une précision : on utilise Outlook 2000 et pas Outlook Express.

Source / Exemple : 


// 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.

Conclusion :


Outlook ne se ferme pas si :
- y'a des messages supprimés et que le répertoire n'est pas vidé et que l'option de confirmation est activée.
- on est en train d'écrire un message (ça demande Sauvegarder Oui/Non/Annuler) mais de toute façon le prog il continue et considère que c pas fermé peu importe la réponse.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_iubito)