Discussion :

[Domino40]

Bonjour à tous

Je ne savais pas que l'on pouvait faire des macros dans Outlook 2007.

Aussi, je tente un petite approche, non sans difficultés.

Je n'arrive pas a trouver l'enregistreur de macro.

Je ne trouve pas non plus l'onglet développeur.

Si qqun peut m'aider

Cordialement,
Dominique

[Oliv-]

Bonjour,
Il n'y a pas d'enregistreur. Consulte la faq


Pour l'onglet développeur il faut cocher la case "Développeur" dans fichier/options/personnaliser le ruban
(pour OL2010)

voici les éléments de base

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
32
33
Sub BaBa()
Dim App As Outlook.Application
Dim INSP As Outlook.Inspector
Dim Expl As Outlook.Explorer
Dim OITEM As Object
Dim vntProp As Variant
 
    Set App = Outlook.Application 'désigne Outlook
    Set Expl = App.ActiveExplorer 'désigne l'exploreur actif càd la fenêtre des dossiers.
    Set INSP = ActiveInspector 'désigne la fenêtre de l'élement actif
    Set OITEM = ActiveInspector.CurrentItem 'désigne l'élément actif càd le mail le contact ou rdv...
 
    'Pour se déplacer dans les DOSSIERS
    Dim NS As NameSpace
    Set NS = Application.GetNamespace("MAPI")
    Dim Dossier As MAPIFolder
    Set Dossier = NS.Folders("Dossiers personnels")
 
 
    ' les destinataires du mail
    Dim Destinataire
    For Each Destinataire In OITEM.Recipients
        MsgBox Destinataire
    Next Destinataire
 
   'les pièces jointes d'un Email
    Dim pj
    For Each pj In OITEM.Attachments
        MsgBox pj
    Next pj
 
 
End Sub