Discussion :

[More]

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

[SuperB]

Tu devrais avoir normalement les propriétés Start et Duration pour ton objet app...

[More]

oui,
voici un ptit code pour start mais ca marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
app.Start.AddDays(28)
app.Start.AddMonths(2)
app.Start.AddYears(2007)

pour duration ca marche bien, le probleme c'est que je veux que la date de debut soit par exemple demain ??

[SuperB]

et ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
app.Start = DateTime.Now.AddDays(1);

[More]

ca marche bien merci beaucoup,

mais il reste un petit probleme, c'est que je veux preciser l'heure aussi, par ce que si je me ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
app.Start = DateTime.Now.AddDays(1)
app.Start = DateTime.Now.AddHours(2)

il ecrase le jour et il ajoute juste l'heure

[SuperB]

bon dans ce cas il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
DateTime oMaDate = DateTime.Now.AddDays(1);
 
//si tu veux obtenir +2 heures :
oMaDate = oMaDate.AddHours(2);
 
//ou alors si tu veux obtenir 2 heures précisément :
oMaDate = oMaDate.AddHours(2 - oMaDate.Hour);
 
app.Start = oMaDate

[More]

merci beaucoup pour ton aide.

j'ai trouver une autre solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 app.Start = Convert.ToDateTime("02/27/2007 10:00:00 AM")
 app.End = Convert.ToDateTime("02/27/2007 2:00:00 PM")

ca marche bien .

merci encore