URGENT: Récupérer le email de l'expéditeur

Bonjour,

J'aimerais faire une petit appli qui prend chaque email de la boite de réception de outlook et qui crée un contact avec l'adresse email de l'expéditeur.

Je suis capable de créer le contact, d'ouvrir la boîte de réception, de récupérer les messages mais je suis incapable de trouve l'adresse mail de l'expéditeur.

Si qqun peut m'aider...
MERCI

Essaye ceci (sans garantie...) :

Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
Dim myReply As Outlook.MailItem
Dim myRecip As Outlook.Recipient

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Répertoire Inbox
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

'Parcourir les messages du répertoire Inbox
For Each myItem In myFolder.Items
'Simuler une réponse
Set myReply = myItem.Reply
'Rechercher le destinataire
For Each myRecip In myReply.Recipients
'Afficher l'adresse email
MsgBox myRecip.Address
Next myRecip
'Supprimer les objets
Set myReply = Nothing
Set myRecip = Nothing
Next myItem


@+

pelw


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> J'aimerais faire une petit appli qui prend chaque email de la boite de réception de outlook et qui crée un contact avec l'adresse email de l'expéditeur.
>
> Je suis capable de créer le contact, d'ouvrir la boîte de réception, de récupérer les messages mais je suis incapable de trouve l'adresse mail de l'expéditeur.
>
> Si qqun peut m'aider...
> MERCI
>

Merci pewl, ca fonctionne à la perfection. Je ne pensais pas que ca fonctionnerais en faisant un reply, mais ca marche comme un charme...

Merci BEAUCOUP!

-------------------------------
Réponse au message :
-------------------------------

> Essaye ceci (sans garantie...) :
>
> Dim myOlApp As Outlook.Application
> Dim myNameSpace As Outlook.NameSpace
> Dim myFolder As Outlook.MAPIFolder
> Dim myItem As Outlook.MailItem
> Dim myReply As Outlook.MailItem
> Dim myRecip As Outlook.Recipient
>
> Set myOlApp = CreateObject("Outlook.Application")
> Set myNameSpace = myOlApp.GetNamespace("MAPI")
> 'Répertoire Inbox
> Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
>
> 'Parcourir les messages du répertoire Inbox
> For Each myItem In myFolder.Items
> 'Simuler une réponse
> Set myReply = myItem.Reply
> 'Rechercher le destinataire
> For Each myRecip In myReply.Recipients
> 'Afficher l'adresse email
> MsgBox myRecip.Address
> Next myRecip
> 'Supprimer les objets
> Set myReply = Nothing
> Set myRecip = Nothing
> Next myItem
>
>
> @+
>
> pelw
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > J'aimerais faire une petit appli qui prend chaque email de la boite de réception de outlook et qui crée un contact avec l'adresse email de l'expéditeur.
> >
> > Je suis capable de créer le contact, d'ouvrir la boîte de réception, de récupérer les messages mais je suis incapable de trouve l'adresse mail de l'expéditeur.
> >
> > Si qqun peut m'aider...
> > MERCI
> >
>

Salut,

Peux tu me dire comment faire un soft qui controle outlook , en l'occurence pour lui ordonner de recuperer les email (envoyer/recevoir)

Merci

Stéphane