Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook News VBA Oulook ?

News VBA Oulook ?

10 réponses
Avatar
bartez
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro VBA d'Oulook
?
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
Isabelle Prawitz
Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques uns à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro VBA
d'Oulook

?





Avatar
bartez
Salut Isa,

Si je posais cette question c'est justement parceque personne ne répondait à
ma question sur les macro, je me suis donc dit que ce n'était pas un forum
qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite Outlook 2003,
l'adresse des personnes qui m'ont adressé un mail dont l'objet était
"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas que j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de news:

Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques uns à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro VBA
d'Oulook

?









Avatar
Isabelle Prawitz
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la boîte de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un message
dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet contient
maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus qu'il
n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne répondait
à

ma question sur les macro, je me suis donc dit que ce n'était pas un forum
qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite Outlook
2003,

l'adresse des personnes qui m'ont adressé un mail dont l'objet était
"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas que j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de news:

Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques uns à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro VBA
d'Oulook

?













Avatar
bartez
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la rapidité Chapeau
!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur Outlook et donc
que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en place de ce
code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de news:
#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la boîte de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un message
dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet contient
maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus qu'il
n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne
répondait


à
ma question sur les macro, je me suis donc dit que ce n'était pas un
forum


qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite Outlook
2003,

l'adresse des personnes qui m'ont adressé un mail dont l'objet était
"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas que j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:



Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques uns à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro VBA
d'Oulook

?

















Avatar
Isabelle Prawitz
Bonsoir !
Pour utiliser le code tel quel (ou presque !)
1. Crée une liste de distrib dans ton dossier Contacts appelée "MaListe à
moi"
2. Va en environnement VBA par Outils/Macro/Visual basic Editor
3. A gauche dans la fenêtre Explorateur de projets, fais un double-clic sur
"ThisOutlookSession" dans le dossier "Microsoft Office Outlook Objets"
4. Dans la fenêtre de code toute blanche, tape
sub GenListe
puis appuie sur Entrée
5. Entre les lignes Sub... et End sub, colle tout le code de mon message,
puis enlève les lignes 1. ... et 2. ...
6. Méfie-toi, Outlook Express fait des retours à la ligne au bout d'un
certain nombre de caractères :
réception, maison et n'existe pas déjà ! ne devraient pas être à la ligne !
Corrige !
7. Sauvegarde. Si il n'y a pas de fautes de frappe, il ne doit pas y avoir
de ligne en rouge.
8. Reviens à Outlook et lance la macro par Outils/Macro/Macros... puis
ThisOutlookSession.GenListe

A+
Isa



"bartez" a écrit dans le message de
news:
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la rapidité
Chapeau

!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur Outlook et
donc

que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en place de ce
code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de news:
#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la boîte de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un message
dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet contient
maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus qu'il
n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne
répondait


à
ma question sur les macro, je me suis donc dit que ce n'était pas un
forum


qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite Outlook
2003,

l'adresse des personnes qui m'ont adressé un mail dont l'objet était
"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas que
j'en



serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:



Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques uns à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro
VBA





d'Oulook
?





















Avatar
bartez
Avec tes explications,.....Ben.....C'est mis en route en 5mn :)
Il m'a seulement falu remplacer le 0 par un 1 dans la ligne :
"if leRecip.Type=0 then 'l'expéditeur"
et j'ai récupéré toutes les adresses en 2mn.

Encore Merci à toi Oh...! Isa ma Sauveresse ;)

ps : Tu vois, je ne penssais vraiment pas qu'il y avait des gens qui
maitrisaient le VBA Outlook sur ce forum....Je suis ravi que tu m'ais prové
le contraire.

Bonne soirée et encore Merci pour ton AIDE.
@mic Bartez


"Isabelle Prawitz" a écrit dans le message de news:

Bonsoir !
Pour utiliser le code tel quel (ou presque !)
1. Crée une liste de distrib dans ton dossier Contacts appelée "MaListe à
moi"
2. Va en environnement VBA par Outils/Macro/Visual basic Editor
3. A gauche dans la fenêtre Explorateur de projets, fais un double-clic
sur

