FAQ DelphiConsultez toutes les FAQ

Pour utiliser Outlook avec Delphi vous pouvez utiliser le composant TOutlookApplication de l'onglet Serveur.

Utilisez ensuite la méthode TOutlookApplication. Connect pour exécuter Outlook et ainsi pouvoir utiliser les autres fonctions décrites ici.
Les exemples de code présentés ont été réalisés avec Delphi 7 et MS Office 2000.

Il faut qu'Outlook professionnel soit installé sur le poste pour que le composant fonctionne.
Outlook Express ne permet pas l'automation.

Outlook s'appuie en partie sur MAPI (Messaging Application Programming Interface). Les méthodes utilisées s'appuient sur le Outlook Object Model, qui ne permet pas l'accès à toutes les propriétés de MAPI , par exemple : pas d'accès au status de réponse à un rendez-vous d'un participant à une réunion en écriture.

Les principaux objets d'Outlook sont :

Application
|
|- Namespace
|   |- AdressLists
|   |    |- AdressEntries
|   |
|   |- Folders
|        |- MAPIFolder b
|             |- Items
|                 |- Actions
|                 |- Attachements
|                 |- UserProperties
|                 |- RecurrencePattern
|                 |- Recipients
|
|- Assistant
|
|- Explorer
|
|- Inspector
|- Pages

Détails des objets :

Application :
ici il s'agit d'Outlook !

Namespace :
C'est le fournisseur de transport des messages. Le seul fournisseur pris en charge par Outlook est 'MAPI'.

Folders :
Tous les éléments sont contenus dans des Folders (Dossiers). C'est une collection d'objet dossier.
Actuellement seul les objets 'MAPIFolder' existent dans cette collection.

MAPIFolder :
Un objet MAPIFolder représente un dossier simple telle que 'contacts' ou 'boîte de réception'.
Un objet MAPIFolder peut contenir d'autres objets MAPIFolder ainsi que différents articles tels que des messages ou des
rendez-vous et peut contenir d'autres dossier.

Items :
Chaque dossier possède un objet collection d'articles, qui représente tous les objets Outlook dans ce dossier.
La collection d'articles peut être décomposée en types spécifiques d'articles tels que des messages, des rendez-vous…

Exemples :

• AppointmentItem : Un rendez-vous dans le dossier Calendrier
• ContactItem : Un contact dans un carnet d'adresse.
• JournalItem : Représente un enregistrement de toutes les transactions effectuées dans Outlook pendant une période donnée.
• MailItem : Représente un courrier électronique.
• NoteItem : Représente un type post-it.
• …
  

Les fichiers d'aide du produit sont :

• Ms Office 2000 : C:\Program Files\Microsoft Office\Office\1036\VBAOUTL9.CHM
• Ms Office 97 : C:\Program Files\Microsoft Office\Office\1036\VBAOUTL8.CHM
  

• SDK
• Outlook
  

Cette fonction a pour but d'enregistrer les pièces jointes de tous les mails présents dans un dossier OUTLOOK.
Ici, le dossier de réception.

Une fois la connexion à Outlook réalisée on peut lancer cette fonction :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.BReceptionClick(Sender: TObject); 
var 
  oNameSpace    : Variant; 
  oDossier      : Variant;        //Dossier que l'on cherche à scruter 
  sDirName      : String;         //Chemin où seront enregistrées les pièces jointes 
  oMail         : Variant;        //Variant représentant le mail 
  iNbMail       : Integer; 
  iNbPieceJointe: Integer; 
  i, j          : Integer; 
begin 
  sDirName := 'C:\Temp\'; 
  oNameSpace := myOutlook.GetNameSpace('MAPI'); 
  oNameSpace.Logon; 
  //On se positionne dans le dossier de réception 
  oDossier  := oNameSpace.GetDefaultFolder(olFolderInbox); 
  //On récupère le nombre de mails 
  iNbMail   := oDossier.Items.Count; 
  //On teste si on a des mails 
  if iNbMail > 0 then 
  begin 
    for i := 1 to iNbMail  do 
    begin 
      oMail := oDossier.Items(i); 
     //On récupère le nombre de pièces jointes 
      iNbPieceJointe := oMail.Attachments.Count; 
      //On teste si on a des pièces jointes 
      if iNbPieceJointe > 0 then 
      begin 
        //On enregistre chaque pièce jointe vers le dossier de destination 
        for j := 1 to iNbPieceJointe do 
          oMail.Attachments(j).SaveAsFile(sDirName+oMail.Attachments(j).FileName); 
      end; 
    end; 
  end; 
end;