Discussion :

[pc75]

Bonjour,

J'ai un programme VB6 qui génère sans problème des listes de distribution pour outlook.

Code :

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

1
2
3
 
myRecipients.Add "prenom1.nom1@societe.com"
myRecipients.Add "prenom2.nom2@societe.com"

Quand on ouvre cette liste sous outlook, on trouve deux colonnes "Nom" et "Adresse de messagerie".

Je souhaiterai savoir s'il est possible, avec la méthode Add, de préciser une valeur différente pour ces deux colonnes.
La liste ressemblerait à ça :

Nom................Adresse de messagerie
Société A.........prenom1.nom1@societe.com
Société B.........prenom2.nom2@societe.com

Merci.

[pc75]

C'est bon, j'ai réussi autrement.

[Overcrash]

Tu as réussi comment ? ça peux en aider d'autre

[pc75]

En utilisant un conteneur contact

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
 
Dim myOlApp As New outlook.Application
Dim myDistList As outlook.DistListItem
Dim myRecipients As outlook.Recipients
Set myRecipients = myTempItem.Recipients
Dim objContact As Outlook.ContactItem
 
Set myDistList = myOlApp.CreateItem(olDistributionListItem)
myDistList.DLName = "Ma liste au " & Date
For i = 1 to 10
Set objContact = myOlApp.CreateItem(olContactItem)
objContact.FullName = "<Société " & i & "> "
objContact.Email1Address = "prenom" & i & ".nom" & i & "@societe.com"
objContact.Save
myRecipients.Add objContact
myDistList.AddMembers myRecipients
myDistList.Save
objContact.Delete
Set objContact = Nothing
Next i