Fermer outlook, et tester si bien fermé

Soyez le premier à donner votre avis sur cette source.

Vue 15 629 fois - Téléchargée 407 fois

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
BILANGA
Messages postés
1
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
1 juillet 2005

1 juil. 2005 à 11:03
Le composant TOutlookApplication est bien disponible dans l'onglet "Serveurs" de Delphi 6 entreprise. Confirmation.

Mais je désire avec le code sur l'utilisation du composant TAccessApplication.
Et si comment utiliser AccessReport.
A++
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
14 déc. 2003 à 07:40
Nous sommes alors tout à fait d'accord, Japee.
Merci pour ces précisions.
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
13 déc. 2003 à 23:53
Exact, Delphiprog, TOutlookApplication est bien disponible dans l'onglet "Serveurs" de Delphi 6 Entreprise. Mea culpa ;)
Mais pas dans D 4 Professionnel :(((
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
13 déc. 2003 à 22:57
Rectification : le composant TOutlookApplication est disponible dans l'onglet "Serveurs" de Delphi 6 entreprise !
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
13 déc. 2003 à 21:11
TOutlookApplication n'est pas disponible sur :

Delphi 4 Professionnel,
Delphi 6 Entreprise.
Afficher les 7 commentaires

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.