comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc
plutot que de le faire une par une(quelle perte de temps);
qu elles apparaissent sous forme de liste d adresses(karzo@free.fr)ou
de noms d adresse(karzo)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe [MS]
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les
membres.
Phil.
"karzo" <karzo@free.fr> wrote in message
news:71e4385f.0411020806.55277d72@posting.google.com...
comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc
plutot que de le faire une par une(quelle perte de temps);
qu elles apparaissent sous forme de liste d adresses(karzo@free.fr)ou
de noms d adresse(karzo)
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
karzo
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
négatif
le cheminement indiqué de n'existe pas, une fois mon message reçu,
affiché
d'autre part, après de nombreux essais, rien ne m'a permis ici de
récuperer, les adresses figurant dans les rubrique A ou C.C.dans une
de nouvelle "liste de distribution" dans les menus du "courrier" de
outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les
membres.
Phil.
"karzo" <karzo@free.fr> wrote in message
news:71e4385f.0411020806.55277d72@posting.google.com...
comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc
plutot que de le faire une par une(quelle perte de temps);
qu elles apparaissent sous forme de liste d adresses(karzo@free.fr)ou
de noms d adresse(karzo)
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
Isabelle Prawitz
Bonjour ! A priori, le seul moyen dans Outlook est de passer par une macro ! Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans Outlook. Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais retravailler dessus pour la mettre à dispo dans le forum. Si tu peux attendre jusque là ... ;-)
A+ Isa
"karzo" a écrit dans le message de news:
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les
membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
Bonjour !
A priori, le seul moyen dans Outlook est de passer par une macro !
Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans
Outlook.
Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais
retravailler dessus pour la mettre à dispo dans le forum.
Si tu peux attendre jusque là ... ;-)
A+
Isa
"karzo" <karzo@free.fr> a écrit dans le message de
news:71e4385f.0411251236.726781b@posting.google.com...
négatif
le cheminement indiqué de n'existe pas, une fois mon message reçu,
affiché
d'autre part, après de nombreux essais, rien ne m'a permis ici de
récuperer, les adresses figurant dans les rubrique A ou C.C.dans une
de nouvelle "liste de distribution" dans les menus du "courrier" de
outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur
"Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter
les
membres.
Phil.
"karzo" <karzo@free.fr> wrote in message
news:71e4385f.0411020806.55277d72@posting.google.com...
comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc
plutot que de le faire une par une(quelle perte de temps);
qu elles apparaissent sous forme de liste d adresses(karzo@free.fr)ou
de noms d adresse(karzo)
Bonjour ! A priori, le seul moyen dans Outlook est de passer par une macro ! Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans Outlook. Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais retravailler dessus pour la mettre à dispo dans le forum. Si tu peux attendre jusque là ... ;-)
A+ Isa
"karzo" a écrit dans le message de news:
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les
membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
karzo
merci Isabelle
pour etre precis j'aimerai les recupérer, pour les mettre dans un dossier des "contact" d outlook, voire une liste de diffusion
je trouve tout a fait etonnant qu une chose aussi utile ne puisse etre fait avec outlook
a +
Isabelle Prawitz" wrote in message news:<#...
Bonjour ! A priori, le seul moyen dans Outlook est de passer par une macro ! Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans Outlook. Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais retravailler dessus pour la mettre à dispo dans le forum. Si tu peux attendre jusque là ... ;-)
A+ Isa
"karzo" a écrit dans le message de news:
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les
membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
merci Isabelle
pour etre precis j'aimerai les recupérer, pour les mettre dans un
dossier des "contact" d outlook, voire une liste de diffusion
je trouve tout a fait etonnant qu une chose aussi utile ne puisse etre
fait avec outlook
a +
Isabelle Prawitz" <iprawitz@wanadoo.fr> wrote in message news:<#zi5ST50EHA.2016@TK2MSFTNGP15.phx.gbl>...
Bonjour !
A priori, le seul moyen dans Outlook est de passer par une macro !
Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans
Outlook.
Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais
retravailler dessus pour la mettre à dispo dans le forum.
Si tu peux attendre jusque là ... ;-)
A+
Isa
"karzo" <karzo@free.fr> a écrit dans le message de
news:71e4385f.0411251236.726781b@posting.google.com...
négatif
le cheminement indiqué de n'existe pas, une fois mon message reçu,
affiché
d'autre part, après de nombreux essais, rien ne m'a permis ici de
récuperer, les adresses figurant dans les rubrique A ou C.C.dans une
de nouvelle "liste de distribution" dans les menus du "courrier" de
outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur
"Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter
les
membres.
Phil.
"karzo" <karzo@free.fr> wrote in message
news:71e4385f.0411020806.55277d72@posting.google.com...
comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc
plutot que de le faire une par une(quelle perte de temps);
qu elles apparaissent sous forme de liste d adresses(karzo@free.fr)ou
de noms d adresse(karzo)
pour etre precis j'aimerai les recupérer, pour les mettre dans un dossier des "contact" d outlook, voire une liste de diffusion
je trouve tout a fait etonnant qu une chose aussi utile ne puisse etre fait avec outlook
a +
Isabelle Prawitz" wrote in message news:<#...
Bonjour ! A priori, le seul moyen dans Outlook est de passer par une macro ! Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans Outlook. Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais retravailler dessus pour la mettre à dispo dans le forum. Si tu peux attendre jusque là ... ;-)
A+ Isa
"karzo" a écrit dans le message de news:
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter les
membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou de noms d adresse(karzo)
merci
Isabelle Prawitz
Bonjour ! Voici une macro qui récupère les destinataires A, CC et CCi(si on est l'expéditeur, bien sûr !) de messages sélectionnés, et qui renseigne la Liste de distribution de son choix (si elle existe déjà bien sûr !)
Il suffit de la coller dans le code de ThisOutlookSession, de supprimer les retours à la ligne générés par Outlook Express, enregistrer, puis revenir sous environnement Outlook classique. Ensuite, sélectionner au moins un message et lancer la macro par Outils/Macro/Macros... ThisOutlookSession.AjoutDansDistListe
' Macro qui lit les destinataires de messages ' pour les mettre dans une liste de distribution
Sub AjoutDansDistListe() Dim MonDoss As MAPIFolder Dim MaListe As DistListItem Dim MonEsp As NameSpace Dim LeNomListe As String Dim leNumliste As Integer Dim intRep As Integer Dim monExp As Explorer Dim laSel As Selection Dim i As Integer, intPos As Integer Dim LeRecip As Outlook.Recipient Dim leMess As MailItem Dim DéjàDansListe As Boolean
Set monExp = ActiveExplorer Set MonEsp = GetNamespace("MAPI") Set laSel = monExp.Selection
If laSel.Count = 0 Then MsgBox "Pas d'élément sélectionné !" Exit Sub End If MsgBox "Sélectionnez le dossier contenant la liste" Set MonDoss = MonEsp.PickFolder If MonDoss Is Nothing Then MsgBox "Pas de dossier sélectionné" Exit Sub ElseIf MonDoss.DefaultItemType <> olContactItem Then MsgBox "Pas un dossier de type Contacts !" Exit Sub End If Dim strListe As String Dim j As Integer ReDim tabListes(1 To MonDoss.Items.Count) As String For i = 1 To MonDoss.Items.Count ' récup des listes de distrib If TypeName(MonDoss.Items(i)) = "DistListItem" Then j = j + 1 strListe = strListe & vbCrLf & j & " - " & MonDoss.Items(i).DLName tabListes(j) = MonDoss.Items(i).DLName End If Next If strListe <> "" Then ReDim Preserve tabListes(1 To j) leNumliste = InputBox("Saisissez un des n° de liste ci-dessous :" & strListe) 'choix de la liste If (leNumliste >= LBound(tabListes)) And (leNumliste < UBound(tabListes)) Then LeNomListe = tabListes(leNumliste) If LeNomListe <> "" Then Set MaListe = MonDoss.Items(LeNomListe) ' travail sur la liste choisie ' MaListe.Display For i = 1 To laSel.Count 'parcours des éléments de la sélection If TypeName(laSel.Item(i)) = "MailItem" Then ' filtre sur les mailItem Set leMess = laSel.Item(i) For Each LeRecip In leMess.Recipients DéjàDansListe = False If LeRecip.Type = 1 Or LeRecip.Type = 2 Or LeRecip.Type = 3 Then For intPos = 1 To MaListe.MemberCount If LCase(LeRecip.Address) LCase(MaListe.GetMember(intPos).Address) Then 'vérifie si déjà dans liste DéjàDansListe = True Exit For End If Next If Not DéjàDansListe Then MaListe.AddMember LeRecip 'ajout dans la liste de distrib MaListe.Save End If End If Next End If Next MsgBox "Liste mise à jour" End If Else MsgBox "Vous n'avez pas saisi un n° valide" End If Else MsgBox "Pas de Liste de distrib dans ce dossier" Exit Sub End If End Sub
' Fin de AjoutDansDistListe
A+ Isa
"karzo" a écrit dans le message de news:
merci Isabelle
pour etre precis j'aimerai les recupérer, pour les mettre dans un dossier des "contact" d outlook, voire une liste de diffusion
je trouve tout a fait etonnant qu une chose aussi utile ne puisse etre fait avec outlook
a +
Isabelle Prawitz" wrote in message news:<#...
Bonjour ! A priori, le seul moyen dans Outlook est de passer par une macro ! Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans Outlook. Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais
retravailler dessus pour la mettre à dispo dans le forum. Si tu peux attendre jusque là ... ;-)
A+ Isa
"karzo" a écrit dans le message de news:
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter
les
membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou
de noms d adresse(karzo)
merci
Bonjour !
Voici une macro qui récupère les destinataires A, CC et CCi(si on est
l'expéditeur, bien sûr !) de messages sélectionnés, et qui renseigne la
Liste de distribution de son choix (si elle existe déjà bien sûr !)
Il suffit de la coller dans le code de ThisOutlookSession, de supprimer les
retours à la ligne générés par Outlook Express, enregistrer, puis revenir
sous environnement Outlook classique.
Ensuite, sélectionner au moins un message et lancer la macro par
Outils/Macro/Macros... ThisOutlookSession.AjoutDansDistListe
' Macro qui lit les destinataires de messages
' pour les mettre dans une liste de distribution
Sub AjoutDansDistListe()
Dim MonDoss As MAPIFolder
Dim MaListe As DistListItem
Dim MonEsp As NameSpace
Dim LeNomListe As String
Dim leNumliste As Integer
Dim intRep As Integer
Dim monExp As Explorer
Dim laSel As Selection
Dim i As Integer, intPos As Integer
Dim LeRecip As Outlook.Recipient
Dim leMess As MailItem
Dim DéjàDansListe As Boolean
Set monExp = ActiveExplorer
Set MonEsp = GetNamespace("MAPI")
Set laSel = monExp.Selection
If laSel.Count = 0 Then
MsgBox "Pas d'élément sélectionné !"
Exit Sub
End If
MsgBox "Sélectionnez le dossier contenant la liste"
Set MonDoss = MonEsp.PickFolder
If MonDoss Is Nothing Then
MsgBox "Pas de dossier sélectionné"
Exit Sub
ElseIf MonDoss.DefaultItemType <> olContactItem Then
MsgBox "Pas un dossier de type Contacts !"
Exit Sub
End If
Dim strListe As String
Dim j As Integer
ReDim tabListes(1 To MonDoss.Items.Count) As String
For i = 1 To MonDoss.Items.Count ' récup des listes de distrib
If TypeName(MonDoss.Items(i)) = "DistListItem" Then
j = j + 1
strListe = strListe & vbCrLf & j & " - " & MonDoss.Items(i).DLName
tabListes(j) = MonDoss.Items(i).DLName
End If
Next
If strListe <> "" Then
ReDim Preserve tabListes(1 To j)
leNumliste = InputBox("Saisissez un des n° de liste ci-dessous :" &
strListe) 'choix de la liste
If (leNumliste >= LBound(tabListes)) And (leNumliste < UBound(tabListes)) Then
LeNomListe = tabListes(leNumliste)
If LeNomListe <> "" Then
Set MaListe = MonDoss.Items(LeNomListe) ' travail sur la liste
choisie
' MaListe.Display
For i = 1 To laSel.Count 'parcours des éléments de la sélection
If TypeName(laSel.Item(i)) = "MailItem" Then ' filtre sur les
mailItem
Set leMess = laSel.Item(i)
For Each LeRecip In leMess.Recipients
DéjàDansListe = False
If LeRecip.Type = 1 Or LeRecip.Type = 2 Or LeRecip.Type = 3
Then
For intPos = 1 To MaListe.MemberCount
If LCase(LeRecip.Address) LCase(MaListe.GetMember(intPos).Address) Then 'vérifie si déjà dans liste
DéjàDansListe = True
Exit For
End If
Next
If Not DéjàDansListe Then
MaListe.AddMember LeRecip 'ajout dans la liste de distrib
MaListe.Save
End If
End If
Next
End If
Next
MsgBox "Liste mise à jour"
End If
Else
MsgBox "Vous n'avez pas saisi un n° valide"
End If
Else
MsgBox "Pas de Liste de distrib dans ce dossier"
Exit Sub
End If
End Sub
' Fin de AjoutDansDistListe
A+
Isa
"karzo" <karzo@free.fr> a écrit dans le message de
news:71e4385f.0411280830.59a17bb4@posting.google.com...
merci Isabelle
pour etre precis j'aimerai les recupérer, pour les mettre dans un
dossier des "contact" d outlook, voire une liste de diffusion
je trouve tout a fait etonnant qu une chose aussi utile ne puisse etre
fait avec outlook
a +
Isabelle Prawitz" <iprawitz@wanadoo.fr> wrote in message
news:<#zi5ST50EHA.2016@TK2MSFTNGP15.phx.gbl>...
Bonjour !
A priori, le seul moyen dans Outlook est de passer par une macro !
Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans
Outlook.
Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je
vais
retravailler dessus pour la mettre à dispo dans le forum.
Si tu peux attendre jusque là ... ;-)
A+
Isa
"karzo" <karzo@free.fr> a écrit dans le message de
news:71e4385f.0411251236.726781b@posting.google.com...
négatif
le cheminement indiqué de n'existe pas, une fois mon message reçu,
affiché
d'autre part, après de nombreux essais, rien ne m'a permis ici de
récuperer, les adresses figurant dans les rubrique A ou C.C.dans une
de nouvelle "liste de distribution" dans les menus du "courrier" de
outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur
"Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et
ajouter
les
membres.
Phil.
"karzo" <karzo@free.fr> wrote in message
news:71e4385f.0411020806.55277d72@posting.google.com...
comment recupere t on en une seule fois un liste d expediteurs
dans c
ou cc
plutot que de le faire une par une(quelle perte de temps);
qu elles apparaissent sous forme de liste d
adresses(karzo@free.fr)ou
Bonjour ! Voici une macro qui récupère les destinataires A, CC et CCi(si on est l'expéditeur, bien sûr !) de messages sélectionnés, et qui renseigne la Liste de distribution de son choix (si elle existe déjà bien sûr !)
Il suffit de la coller dans le code de ThisOutlookSession, de supprimer les retours à la ligne générés par Outlook Express, enregistrer, puis revenir sous environnement Outlook classique. Ensuite, sélectionner au moins un message et lancer la macro par Outils/Macro/Macros... ThisOutlookSession.AjoutDansDistListe
' Macro qui lit les destinataires de messages ' pour les mettre dans une liste de distribution
Sub AjoutDansDistListe() Dim MonDoss As MAPIFolder Dim MaListe As DistListItem Dim MonEsp As NameSpace Dim LeNomListe As String Dim leNumliste As Integer Dim intRep As Integer Dim monExp As Explorer Dim laSel As Selection Dim i As Integer, intPos As Integer Dim LeRecip As Outlook.Recipient Dim leMess As MailItem Dim DéjàDansListe As Boolean
Set monExp = ActiveExplorer Set MonEsp = GetNamespace("MAPI") Set laSel = monExp.Selection
If laSel.Count = 0 Then MsgBox "Pas d'élément sélectionné !" Exit Sub End If MsgBox "Sélectionnez le dossier contenant la liste" Set MonDoss = MonEsp.PickFolder If MonDoss Is Nothing Then MsgBox "Pas de dossier sélectionné" Exit Sub ElseIf MonDoss.DefaultItemType <> olContactItem Then MsgBox "Pas un dossier de type Contacts !" Exit Sub End If Dim strListe As String Dim j As Integer ReDim tabListes(1 To MonDoss.Items.Count) As String For i = 1 To MonDoss.Items.Count ' récup des listes de distrib If TypeName(MonDoss.Items(i)) = "DistListItem" Then j = j + 1 strListe = strListe & vbCrLf & j & " - " & MonDoss.Items(i).DLName tabListes(j) = MonDoss.Items(i).DLName End If Next If strListe <> "" Then ReDim Preserve tabListes(1 To j) leNumliste = InputBox("Saisissez un des n° de liste ci-dessous :" & strListe) 'choix de la liste If (leNumliste >= LBound(tabListes)) And (leNumliste < UBound(tabListes)) Then LeNomListe = tabListes(leNumliste) If LeNomListe <> "" Then Set MaListe = MonDoss.Items(LeNomListe) ' travail sur la liste choisie ' MaListe.Display For i = 1 To laSel.Count 'parcours des éléments de la sélection If TypeName(laSel.Item(i)) = "MailItem" Then ' filtre sur les mailItem Set leMess = laSel.Item(i) For Each LeRecip In leMess.Recipients DéjàDansListe = False If LeRecip.Type = 1 Or LeRecip.Type = 2 Or LeRecip.Type = 3 Then For intPos = 1 To MaListe.MemberCount If LCase(LeRecip.Address) LCase(MaListe.GetMember(intPos).Address) Then 'vérifie si déjà dans liste DéjàDansListe = True Exit For End If Next If Not DéjàDansListe Then MaListe.AddMember LeRecip 'ajout dans la liste de distrib MaListe.Save End If End If Next End If Next MsgBox "Liste mise à jour" End If Else MsgBox "Vous n'avez pas saisi un n° valide" End If Else MsgBox "Pas de Liste de distrib dans ce dossier" Exit Sub End If End Sub
' Fin de AjoutDansDistListe
A+ Isa
"karzo" a écrit dans le message de news:
merci Isabelle
pour etre precis j'aimerai les recupérer, pour les mettre dans un dossier des "contact" d outlook, voire une liste de diffusion
je trouve tout a fait etonnant qu une chose aussi utile ne puisse etre fait avec outlook
a +
Isabelle Prawitz" wrote in message news:<#...
Bonjour ! A priori, le seul moyen dans Outlook est de passer par une macro ! Je l'ai déjà fait mais à l'intérieur d'une mini-appli Anti-spam dans Outlook. Je n'ai pas trop le temps cette semaine, mais la semaine prochaine je vais
retravailler dessus pour la mettre à dispo dans le forum. Si tu peux attendre jusque là ... ;-)
A+ Isa
"karzo" a écrit dans le message de news:
négatif le cheminement indiqué de n'existe pas, une fois mon message reçu, affiché d'autre part, après de nombreux essais, rien ne m'a permis ici de récuperer, les adresses figurant dans les rubrique A ou C.C.dans une de nouvelle "liste de distribution" dans les menus du "courrier" de outlook
Ouvrir le "Carnet d'adresse" (dans le menu Outils) et cliquer sur "Option
avancée", "Nouveau", "Nouvelle liste de distribution", "Ok" et ajouter
les
membres.
Phil.
"karzo" wrote in message news:
comment recupere t on en une seule fois un liste d expediteurs dans c
ou cc plutot que de le faire une par une(quelle perte de temps); qu elles apparaissent sous forme de liste d adresses()ou