"ThisOutlookSession" dans le dossier "Microsoft Office Outlook Objets"
4. Dans la fenêtre de code toute blanche, tape
sub GenListe
puis appuie sur Entrée
5. Entre les lignes Sub... et End sub, colle tout le code de mon message,
puis enlève les lignes 1. ... et 2. ...
6. Méfie-toi, Outlook Express fait des retours à la ligne au bout d'un
certain nombre de caractères :
réception, maison et n'existe pas déjà ! ne devraient pas être à la ligne
!

Corrige !
7. Sauvegarde. Si il n'y a pas de fautes de frappe, il ne doit pas y avoir
de ligne en rouge.
8. Reviens à Outlook et lance la macro par Outils/Macro/Macros... puis
ThisOutlookSession.GenListe

A+
Isa



"bartez" a écrit dans le message de
news:
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la rapidité
Chapeau

!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur Outlook et
donc

que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en place de ce
code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:


#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la boîte
de



réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un
message



dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet
contient



maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus
qu'il



n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne
répondait


à
ma question sur les macro, je me suis donc dit que ce n'était pas un
forum


qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite
Outlook




2003,
l'adresse des personnes qui m'ont adressé un mail dont l'objet était
"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas que
j'en



serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:



Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques uns
à





connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les macro
VBA





d'Oulook
?

























Avatar
Isabelle Prawitz
Bonjour !
Moi être contente marcher "presque" du premier coup !
A titre d'info, Type =0 correspond à l'expéditeur du message, et Type=1
correspond au champ A.
A+
Isa

"bartez" a écrit dans le message de
news:
Avec tes explications,.....Ben.....C'est mis en route en 5mn :)
Il m'a seulement falu remplacer le 0 par un 1 dans la ligne :
"if leRecip.Type=0 then 'l'expéditeur"
et j'ai récupéré toutes les adresses en 2mn.

Encore Merci à toi Oh...! Isa ma Sauveresse ;)

ps : Tu vois, je ne penssais vraiment pas qu'il y avait des gens qui
maitrisaient le VBA Outlook sur ce forum....Je suis ravi que tu m'ais
prové

le contraire.

Bonne soirée et encore Merci pour ton AIDE.
@mic Bartez


"Isabelle Prawitz" a écrit dans le message de news:

Bonsoir !
Pour utiliser le code tel quel (ou presque !)
1. Crée une liste de distrib dans ton dossier Contacts appelée "MaListe
à


moi"
2. Va en environnement VBA par Outils/Macro/Visual basic Editor
3. A gauche dans la fenêtre Explorateur de projets, fais un double-clic
sur

"ThisOutlookSession" dans le dossier "Microsoft Office Outlook Objets"
4. Dans la fenêtre de code toute blanche, tape
sub GenListe
puis appuie sur Entrée
5. Entre les lignes Sub... et End sub, colle tout le code de mon
message,


puis enlève les lignes 1. ... et 2. ...
6. Méfie-toi, Outlook Express fait des retours à la ligne au bout d'un
certain nombre de caractères :
réception, maison et n'existe pas déjà ! ne devraient pas être à la
ligne


!
Corrige !
7. Sauvegarde. Si il n'y a pas de fautes de frappe, il ne doit pas y
avoir


de ligne en rouge.
8. Reviens à Outlook et lance la macro par Outils/Macro/Macros... puis
ThisOutlookSession.GenListe

A+
Isa



"bartez" a écrit dans le message de
news:
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la rapidité
Chapeau

!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur Outlook et
donc

que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en place de
ce



code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:


#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la
boîte




de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un
message



dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet
contient



maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus
qu'il



n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne
répondait


à
ma question sur les macro, je me suis donc dit que ce n'était pas
un





forum
qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite
Outlook




2003,
l'adresse des personnes qui m'ont adressé un mail dont l'objet
était





"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas
que





j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message
de





news:

Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques
uns






à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les
macro







VBA
d'Oulook
?





























Avatar
bartez
Bonsoir!
Je ne comprends pas, je viens de refaire la manipe et avec Type=0 je n'est
pas une seule addresse dans ma liste alors qu'avec Type=1 j'en récupère plus
de 55.
Bizarrerie de l'informatique ;)

@mic Bartez

"Isabelle Prawitz" a écrit dans le message de news:

