FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 929, dernière mise à jour : 31 décembre 2023 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 rendez-vous (3)

Comment récupérer un dossier de type rendez-vous ?
Comment créer un nouveau rendez-vous ?
Comment récupérer un calendrier Outlook ?

Comment récupérer un dossier de type rendez-vous ?

La méthode GetDefaultFolder ne fonctionnant pas pour le type de dossier rendez-vous (Appointment), on doit parcourir récursivement tous les dossiers pour le retrouver.

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function TForm1.FindCalendarFolder(CollectionDossier: _Folders): MAPIFolder; 
var 
 i: Integer; 
 Dossier : MAPIFolder; 
begin 
  for i := 1 to CollectionDossier.Count do 
  begin 
    Dossier:= CollectionDossier.Item(i) as MAPIFolder ; 
    if Dossier.DefaultItemType = olAppointmentItem then 
     begin 
      Result := CollectionDossier.Item(i); 
      break; 
     end 
    else 
     Result := FindCalendarFolder(Dossier.Folders); 
  end; 
end;

La méthode appelante doit vérifier si l'objet retourné est valide, exemple:

Code delphi :

Sélectionner tout

1
2
3
DossierRDV:= FindCalendarFolder(EspaceDeNom.Folders); 
if not VarIsNull(DossierRDV) and not VarIsEmpty(DossierRDV)  
 then...

Mis à jour le 18 janvier 2014 Laurent Dardenne

Comment créer un nouveau rendez-vous ?

On utilise la méthode Add de la collection Items sur l'objet concerné de type MAPIFolder.

La méthode FindCalendarFolder est détaillée dans Comment récupérer un dossier de type rendez-vous ?

Code delphi :

Sélectionner tout

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
var 
    DossierContact : MAPIFolder; 
    UnContact : ContactItem; 
    Filter :Olevariant; 
  
    DossierRDV : MAPIFolder; 
    AnciensContact : MAPIFolder; 
    RDV : AppointmentItem; 
    I : Integer; 
  
begin 
    // recherche un contact 
  DossierContact := EspaceDeNom.GetDefaultFolder(olFolderContacts); 
  Filter:= '[LastName] = ''Out'' and [FirstName] = ''Look'''; 
  UnContact:=DossierContact.Items.Find(Filter) as ContactItem; 
  
  // Recherche le dossier Rendez-vous 
  DossierRDV:= FindCalendarFolder(EspaceDeNom.Folders); 
  if not VarIsNull(DossierRDV) and Not VarIsEmpty(DossierRDV) then 
  begin 
      //Ajoute un Rendez-vous 
    RDV := DossierRDV.Items.Add(olAppointmentItem) as AppointmentItem; 
    With RDV do 
     begin 
      Subject := 'Mon RDV'; 
      Body := 'Corps du message'; 
  
       //Lieu 
      Location := 'Salle 210, 3 éme étage'; 
  
       //Durée: 10 jours à partir de maintenant 
      Start := Now()+0.05; 
      End_ := Now()+10; 
       // Evénement sur toute la journée 
      AllDayEvent := True;  
  
       //Positionne l'alarme  
      ReminderMinutesBeforeStart := 20; 
      ReminderSet := True; 
  
      Importance := olImportanceNormal; 
  
       //Destinataires 
      Recipients.Add('person1@domain.com'); 
      Recipients.Add('person2@domain.com'); 
  
       // Ajoute un ou plusieur contacts 
      Links.Add(UnContact); 
      // Links.Add(Contact n); 
  
      Save; 
  
      {Affiche l'élément RDV } 
      Display(True); 
     end; 
  end; 
end;

Mis à jour le 18 janvier 2014 Laurent Dardenne

Comment récupérer un calendrier Outlook ?

Ce code permet de se connecter sur le compte Outlook par défaut , c'est à dire associé à la session Windows. Pour changer cela il faut saisir le compte de messagerie puis le mot de passe de la façon suivante :

Code delphi :

Sélectionner tout

Nom.logon('COMPTE','PASS', False, False);

Ensuite on récupère la date de début et de fin de chaque rendez-vous ainsi que son sujet :

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm2.FormCreate(Sender: TObject); 
var 
    objFolder : MAPIFolder; 
    Nom : NameSpace; 
    j : Integer; 
    rdv : variant ; 
    st : string; 
begin 
  Outlook.Connect;    //connexion à Outlook 
  Nom := Outlook.GetNameSpace('MAPI'); 
  Nom.logon('','', False, False);    //connexion au compte de messagerie associé 
  objFolder := Nom.GetDefaultFolder(olFolderCalendar);  // Accès à la boîte de réception 
  For j := 1 To objFolder.Items.Count do 
  begin 
    rdv := objFolder.Items.Item(j); 
    st := string(rdv.start)+' '+string(rdv.end)+ ' '+string(rdv.subject); 
    ListBox1.Items.Add(st); 
  end; 
end;

Pour afficher d'autres données d'un rendez-vous, on utilisera les propriétés et méthodes adéquates. Par exemple rdv.location indiquera le lieu, rdv.duration la durée, etc.
Consultez l'aide en ligne d'Outlook pour de plus amples informations.

Mis à jour le 18 janvier 2014 PomaH

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.