Créer une liste de diffusion

Le
DoMi
Bonjour,

Je cherchais comment créer une liste de diffusion dans Outlook d'après
des données dans une colonne d'Excel.
J'ai trouvé cette réponse de Daniel.C :

Sub CreerListeDiffusion()
'Création de liste de diffusion
Dim OutlookApp As New Outlook.Application
Dim Liste As Outlook.DistListItem
Dim Desti As Outlook.Recipient
Set Liste = OutlookApp.CreateItem(olDistributionListItem)
Liste.DLName = "NomDeLaListe"
For Each c In Range("A1:A3")
Set Desti = OutlookApp.Session.CreateRecipient(c.Value)
Desti.Resolve
Liste.AddMember Desti
Next c
Liste.Save
End Sub

Mais si la liste "NomDeLaListe" existe déjà, il en sera créé une
nouvelle portant le même nom. Comment peut-on vérifier l'existence
d'une liste portant ce com, et la supprimer ?

Merci !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #6663741


Mais si la liste "NomDeLaListe" existe déjà, il en sera créé une
nouvelle portant le même nom. Comment peut-on vérifier l'existence
d'une liste portant ce com, et la supprimer ?


En effet, c'est assez surprenant.
Ajoutez ce code au début de votre procédure.
Dim Ns As NameSpace
Dim Carnet As MAPIFolder
Set Ns = OutlookApp.GetNamespace("MAPI")
Set Carnet = Ns.GetDefaultFolder(olFolderContacts)
Carnet.Items("NomDeLaListe").Delete
Si la liste n'existe pas ça ne provoque même pas d'erreur.

--
A+

DoMi
Le #6665151
Super !

Merci !
DoMi

On 19 mai, 22:36, Geo

Mais si la liste "NomDeLaListe" existe déjà, il en sera créé une
nouvelle portant le même nom. Comment peut-on vérifier l'existence
d'une liste portant ce com, et la supprimer ?


En effet, c'est assez surprenant.
Ajoutez ce code au début de votre procédure.
     Dim Ns As NameSpace
     Dim Carnet As MAPIFolder
     Set Ns = OutlookApp.GetNamespace("MAPI")
     Set Carnet = Ns.GetDefaultFolder(olFolderContacts)
     Carnet.Items("NomDeLaListe").Delete
Si la liste n'existe pas ça ne provoque même pas d'erreur.

--
A+



Publicité
Poster une réponse
Anonyme