Bonjour !
Moi être contente marcher "presque" du premier coup !
A titre d'info, Type =0 correspond à l'expéditeur du message, et Type=1
correspond au champ A.
A+
Isa

"bartez" a écrit dans le message de
news:
Avec tes explications,.....Ben.....C'est mis en route en 5mn :)
Il m'a seulement falu remplacer le 0 par un 1 dans la ligne :
"if leRecip.Type=0 then 'l'expéditeur"
et j'ai récupéré toutes les adresses en 2mn.

Encore Merci à toi Oh...! Isa ma Sauveresse ;)

ps : Tu vois, je ne penssais vraiment pas qu'il y avait des gens qui
maitrisaient le VBA Outlook sur ce forum....Je suis ravi que tu m'ais
prové

le contraire.

Bonne soirée et encore Merci pour ton AIDE.
@mic Bartez


"Isabelle Prawitz" a écrit dans le message de
news:



Bonsoir !
Pour utiliser le code tel quel (ou presque !)
1. Crée une liste de distrib dans ton dossier Contacts appelée
"MaListe



à
moi"
2. Va en environnement VBA par Outils/Macro/Visual basic Editor
3. A gauche dans la fenêtre Explorateur de projets, fais un
double-clic



sur
"ThisOutlookSession" dans le dossier "Microsoft Office Outlook Objets"
4. Dans la fenêtre de code toute blanche, tape
sub GenListe
puis appuie sur Entrée
5. Entre les lignes Sub... et End sub, colle tout le code de mon
message,


puis enlève les lignes 1. ... et 2. ...
6. Méfie-toi, Outlook Express fait des retours à la ligne au bout d'un
certain nombre de caractères :
réception, maison et n'existe pas déjà ! ne devraient pas être à la
ligne


!
Corrige !
7. Sauvegarde. Si il n'y a pas de fautes de frappe, il ne doit pas y
avoir


de ligne en rouge.
8. Reviens à Outlook et lance la macro par Outils/Macro/Macros... puis
ThisOutlookSession.GenListe

A+
Isa



"bartez" a écrit dans le message de
news:
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la rapidité
Chapeau

!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur Outlook
et




donc
que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en place de
ce



code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:


#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la
boîte




de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un
message



dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet
contient



maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus
qu'il



n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne
répondait


à
ma question sur les macro, je me suis donc dit que ce n'était
pas






un
forum
qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite
Outlook




2003,
l'adresse des personnes qui m'ont adressé un mail dont l'objet
était





"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas
que





j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message
de





news:

Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques
uns






à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les
macro







VBA
d'Oulook
?

































Avatar
Isabelle Prawitz
Bonsoir !
Ouaip ! C'est bizarre ! Il semblerait que Type=0 ne fonctionne pas dans ce contexte !
Si tu veux récupérer l'expéditeur, le code est un peu différent car on utilise d'autres propriétés.
Si ça t'intéresse, je peux me repencher sur ta macro et rajouter également un test anti-doublons !
A+
Isa


"bartez" a écrit dans le message de news:Ou$
Bonsoir!
Je ne comprends pas, je viens de refaire la manipe et avec Type=0 je n'est
pas une seule addresse dans ma liste alors qu'avec Type=1 j'en récupère plus
de 55.
Bizarrerie de l'informatique ;)

@mic Bartez

"Isabelle Prawitz" a écrit dans le message de news:

Bonjour !
Moi être contente marcher "presque" du premier coup !
A titre d'info, Type =0 correspond à l'expéditeur du message, et Type=1
correspond au champ A.
A+
Isa

"bartez" a écrit dans le message de
news:
Avec tes explications,.....Ben.....C'est mis en route en 5mn :)
Il m'a seulement falu remplacer le 0 par un 1 dans la ligne :
"if leRecip.Type=0 then 'l'expéditeur"
et j'ai récupéré toutes les adresses en 2mn.

Encore Merci à toi Oh...! Isa ma Sauveresse ;)

ps : Tu vois, je ne penssais vraiment pas qu'il y avait des gens qui
maitrisaient le VBA Outlook sur ce forum....Je suis ravi que tu m'ais
prové

le contraire.

Bonne soirée et encore Merci pour ton AIDE.
@mic Bartez


