Evénement dans l'agenda ??

[titi]

Bonjour,J'essaie désespérément d'inclure un événement dans mon agenda Notes, à partir d'un bouton d'action d'une appli.Les commandes suivantes fonctionnent impec, (la base s'ouvre, le masque aussi et les 1ers champs se remplissent), sauf pour les dates qui restent à la valeur du jour. QQUN aurait-il déjà réussi à faire ça ?@Environment("CSDocType";"2");@Command( [Compose] ; "" : "MabaseCourrieràMoi.nsf" ; "Appointment");@Command([EditInsertText];"Hello");@Command([EditGotoField];"Location");@Command([EditInsertText];"Chez moi");@Command([EditGotoField];"StartDate");@Command([EditInsertText];@Text(Debut));@Command([EditGotoField];"EndDate");@Command([EditInsertText];@Text(Fin));

[seb51]

Bonjour,ci dessous un code en LS permettant la MAJ d'un agenda.Sub maj_agenda(nom_salarie As String,serveur_mess As String,base_mess As String,date_debut As String,etat_debut As String,date_fin As String,etat_fin As String) On Error Goto erreur Dim session As New NotesSession Dim MailDB As NotesDatabase Dim MailDoc As NotesDocument Dim dateTime1 As NotesDateTime Dim dateTime2 As NotesDateTime Dim item As NotesItem Set MailDB = session.GetDatabase(serveur_mess,base_mess) ' if MailDB.CurrentAccessLevel Set MailDoc = New Notesdocument(MailDb) If etat_debut="AM" Then Set DateTime1 = New NotesDateTime(date_debut + " 04:00") End If If etat_debut="PM" Then Set DateTime1 = New NotesDateTime(date_debut + " 12:00") End If If etat_fin="AM" Then Set DateTime2 = New NotesDateTime(date_fin + " 20:00") End If If etat_fin="PM" Then Set DateTime2 = New NotesDateTime(date_fin + " 12:00") End If MailDoc.Form = "Appointment" MailDoc.appointmentType = "2" MailDoc.CHAIR = nom_salarie MailDoc.logo = "StdNotesLtr0" MailDoc.ORGTABLE = "PO" MailDoc.PRINCIPAL = nom_salarie MailDoc.tmpOwnerHW = "1" 'sl MailDoc.tmpOEMClient = "1" 'sl %REM MailDoc.Form = "Appointment" MailDoc.appointmentType = "0" MailDoc.CHAIR = nom_salarie MailDoc.logo = "StdNotesLtr0" MailDoc.ORGTABLE = "PO" MailDoc.PRINCIPAL = nom_salarie MailDoc.tmpOwnerHW = "1"%END REM Set item = MailDoc.ReplaceItemValue( "_ViewIcon", 160 ) Set item = MailDoc.ReplaceItemValue( "$BusyName", nom_salarie ) MailDoc.CalendarDateTime = dateTime1.LsLocalTime MailDoc.StartDate = dateTime1.LsLocalTime MailDoc.StartDateTime = dateTime1.LsLocalTime If etat_fin="AM" Then Call dateTime2.Adjustday(-1) End If MailDoc.EndDate = dateTime2.LsLocalTime MailDoc.EndDateTime = dateTime2.LsLocalTime MailDoc.Subject = "Congés"' Call MailDoc.ComputeWithForm(True,True) Call MailDoc.ComputeWithForm(False,False)' Call MailDoc.Save(True,True) Call MailDoc.Save(False,False) Exit Suberreur : Print " maj agenda "& Err & " " & Error & " ligne " & Str(Erl) Resume NextEnd Sub