Exécutable partagé pour créer une réunion dans outlook

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) :

Code:

---

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

---

Seulement, elle ne va fonctionner que sur mon poste... Or je voudrais qu'elle soit accessible à tous mes collègues simplement.
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.

SAlut,
Avec un vbs ou un fichier excel tu dois pouvoir le faire !

Avec excel le même code avec une référence à "Microsoft Outlook 1x.0 object library"

attention à ton start , il faut la date et l'heure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub ScheduleMeeting() Dim myItem as Outlook.AppointmentItem Dim myRequiredAttendee As Outlook.Recipient Dim myOptionalAttendee As Outlook.Recipient Dim myResourceAttendee As Outlook.Recipient   Set myItem = Application.CreateItem(olAppointmentItem) myItem.MeetingStatus = olMeeting myItem.Subject = "Strategy Meeting" myItem.Location = "Conference Room B" myItem.Start = #9/24/2003 1:30:00 PM# myItem.Duration = 90 Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun") myRequiredAttendee.Type = olRequired Set myOptionalAttendee = myItem.Recipients.Add ("Kevin Kennedy") myOptionalAttendee.Type = olOptional Set myResourceAttendee = myItem.Recipients.Add("Conference Room B") myResourceAttendee.Type = olResource myItem.Display End Sub

---

Ha super, ça marche effectivement avec Excel avec la référence à Outlook.

C'est pas super pratique, mais c'est fonctionnel.

J'ai tenté le vbs, mais faut changer 2-3 choses.
Voici le code (simplifié) fonctionnel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim app Dim meeting Set app = CreateObject("Outlook.Application") Set meeting = app.CreateItem(1)   Dim dateMeeting dateMeeting = Date   With meeting .MeetingStatus = 1 .Subject = "Sujet" .Location = "Salle XXX" .Start = dateMeeting .Duration = 30 .Body = "Bonjour, " & vbNewLine & vbNewLine & "BlaBlaBla" .Recipients.Add ("mail@mail.com") .Display '.Send End With   Set app = Nothing Set meeting = Nothing

---

Il me reste plus qu'à peaufiner tout ça !

Merci pour les pistes (une fois qu'on a les bon mots, google fait le reste) !

Salut,

Sinon sans Macro il y a les "ACTIONS RAPIDES" (avec OL2010 notamment)

http://office.microsoft.com/fr-fr/ou...010370689.aspx

je vais regarder comment les exporter ou les créer en macro

A priori la seule méthode pour créer les Actions rapides par programmation c'est avec Redemption

http://www.dimastr.com/redemption/rdoquicksteps.htm