tous,

je travail sur une application qui cree des contacts dans outlook, maintenant, j'ajouter des appointements (tous va bien) juste je ne peux pas ajouter une date de debut et une date de fin a cet appointement.

voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
 Dim out As New Outlook.ApplicationClass
 Dim app As Outlook.AppointmentItemClass
 app = out.CreateItem(Outlook.OlItemType.olAppointmentItem)
 app.Subject = "subjet of appointement"
 app.Body = "the body of appointement"
 app.MeetingStatus = Outlook.OlMeetingStatus.olMeeting
 app.Send()
Merci d'avance pour votre aide