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