Discussion :

[Richard_35]

Bonjour à tous les contributeurs,

Je souhaite, à partir d'un formulaire Access 2003, pouvoir créer un poste de
type "Réunion" dans le Calendrier Outlook 2003 de l'utilisateur concerné. Je
souhaiterais pouvoir remplir tous les champs de saisie disponibles en saisie
de rendez-vous dans Outlook.

Je ne connais pas VBA... une bonne âme pourrait-elle me transmettre le code
qui va bien ?... Si possible commenté avec la correspondance des champs de
saisie Outlook et des champs de saisie du formulaire Access.

Dans ce forum, j'ai trouvé ce code, mais il créé un poste de type "Rendez-vous" et non pas "Réunion" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set obj = CreateObject("Outlook.application")
Set objitem = obj.createItem(olAppointmentItem)
With objitem
   .start = "10/02/2009 10:00"
   .duration = 90
   .Subject = "RV Client"
   .Body = "presentation"
   .Busystatus = olOutOfOffice
   .Save
End With
Set objitem = Nothing
Set obj = Nothing

Merci d'avance de votre aide,
Richard.

[Pierre Fauconnier]

Bonjour

Personnellement, je ne vois pas la différence entre une réunion et un RDV dans le calendrier Outlook

[Richard_35]

Bonjour Pierre,

Merci de ta réponse.

Il suffit d'accéder au calendrier et de créer un "Rendez-vous". Sur le masque de saisie du "Rendez-vous", si tu appuies sur le bouton "Inviter des participant" ce poste devient une réunion avec des champs supplémentaires, notamment (ce qui m'intéresse), le champ "A" qui permet de saisir une liste d'adresse mail.

En fait, dans le code que j'ai (maladroitement) envoyé, il s'agit peut-être du même type d'objet, mais il me manque le nom des champs Outlook manquants :
- A
- Emplacement
- Heure de fin (.end ne marche pas)
- Rappel (case à cocher)
- période pour le rappel

Merci de tes conseils,
Richard.

[Pierre Fauconnier]

Bonjour

Je pense qu'il suffit d'ajouter les propriétés ad hoc à l'objet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TestDemandeReunion()
    Dim Reunion As Outlook.AppointmentItem
 
    Set Reunion = CreateItem(olAppointmentItem)
    With Reunion
        .Subject = "Test"
        .Start = "02/02/09 10:00"
        .End = "02/02/09 11:00"
        .Recipients.Add "Jean Dupont"
        .Save
        .Send
    End With
End Sub

[Richard_35]

Bonjour,

Comme je l'ai dit, le .End ne fonctionne pas.
Bravo pour le .Recipients.Add : c'est exactement ce qu'il me faut.

Par contre, le .Send déclanche un message d'avertissement d'Outlook qui demande la permission d'accéder à Outlook via un programme tiers ; en répondant "Oui", un autre message demande la permission d'envoyer la réunion : le "Oui" est grisé, à la fin de la barre de progression, le "Oui" est disponible, mais en le sélectionnant la réunion n'est pas envoyée.

Merci de tes conseils,
Richard.

[Richard_35]

Bonjour à tous,

J'ai tatonné un moment, et j'ai trouvé la solution : je me permets de vous en faire profiter.

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
Private Sub Commande0_Click()
 
Set obj = CreateObject("Outlook.application")
Set objitem = obj.createItem(olAppointmentItem)
With objitem
   .MeetingStatus = olMeeting           ' Type réunion
   .Recipients.Add "dest1"             ' Ajout destinataire
   .Recipients.Add "dest2"              ' Ajout destinataire
   .Recipients.Add "dest3"          ' Ajout destinataire
   .start = "06/02/2009 10:00"          ' Début
   .duration = 120                      ' Durée
   .Subject = "Test Access => Outlook"  ' Sujet
   .Body = "Texte alerte"               ' Texte
   .ReminderSet = True                  ' rappel
   .ReminderMinutesBeforeStart = 10     ' rappel x minutes avant
   .Busystatus = olOutOfOffice          ' absent du bureau
   .Display                             ' affichage pour validation
   .Save
   .Send
 
   End With
Set objitem = Nothing
Set obj = Nothing
 
End Sub

Merci encore à tous les contributeurs,
Richard.