"Isabelle Prawitz" a écrit dans le message de
news:



Bonsoir !
Pour utiliser le code tel quel (ou presque !)
1. Crée une liste de distrib dans ton dossier Contacts appelée
"MaListe



à
moi"
2. Va en environnement VBA par Outils/Macro/Visual basic Editor
3. A gauche dans la fenêtre Explorateur de projets, fais un
double-clic



sur
"ThisOutlookSession" dans le dossier "Microsoft Office Outlook Objets"
4. Dans la fenêtre de code toute blanche, tape
sub GenListe
puis appuie sur Entrée
5. Entre les lignes Sub... et End sub, colle tout le code de mon
message,


puis enlève les lignes 1. ... et 2. ...
6. Méfie-toi, Outlook Express fait des retours à la ligne au bout d'un
certain nombre de caractères :
réception, maison et n'existe pas déjà ! ne devraient pas être à la
ligne


!
Corrige !
7. Sauvegarde. Si il n'y a pas de fautes de frappe, il ne doit pas y
avoir


de ligne en rouge.
8. Reviens à Outlook et lance la macro par Outils/Macro/Macros... puis
ThisOutlookSession.GenListe

A+
Isa



"bartez" a écrit dans le message de
news:
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la rapidité
Chapeau

!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur Outlook
et




donc
que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en place de
ce



code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message de
news:


#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts =monEsp.GetDefaultFolder(olFolderContacts)
set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour la
boîte




de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est un
message



dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet
contient



maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en plus
qu'il



n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque personne ne
répondait


à
ma question sur les macro, je me suis donc dit que ce n'était
pas






un
forum
qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma boite
Outlook




2003,
l'adresse des personnes qui m'ont adressé un mail dont l'objet
était





"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache pas
que





j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le message
de





news:

Bonjour !
Tu peux toujours poser tes questions ici, nous sommes quelques
uns






à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant les
macro







VBA
d'Oulook
?





































Avatar
bartez
Re bonsoir !
Ce que tu me proposes m'interresse, mais je ne voudrais pas abuser de ton
temps. La macro que tu m'as déjà écri semble fonctionner, sauf si elle me
récupère seulement les adresses des destinataires auquels j'ai répondu (ce
qui dans l'absolu correspond à peu près au même pour mon cas perso).

Je préfaire garder mon 3em voeux pour un besoin future ;) sans quoi je
risque d'épuiser ta bonne volonté et j'aimerais pas qu'à ma prochaine
demande sur le forum tu fasses la morte en te disant "C'est bon, celui là
j'ai déjà donné avec ces trucs tordus"....Ce qui me laisserait dans
l'embaras.

En attendant une prochaine question, Merci de ton aide !
@mic Bartez


Ta proposition m
"Isabelle Prawitz" a écrit dans le message de news:
#
Bonsoir !
Ouaip ! C'est bizarre ! Il semblerait que Type=0 ne fonctionne pas dans ce
contexte !

Si tu veux récupérer l'expéditeur, le code est un peu différent car on
utilise d'autres propriétés.

Si ça t'intéresse, je peux me repencher sur ta macro et rajouter également
un test anti-doublons !

A+
Isa


"bartez" a écrit dans le message de
news:Ou$

Bonsoir!
Je ne comprends pas, je viens de refaire la manipe et avec Type=0 je
n'est


pas une seule addresse dans ma liste alors qu'avec Type=1 j'en récupère
plus


de 55.
Bizarrerie de l'informatique ;)

@mic Bartez

"Isabelle Prawitz" a écrit dans le message de
news:



Bonjour !
Moi être contente marcher "presque" du premier coup !
A titre d'info, Type =0 correspond à l'expéditeur du message, et
Type=1



correspond au champ A.
A+
Isa

"bartez" a écrit dans le message de
news:
Avec tes explications,.....Ben.....C'est mis en route en 5mn :)
Il m'a seulement falu remplacer le 0 par un 1 dans la ligne :
"if leRecip.Type=0 then 'l'expéditeur"
et j'ai récupéré toutes les adresses en 2mn.

Encore Merci à toi Oh...! Isa ma Sauveresse ;)

ps : Tu vois, je ne penssais vraiment pas qu'il y avait des gens qui
maitrisaient le VBA Outlook sur ce forum....Je suis ravi que tu
m'ais




