[Outlook 03] liste dynamique de contacts

[mathel]

Bonjour,

Je voudrais crééer une liste de contacts Outlook dynamique. Je m'explique dans le cadre de mon activité je dois régulièrement faire des mails collectifs à une partie du projet ayant un compte Outlook limité au "réseau" du projet.
Malheureusement le nom et le nombre d'utilisateurs varient régulièrement et à peine ma liste de diffusion créée, elle devient périmée.

Existe-t-il un moyen de crééer une liste dynamique en triant sur un flag (non société) par exemple ou des adresses identiques abcd@socite.yz

Merci d'avance.

[Dolphy35]

Salut,

je peux te donner une solution mais tu devra passer passer par du code VBA.

Il te faut créer une catégorie commune, du style Liste_Diff, ensuite à chaque nouveau contact tu lui attribue cette catégorie, lors de l'envoi du mail tu appel la fonction suivante

principe : Fonction qui te renvoi toutes les adresses mail d'une catégorie passée en paramètre :

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
26
27
28
29
30
31
32
33
34
Function ParcourirContact(categorie As String) As String
 
'---------------------------------------------------------------------------------------
' Procedure : ParcourirContact
' DateTime  : 08/01/2008 11:00
' Author    : Dolphy35 (http://dolphy35.developpez.com/)
' Purpose   : Permet de retourner toutes les @ d'une catégorie passé en paramètre
'---------------------------------------------------------------------------------------
'
    'Déclarations des variables
    Dim oContact As ContactItem
    Dim oDossier As Folder
    Dim NSpace As NameSpace
    Dim olApp As Outlook.Application
 
    'Instance
    Set olApp = Outlook.Application
    Set NSpace = olApp.GetNamespace("MAPI")
    Set oDossier = NSpace.GetDefaultFolder(olFolderContacts)
 
    'Parcour le dossier contacts, avec test catégorie passée en paramètre et renvoi adresse mail 1
    For Each oContact In oDossier.Items
        If ParcourirContact <> "" Then ParcourirContact = ParcourirContact & ";"
        If oContact.Categories = categorie Then
            ParcourirContact = ParcourirContact & oContact.Email1Address
        End If
    Next oContact
 
    'Vides des instances
    Set olApp = Nothing
    Set NSpace = Nothing
    Set oDossier = Nothing
 
End Function

Dolphy

[mathel]

Merci, n'étant pas expert en VBA, je vais essayer de mettre en oeuvre ta solution et voir si je m'en sors .