[VBA Outlook] Macro qui accepte plusieurs "Demande de réunion" et valide la réponse

**Dailyplanet** · 12/06/2008, 11h21

Bonjour,

Existe-t-il une macro (outlook 2003) qui ferai l'action suivante:

- Lorsque je reçois plusieurs "Demande de réunion" en même temps, la macro accepte la "Demande de réunion" et n'envoie pas de réponse au destinataire. Le tout en cliquant simplement sur un bouton. Ca serait vraiment cool

Dailyplanet

**Oliv-** · 13/06/2008, 09h12

Salut,
une macro peut être mais il existe un paramétre dans outils/options/preferences/options du calendrier/planification des ressources

qui s'appelle "accepter automatiquement les demandes de réunion"

**Dailyplanet** · 13/06/2008, 14h08

Merci pour ta réponse.

Cette solution est parfaite pour accepter toutes les demandes de réunion sans distinction de compte.

Mais je reçois des demandes de réunion de plusieurs comptes et j'aimerai accepter les demandes venant d'un seul compte qu'on a appelé: Compte Calentrier TIC-TIN.
Les autres demandes doivent toujours être traitées manuellement.

J'espère que c'est possible via une macro

Dailyplanet

**Oliv-** · 13/06/2008, 14h23

Créé une nouvelle règle :

après l'arrivée, qui est une mise à jour ou une invitation à une réunion, executer un script.

le script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub STOPaccepte_reunion(myMtgReq As Outlook.MeetingItem)
'by oliv' 2008
    If TypeName(myMtgReq) <> "Nothing" Then
    Dim myolApp As Outlook.Application
    Set myolApp = Outlook.Application
 
    Dim myAppt As Outlook.AppointmentItem
    Dim myMtg As Outlook.MeetingItem
 
        Set myAppt = myMtgReq.GetAssociatedAppointment(True)
        'Set myMtg = myAppt.Respond(olResponseAccepted, True)
        'myMtg.Send
    End If
End Sub

A tester et modifier selon tes besoins

**Dailyplanet** · 13/06/2008, 15h32

Excuse mon ignorance, mais j'ai une excuse...je suis débutant

Comment puis-je exécuter ce script; le coller dans ThisOutlookSession, dans Module... ?
J'ai essayé... et cherché dans les FAQ Outlook mais en vain (et pourtant l'info doit se trouver à quelque part

)

Dailyplanet

**Oliv-** · 13/06/2008, 16h37

Pas de problème !

le script s'execute donc quand la règle correspond.

sinon on peut le tester à partir d'un élement ouvert.

Code :

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

1
2
3
4
5
Sub test_script()
Dim OITEM 
Set OITEM = ActiveInspector.CurrentItem
STOPaccepte_reunion OITEM
End Sub

**Dailyplanet** · 19/06/2008, 10h55

Merci Oliv- pour ta réponse, mais je n'arrive pas à exécuter le script.

je tourne en rond

Pourrais-tu stp m'expliquer pas-à-pas: comme à un débutant (que je suis)

Dailyplanet

**Oliv-** · 19/06/2008, 17h04

Salut, c'est quoi que tu n'arrives pas à faire ?

tu colles les 2 macros dans un module.
tu crées la règle.

si une demande de réu,ion arrive toute seule elle va déclencher STOPaccepte_reunion.

Si tu veux tester avant, tu ouvres une demande de réunion (double clic dessus)

et tu lances test_script

**Dailyplanet** · 20/06/2008, 09h05

Salut Oliv-,

Pour la macro, c'est tout bon. mais pour la règle, je vois pas où je dois la créer

J'ai regardé dans Outils, Règles et alertes...mais j'ai des doutes.

Dailyplanet

**Oliv-** · 20/06/2008, 09h32

SAlut,
oui c'est bien là.

**Dailyplanet** · 20/06/2008, 11h12

Un grand merci Oliv-

c'est tout bon !

J'ai un peu cherché car les règles je les utilise que pour les mail...je savais pas qu'on pouvait aussi les utiliser pour les script

Dailyplanet

**Dailyplanet** · 23/06/2008, 08h33

