FAQ DelphiConsultez toutes les FAQ
Nombre d'auteurs : 124, nombre de questions : 933, dernière mise à jour : 28 septembre 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.
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; |
Code delphi : | Sélectionner tout |
1 2 3 | DossierRDV:= FindCalendarFolder(EspaceDeNom.Folders); if not VarIsNull(DossierRDV) and not VarIsEmpty(DossierRDV) then... |
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; |
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);
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; |
Consultez l'aide en ligne d'Outlook pour de plus amples informations.
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 çaLes 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.