Bonjour,

j'ai un petit problème c'est que je veux réaliser des rendez-vous Outlook à partir d'une application vb.net voila le code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Imports Microsoft.Office.Interop
 
Public Class Form4
 
    Public Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Try
 
        'Création de l'application Outlook
        Dim oApp As Outlook.Application = New Outlook.Application()
 
        'Déclarer le nom de l'espace
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
 
 
 
        'Créer un nouveau rendez-vouz
 
        Dim oAppt As Outlook.AppointmentItem = oApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
        'oAppt.Display(true)  'Modal	
 
        ' Set some common properties.
 
 
        oAppt.ReminderSet = True
        oAppt.ReminderMinutesBeforeStart = 5
        oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy  '  olBusy
        oAppt.IsOnlineMeeting = False
 
        'Sauvegarder
        oAppt.Save()
 
        ' Display.
        'oAppt.Display(true)
 
        ' Logoff.
        oNS.Logoff()
 
        ' Vider la mémoire
        oApp = Nothing
        oNS = Nothing
        oAppt = Nothing
 
 
        'End Try
 
    End Sub
 
 
    Private Sub Envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Envoyer.Click
 
 
        Dim oApp As Outlook.Application = New Outlook.Application()
        Dim oAppt As Outlook.AppointmentItem = oApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
 
        oAppt.ReminderSet = True
        'oAppt.ReminderMinutesBeforeStart = 5
        oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy  '  olBusy
        oAppt.IsOnlineMeeting = False
        oAppt.Subject = sjt.Text
        oAppt.Body = msg.Text
        oAppt.Location = loc.Text
 
 
        oAppt.Start = Convert.ToDateTime(DD.Value.ToString)
        oAppt.End = Convert.ToDateTime(DF.Value.ToString)
 
 
        'Sauvegarder
        oAppt.Save()
 
        ' Display.
        'oAppt.Display(true)
 
        ' Logoff.
        oNS.Logoff()
 
        ' Vider la mémoire
        oApp = Nothing
        oNS = Nothing
        oAppt = Nothing
 
    End Sub
le problème c'est que je peux pas choisir les heures de début et fin du rendez-vous, il envoie toujours l'heure 12:00 AM !!!

merci d'avance