Discussion :

[pepsister]

Bonjour,

j'utilise outlook 2007, ma première question est comment obtenir l'onglet développeur?
J'ai regardé sur différents forum mais je n'ai pas le bouton office avec options, de même que dans l'onglet fichier je n'ai pas de bouton option. Du coup aucun moyen de l'activer.
J'ai option dans l'onglet outils mais là je n'ai rien trouvé pour rajouter l'onglet développeur dans le ruban.

Sinon j'ai réussi à ouvrir visual basic avec outil, macro, visual basic, j'ai écris une macro mais impossible de la lancer. La compilation dans visual basic ne fait rien. Quand je vais dans outil, macro, macros, aucune est détecté.

Je dois surement activé quelque chose mais là je ne vois pas quoi.

Mon but est d'activé cette macro lorsque je reçois un certain type de mail (en fonction de l'objet et l'expéditeur). J'ai ajouté cette règle mais évidemment elle ne se lance jamais puisque outlook ne la voit pas en macro.

C'est surement bete comme sujet mais je suis vraiment bloquée et je ne vois pas comment faire.

Merci de votre aide,

[Oliv-]

bonjour,
http://office.microsoft.com/fr-fr/ou...010173052.aspx

Pour ta macro le mieux c'est de mettre le code ici

[pepsister]

Alors l'onglet développeur impossible de l'afficher. J'ai tout fais il ne s'affiche pas dans le ruban. Tanpis tant que j'y ai accès par outils > Macros > Visual Basic.

Parlons maintenant du code:
J'ai donc définis une règle dans outils>Règles et Alertes, voici sa description:
Appliquer cette règle après l'arrivée du message
de pepsister@gmail.com
et contenant Test dans l'objet
et sur cet ordinateur uniquement
exécuter Projet 1.macro1
et arrêter de traiter plus de règles

Ensuite dans Projet 1 de Visual Basic

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
Sub macro1(strID As Outlook.MailItem)
 
Dim olNS As Outlook.NameSpace
Dim MyMail As Outlook.MailItem
Dim Repertoire As String
 
Set olNS = Application.GetNamespace("MAPI")
Set MyMail = olNS.GetItemFromID(strID.EntryID)
 
If MyMail.Attachments.Count > 0 Then
'on crée le répertoire où mettre les fichiers joints, qui doit déjà exister
 Repertoire = "C:\projets\test"
'on traite les pj
   Dim PJ, typeatt
   For Each PJ In MyMail.Attachments
   PJ.SaveAsFile Repertoire & PJ.FileName
   Next PJ
'drapeau vert
 MyMail.FlagIcon = olGreenFlagIcon
'Marque lu
 MyMail.UnRead = False
 MyMail.Save
'on déplace le mail vers un sous dossier outlook
 Dim myDestFolder As Outlook.MAPIFolder
 Set myDestFolder = MyMail.Parent.Folders("test")
 MyMail.Move myDestFolder
End If
Set MyMail = Nothing
Set olNS = Nothing
Fin:
End Sub

Mais je ne sais pas comment tester ma macro. Lorsque j'envoie un mail de l'adresse pepsister@gmail.com avec l'objet 'test' je n'ai pas l'impression que la règle se déclenche.

[pepsister]

Re,

Même en créant une règle simple sur exécuter un script lors de la réception d'un mail, le script affichant juste une popup, même ca, ca ne marche pas.
La règle ne lance pas le script. Quel est le problème? Merci d'avance à celui qui me répondra je ne sais plus quoi faire.

[Oliv-]

Bonjour,
Voici un script simple

Code :

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

1
2
3
4
5
Sub RunAScriptRuleRoutineMsgbox(myMail As Outlook.MailItem)
 
    MsgBox myMail.subject
 
End Sub

Avec ton pb d'affichage de l'onglet développeur je me demande est-ce que tes macro focntionnent ?

peux tu lancer cela avec F5 (curseur entre les balises SUB)

Code :

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

1
2
3
Sub testMAcro
msgbox "hello world"
End sub