Salut Oliv-
Encore une petite chose.
Quand la demande de réunion est passée à travers la règle, j'ai un message de Microsoft Office Outlook: Un programme tente d'envoyer automatiquement du courrier électronique en votre nom. L'autorisez-vous à poursuivre ? Oui, Non, Aide.

Y a-t-il un moyen de ne pas voir ce message ou de la valider automatiquement ?

Dailyplanet

**Dolphy35** · 23/06/2008, 09h21

Salut,

tu as des applis qui permettent de outre passer les demandes de confirmation d'Outlook :

http://www.mapilab.com/outlook/security/

ClickYes

Dolphy

**Oliv-** · 23/06/2008, 10h12

Salut à tous,

Dailyplanet qu'as tu modifié dans le code ? en principe il ne devrait pas y avoir de message de sécurité !

**Dailyplanet** · 23/06/2008, 10h49

Voici le code que j'ai collé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub STOPaccepte_reunion(myMtgReq As Outlook.MeetingItem)
'by oliv' 2008
    If TypeName(myMtgReq) <> "Nothing" Then
    Dim myolApp As Outlook.Application
    Set myolApp = Outlook.Application
 
    Dim myAppt As Outlook.AppointmentItem
    Dim myMtg As Outlook.MeetingItem
 
        Set myAppt = myMtgReq.GetAssociatedAppointment(True)
        Set myMtg = myAppt.Respond(olResponseAccepted, True)
        'myMtg.Send
    End If
End Sub

et le message de sécurité Outlook:
Un programme tente d'envoyer un message à l'aide de la commande Item.Send.....

Dailyplanet

**Oliv-** · 23/06/2008, 11h04

Mea culpa, il y avait bien un message.

Essaye avec ce 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
Sub STOPaccepte_reunion(myMtgReq As Outlook.MeetingItem)
Dim StrID, olNS
StrID = myMtgReq.EntryID
Set olNS = Application.GetNamespace("MAPI")
Dim LaDemandeDeReunion
Set LaDemandeDeReunion = olNS.GetItemFromID(StrID)
 
MsgBox myMtgReq.Subject
    If TypeName(myMtgReq) <> "Nothing" Then
 
    Dim myAppt As Outlook.AppointmentItem
    Dim myMtg As Outlook.MeetingItem
 
        Set myAppt = LaDemandeDeReunion.GetAssociatedAppointment(True)
        Set myMtg = myAppt.Respond(olResponseAccepted, True)
        myMtg.Send
    End If
End Sub

**Dailyplanet** · 23/06/2008, 11h21

Nickel Oliv-

Il y a un message d'avertissement qui demande de cliquer sur "OK".
Et si je n'ai pas besoin de ce message, comment puis-je le supprimer ?

J'ai plusieurs "Boîte aux lettres" dont une qui s'appelle "Boîte aux lettres - Compte Calendrier TIC-TIN".
Je désire que la macro accept uniquement les demandes de réunion qui proviennent de la "Boîte aux lettres - Compte Calendrier TIC-TIN".
Est-ce possible ?

Dailyplanet

**Oliv-** · 25/06/2008, 09h39

salut,

Envoyé par Dailyplanet

Nickel Oliv-

Il y a un message d'avertissement qui demande de cliquer sur "OK".
Et si je n'ai pas besoin de ce message, comment puis-je le supprimer ?

en mettant un guillemet simple devant msgbox

Envoyé par Dailyplanet

Je désire que la macro accept uniquement les demandes de réunion qui proviennent de la "Boîte aux lettres - Compte Calendrier TIC-TIN".
Est-ce possible ?
Dailyplanet

Dans ta règle coche à l'étape 1 "dans le compte spécifié" en choisissant ce dernier.

Est ce que cela marche ?

**Dailyplanet** · 25/06/2008, 10h59

Salut Oliv'

Pour le message, c'est OK avec le guillemet.

Par contre pour choisir le compte, je n'ai pas le choix car il ne me propose que "Exchange" sans distinction des comptes.

Alors j'ai essagé avec un filtre sur la "catégorie" ou dans "l'objet" du message.
Même en filtrant dans l'étape 1, toutes les demandes de réunion passent directement dans mon calendrier. Impossible à laisser passer celle uniquement pour le "Compte Calendrier TIC-TIN" et retenir les autres.

As-tu une autre astuce ?

Dailyplanet