Bonjour,
J'aimerai avoir un moyen simple et rapide de créer une réunion outlook qui sera toujours la même mis à part la date.
Du coup me suis fait une macro dans ce genre, (merci la FAQ) :
Seulement, elle ne va fonctionner que sur mon poste... Or je voudrais qu'elle soit accessible à tous mes collègues simplement.
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 Sub MaMacroDeCreationDeRDV() Dim app As Outlook.Application Dim meeting As Outlook.AppointmentItem Dim dateMeeting As Date Set app = Outlook.Application Set meeting = app.CreateItem(olAppointmentItem) dateMeeting = Date With meeting .MeetingStatus = olMeeting .Subject = "Sujet" .Location = "Salle XXX" .Start = dateMeeting .Duration = 30 .Body = "Corps" .Recipients.Add ("mail@mail.com") .Display .Send End With Set app = Nothing Set meeting = Nothing End Sub
Le but étant d'avoir un fichier exécutable sur le réseau, qui ferai ce que fait cette marco, mais simplement en double cliquant dessus : création d'une réunion émise par celui qui a lancé le fichier/la macro/le script via Outlook.
Je n'ai pas trouvé grand chose dans ce sens, à part installer cette macro chez tout le monde ou la création d'un add in COM.
J'aimerai quelque chose de bien plus simple.
Le pire c'est que je sais que ça existe, j'ai déjà vu ce genre de script/batch/exécutable, mais pas moyen de remettre la main dessus.
Du coup je ne suis pas certain d'être dans le bon forum (vu que ce n'est apparemment pas par un macro qu'il faut que je passe), mais je suis preneur de toute piste.
Merci d'avance.
Partager