Retrouver une adresse mail de format nom@site.fr [Résolu]

[Thierry_94]

Bonjour,

J'ai une application qui traite automatiquement des mails reçus dans une boite mail. Pour chaque mail j'extrais l'adresse de l'expéditeur avec la variable "SenderEmailAddress".

Dans la plupart des cas j'obtiens bien une adresse mail sous la forme xxxxx@xxx.fr mais dans certains cas l'adresse est sous la forme :

/O=XXXXXXX/OU=XXXX/CN=RECIPIENTS/CN=XXXXXXXXX

A quoi cela correspond-il et comment puis-je retrouver l'adresse mail sous la forme xxxxxxx@xxxx.fr de cet expéditeur ?

Merci d'avance pour votre aide ....

[Oliv-]

Bonjour,
Ce type d'adresse correspond à des utilisateurs EXCHANGE. s'ils ne sont pas sur ton domaine tu ne pourras pas je pense retrouver leur Email.
j'ai lu un truc là dessur récemment je recherche sinon il faut interroger le LDAP.

[Heureux-oli]

Correct, c'est bien d'un Exchange Server.
On peut retrouver les données dans l'AD, mais il faut être admin du server, ou avoir une délégation.

On y retrouve entre autre l'OU (Organisational Unit)

[Oliv-]

If the result is what is called an Exchange distinguished name (X400 style)
you have to use a MAPI property that isn't exposed to the Outlook object
model to retrieve the equivalent SMTP type address. You have to use Extended
MAPI, CDO 1.21 or Redemption (www.dimastr.com/redemption) to get at that
property.

Here's an example of doing that using Redemption code:

Default SMTP address of an Exchange user:

dim utils, MailItem, PrSMTPAddress, SMTPAddress
set utils = CreateObject("Redemption.MAPIUtils")
set MailItem = Outlook.Session.GetDefaultFolder(6).Items(1) 'Get the
first item in the inbox, can be any other mail item
PrSMTPAddress= &H39FE001E
'Get SMTP address of the first recipient. It is assumed that the
recipient is an Exchange Server user.
SMTPAddress =
utils.HrGetOneProp(MailItem.Recipients(1).AddressEntry.MAPIOBJECT,
PrSMTPAddress)
MsgBox SMTPAddress



--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm

[Thierry_94]

Bonjour,
Avec un peu de retard ...
Ces solutions fonctionnent bien.
Merci