prové
le contraire.

Bonne soirée et encore Merci pour ton AIDE.
@mic Bartez


"Isabelle Prawitz" a écrit dans le message de
news:



Bonsoir !
Pour utiliser le code tel quel (ou presque !)
1. Crée une liste de distrib dans ton dossier Contacts appelée
"MaListe



à
moi"
2. Va en environnement VBA par Outils/Macro/Visual basic Editor
3. A gauche dans la fenêtre Explorateur de projets, fais un
double-clic



sur
"ThisOutlookSession" dans le dossier "Microsoft Office Outlook
Objets"





4. Dans la fenêtre de code toute blanche, tape
sub GenListe
puis appuie sur Entrée
5. Entre les lignes Sub... et End sub, colle tout le code de mon
message,


puis enlève les lignes 1. ... et 2. ...
6. Méfie-toi, Outlook Express fait des retours à la ligne au bout
d'un





certain nombre de caractères :
réception, maison et n'existe pas déjà ! ne devraient pas être à
la





ligne
!
Corrige !
7. Sauvegarde. Si il n'y a pas de fautes de frappe, il ne doit pas
y





avoir
de ligne en rouge.
8. Reviens à Outlook et lance la macro par Outils/Macro/Macros...
puis





ThisOutlookSession.GenListe

A+
Isa



"bartez" a écrit dans le message de
news:
Wouha.......! Ca c'est du rapide :)
Je ne sais pas si ça va faire ce que je veux, mais pour la
rapidité






Chapeau
!
Je vais essayé de comprendre ton code et de le faire tourner.
Faut quand même savoir que je n'ai jamais fait de macro sur
Outlook






et
donc
que je n'y connais rien.
Ca risque par concéquant d'être un peu long pour la mise en
place de






ce
code.

Toujours est-il que je te remercie par avance.

@+ Bartez

"Isabelle Prawitz" a écrit dans le message
de






news:
#
Procède étape par étape :
1. positionne-toi sur le bon dossier par:
dim MonEsp as Namespace
dim monDoss as MapiFolder
dim monDossContacts as MapiFolder
dim MaList as DistListItem ' La liste de distrib Outlook

set MonEsp=getnamespace("MAPI")
set monDossContacts
=monEsp.GetDefaultFolder(olFolderContacts)







set MaList=monDossContacts.items("MaListe à moi")
set monDoss=monEsp.GetDefaultFolder(olFolderInbox) 'pour
la







boîte
de
réception

2. Parcours tous les messages de ton dossier
dim i as integer
for i=1 to MonDoss.items.count
if typename(mondoss.items(i))="MailItem" then 'c'est
un







message
dim monMess as MailItem
set monMess=mondoss.items(i)
dim intPos as integer
intPos=InStr(1,monMess.subject,"maison") 'le sujet
contient



maison ?
if intPos>0 then 'oui
dim leRecip as Recipient
for each leRecip in monMess.Recipients
if leRecip.Type=0 then 'l'expéditeur
MaList.addMember leRecip 'vérifier en
plus







qu'il
n'existe pas déjà !
end if
next
end if
end if
next
MaList.save

Et voilà !

A+
Isa

"bartez" a écrit dans le message de
news:
Salut Isa,

Si je posais cette question c'est justement parceque
personne ne








répondait
à
ma question sur les macro, je me suis donc dit que ce
n'était








pas
un
forum
qui traitait ce sujet.

Je veux bien t'exposer mon problème.
Je voudrais créer une macro qui puisse récupèrer dans ma
boite








Outlook
2003,
l'adresse des personnes qui m'ont adressé un mail dont
l'objet








était
"maison" ou "Re : maison".

Si tu as une idée ou un exemple à me monter, je ne te cache
pas








que
j'en
serais ravi ;)

@+ Bartez

"Isabelle Prawitz" a écrit dans le
message








de
news:

Bonjour !
Tu peux toujours poser tes questions ici, nous sommes
quelques









uns
à
connaître VBA Outlook !
A+
Isa

"bartez" a écrit dans le message de
news:%
Bonjour,

Est-ce-que qqun connait l'adresse d'un forum traitant
les










macro
VBA
d'Oulook
?