FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 934, dernière mise à jour : 23 octobre 2024 Ajouter une question

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez

Sommaire →Microsoft Office →Microsoft Outlook →Gestion des dossiers (3)

Comment récupérer un dossier dans le dossier principal ?
Comment créer un dossier ?
Comment récupérer un dossier imbriqué ?

Comment récupérer un dossier dans le dossier principal ?

On utilise le nom du dossier principal de l'utilisateur puis on sélectionne le nom du dossier désiré.

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var Dossiers, 
    AnciensContact : MapiFolder; 
    NomDossier : OleVariant; 
    I : Integer; 
begin 
   //Folder principal pour le compte utilisateur 
  NomDossier:='Dossiers personnels'; 
  Dossiers:= EspaceDeNom.Folders.Item(NomDossier); 
  
   //Sous-folder nommé dans le folder principal 
  NomDossier:='Anciens contact'; 
  AnciensContact:= Dossiers.Folders.Item(NomDossier); 
  for i := 1 to AnciensContact.Items.Count do 
    ListeAncienContacts.Items.Add((AnciensContact.Items.Item(i) as ContactItem).FullName); 
end;

Mis à jour le 18 janvier 2014 Laurent Dardenne

Comment créer un dossier ?

La création d'un dossier se fait par la méthode Add de la collection Folders d'un dossier de type MapiFolder.

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var DossierContacts, 
    NouveauDossier, 
    Dossiers         : MAPIFolder; 
    NomDossier      : Variant; 
begin 
   // Imbriqué 
  DossierContacts := EspaceDeNom.GetDefaultFolder(olFolderContacts); 
  NomDossier:='Contact société'; 
  NouveauDossier:= DossierContacts.Folders.Add(NomDossier,olFolderContacts); 
  
   // Non-imbriqué, inséré dans le dossier principal de l'utilisateur 
  NomDossier:='Dossiers personnels'; 
  Dossiers:= EspaceDeNom.Folders.Item(NomDossier); 
  NomDossier:='Contact société'; 
  NouveauDossier:= Dossiers.Folders.Add(NomDossier,olFolderContacts); 
end;

La méthode Remove supprime un dossier et son contenu.

Mis à jour le 18 janvier 2014 Laurent Dardenne

Comment récupérer un dossier imbriqué ?

Comme il peut exister plusieurs dossiers d'un type particulier, par exemple des dossiers contenant des éléments courrier, la méthode GetDefaultFolder renvoie un objet MAPIFolder qui représente le dossier par défaut du type particulier choisi.

On peut le vérifier dans l'interface lors de la création d'un nouveau dossier, dans ce cas Outlook propose une liste indiquant le type des éléments contenus.

Le type par défaut est une des valeurs suivantes :

olFolderCalendar : Calendrier
olFolderContacts : Contacts
olFolderDeletedItems : Éléments supprimés
olFolderDrafts : Brouillons
olFolderInbox : Boîte de réception
olFolderJournal : Journal
olFolderNotes : Notes
olFolderOutbox : Boîte d'envoi
olFolderSentMail : Éléments envoyés
olFolderTasks : Tâches

Dans l'exemple suivant on récupère le dossier par défaut pour les contacts :

Code delphi :

Sélectionner tout

1
2
3
var DossierContacts: MAPIFolder; 
begin 
  DossierContacts := EspaceDeNom.GetDefaultFolder(olFolderContacts);

Si on souhaite récupérer le dossier nommé 'Anciens Contacts' imbriqué dans un dossier par défaut.

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var DossierContact, 
    AnciensContact : MAPIFolder; 
    NomDossier : OleVariant; 
    I : Integer; 
begin 
  DossierContacts := EspaceDeNom.GetDefaultFolder(olFolderContacts); 
  NomDossier:='Anciens Contacts'; 
  AnciensContact:= DossierContacts.Folders(NomDossier); 
  
   // Parcourt la collection des contacts 
   // qui est une collection d'objet de type TContactItem 
  for i := 1 to ContactsFolder.Items.Count do 
    ListeAncienContacts.Items.Add((AnciensContacts.Items.Item(i) as ContactItem).FullName); 
end;

Vous devez respecter la casse du nom de dossier.

Mis à jour le 18 janvier 2014 Laurent Dardenne

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.