DominoArea.org [Archive]

Bonjour,j'ai une application "gestion des absences" sur mon intranet et je voudrai enregistrer leur absences dans leur agenda personel , j'ai des users exchange et des users notes sur plusieurs serveurs avec differente version et oui ....Solution trouve : pour les exchange je crée un fichier vcs (VCalendar) que je rattache au mail de confirmation , pour les usere notes je met un bouton dans le mail de confirmation qui crée une entré dans l'agenda notes.deja exist-il une solution unique qui fonctionnerai dans les deux cas ? je ne pense mais bon.Autre pb : pour les entre notes, si je crée un evenement sur la journée je ne peux gerer les demi journée. si je crée un rendez-vous je peux gerer les demi journée mais il faudrai que je crée une entré soit un doc par jour d'absence, ce qui n'ai pas terrible...Voila, donc si quelqu'un a une id un conseillle je suis prenneur....Merci

Tu crees un doc "evenement" pour n journees entieres + eventuellement un doc "rdv" pour la 1/2 journee.

Puis-je vous poser une question. Je l'avais posée récemment sur ce forum.. comment créer à partir d'un bouton une entrée d'agenda ?? Je voudrai en utiliser un pour transférer un rendez-vous (ou un rappel) d'un masque d'une base XX à l'agenda de la base courrier. Merci.

Ben, je crée tous simple un document (Set doc = db.createdocument ...)en utilisant la form "Appointement" de la base courrier. ensuite je renseigne les champ de ce masque (AppointmentType = "4" pour un rappel, StartDate, EndDate, StartTime .....)Ouvre ta base courrier dans le designer et ouvre le masque appointment pour regardez ce que tu dois renseigner...

merci beaucoup pour l'info, je vais étudier cela !!

Bonjour, j'aimerai avoir un échantillon du script en question(insertion des enregistrements dans le calendrier), pour m'en inspirer.je débute sous notes.D'avance merci.[%sig%]

salutessaie ca: Call CreationAgenda(Session,courrier,Lien,DebutDateHeure,FinDateHeure,Duree,trdr)Sub CreationAgenda (Session As NotesSession, Bdd As NotesDataBase, Doc As NotesDocument, Debut As NotesDateTime, Fin As NotesDateTime,_Duree As Integer, trdr As Variant) 'création de l'entrée d'agenda Set agenda = bdd.Createdocument agenda.form = "Appointment" agenda.AppointmentType = "0" agenda.Duration = duree Set agenda.CalendarDateTime = debut Set agenda.EndDateTime = Fin Set agenda.StartDateTime = debut Set agenda.StartDate = debut agenda.ExcludeFromView = "D" Set trdr.startdatetime = debut Set trdr.EnddateTime = Fin Set agenda.timerange = trdr agenda.Subject = Doc.Nature(0) agenda.MailOptions = 0 agenda.Orgtable = "C0" agenda.PRINCIPAL = session.Username agenda.Logo = "StdNotesLtr22" Set item = agenda.ReplaceItemValue( "_ViewIcon", 148 ) Set item = agenda.ReplaceItemValue("$BusyName",session.Username) Set item = agenda.ReplaceItemValue("$BusyPriority","1") Set item = agenda.ReplaceItemValue("$ExpandGroups","3") Set item = agenda.ReplaceItemValue("$PublicAccess","1")