Rechercher : dans
Par :

[Outlook] Récupérer adresses email

Dernière réponse le 5 mar 2009 à 10:58:02 lebenci, le 19 jui 2007 à 14:05:19 
 Signaler ce message aux modérateurs

Bonjour,

je cherche à extraire les adresses emails d'Outlook 2003.
Non pas les emails mais juste les adresses emails de tous mes contacts, y compris ceux ne figurant pas dans mon carnet d'adresse....

Auriez-vous une piste ?

En vous remerciant,

Renaud B.
www.vousfairepart.com

Configuration: Windows XP
Firefox 2.0.0.5

Meilleures réponses pour « [Outlook] Récupérer adresses email » dans :
[Webmaster] Protéger les adresses email contre les bots Voir Protéger les adresses email contre les bots Vous êtes webmaster et pour une raison x, vous stockez l'adresse email de plusieurs membres de votre site . Ces adresses sont consultables dans leur profil (ex: forum, blog etc....). Or, aujourd'hui,...
Obtenir une adresse jetable VoirPlusieurs sites vous permettent de créer une adresse jetable (ou adresse email anti-spam), pour l'utiliser sur un site auquel vous ne faites pas confiance mais qui requiert une adresse e-mail. Qu'est-ce qu'une adresse jetable? Il s'agit d'une...
Transfert de courrier VoirTransfert de courrier Vous avez plusieurs adresses email et vous souhaiteriez recevoir l'ensemble de votre courrier à la même adresse. Il suffit d'activer l'option « transfert de courrier » présente dans la plupart des messageries. Qu'est-ce que...

1

inpec, le 26 jun 2008 à 11:15:03

J'ai fait cette Sub GetEmail qui recherche tous les emails des personnes qui t'ont envoyés un email ou qui tu as envoyé un email dans le dossier et les sous dossiers en cours de sélection (testé sous oulook 2003)
Sub GetEmail()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim mySelection As Selection
Dim myMailItemLog As Outlook.MailItem

Set myNameSpace = myOlApp.GetNamespace("MAPI")
ReDim Preserve emails(1)
emails(1) = ""
'Create a new email to use as log file
Set myMailItemLog = myOlApp.CreateItem(olMailItem)
myMailItemLog.Recipients.Add (myNameSpace.CurrentUser)
myMailItemLog.Subject = "Email from Body - " & Now()
myMailItemLog.BodyFormat = olFormatPlain
myMailItemLog.Body = Now() & " Starting..." & vbCrLf & vbCrLf

'Go thru all folders
GetEmailFromFolder myOlApp.ActiveExplorer.CurrentFolder

For Each Email In emails
myMailItemLog.Body = myMailItemLog.Body & vbCrLf & Email
Next
myMailItemLog.Body = myMailItemLog.Body & vbCrLf & Now() & " Done. Email addresses extracted: " & UBound(emails)
myMailItemLog.Display
MsgBox Now() & " Done. Email addresses extracted: " & UBound(emails), vbInformation, "Done"

End Sub
Sub GetEmailFromFolder(MyFolder)
Dim myMailItem As Outlook.MailItem
For Each myItem In MyFolder.Folders
GetEmailFromFolder myItem
Next
intMessageCount = UBound(emails)
For Each myItem In MyFolder.Items
If TypeName(myItem) = "MailItem" Then
Set myMailItem = myItem
If MyFolder = "Éléments envoyés" Then
strTemp = myMailItem.Recipients.Item(1).Address
Else
strTemp = myMailItem.SenderEmailAddress
End If
Find = UBound(Filter(emails, strTemp, True, vbTextCompare))
If Find = -1 Then
intMessageCount = intMessageCount + 1
ReDim Preserve emails(intMessageCount)
emails(intMessageCount) = strTemp
End If
End If
Next
End Sub

Répondre à inpec

2

inpec, le 26 jun 2008 à 18:04:28

Il faut rajouter
Dim emails() As String
tout en haut au dessus de Sub GetEmail() dans les déclarations

Répondre à inpec

4

 Eric, le 5 mar 2009 à 10:58:02

Bonjour,

Merci pour la macro.
Je viens de l'essayer. Toutefois, j'ai un message d'erreur à la ligne GetEmailFromFolder myOlApp.ActiveExplorer.CurrentFolder :

Compile error : Sub or function not defined.

N'y connaissant rien en visual basic, je suis un peu perdu. Quelqu'un peut-il m'aider ?
Merci !!!

Répondre à Eric

3

Alex, le 22 déc 2008 à 13:08:41
  • +1

Merci pour cette macro. Elle marche du tonnerre.

Répondre à Alex