Discussion :

[DavFau]

Bjr,

J'ai une appli qui interroge les mails recu via outlook et je n'arrive pas à recuperer l'adresse mail de l'expediteur du mail j'arrive simplement à recuperer le nom de l'expediteur, pourriez vous m'aider sur ce sujet

Merci d'avance

David

[PyRoFlo]

Bienvenue sur ces forums

Détaille un peu ton problème, envoie un extrait du code etc...

Sans plus d'explications on peut pas faire grand chose

[DavFau]

Alors détaillons

Pour interroger les mails qu'aoutlook à recu j'utilise les composants serveur de delphi 6.

Pour récupérer les information du mail j'ai le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    If   (Inbox.Items.Item(I) as MailItem).UnRead then // Test d'un nouvel EMAIL
    Begin
      Expediteur :=(Inbox.Items.Item(i) as MailItem).SenderName;
      Memo1.Clear;
      Memo2.Clear;
      If (Trim((Inbox.Items.Item(I) as MailItem).HTMLBody) <> '') then
        Memo1.Lines.Add((Inbox.Items.Item(I) as MailItem).HTMLBody)
      Else
        Memo1.Lines.Add((Inbox.Items.Item(I) as MailItem).Body);

et en fait le sender name et la nom de l'expediteur mais pas son adresse et moi je souhaite avoir son adresse pour implémenter un carnet d'adresse créer sous delphi 6

Voili voila
Merci[/code]

[PyRoFlo]

(et supprime un de tes messages)

Je reviens dans une heure, je me pencherai sur ton problème

[DavFau]

Merci

désolé pour les balises, je ne sais pas comment supprimer un de mes message

[gibet_b]

Tu ne peux plus maintenant qu'il a mis un message à la suite... Un admin le fera s'il passe par là ;-)

Sinon, édite ton message et au début de ton code, mets la balise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 et à la fin

; ca améliorera la lisibilité

[PyRoFlo]

Exact, je te donne un conseil inapplicable

Pour ton problème, j'ai fait quelques tests et je ne trouve pas non plus, désolé.

[DavFau]

Bjrs,

Voici une partie du code qui vous permet de récupérer l'adresse de l'expéditeur d'un message via les composants Serveur de delphi 6.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
// Récupération de l'adresse Expéditeur
        Try
          Reponse := (Inbox.Items.Item(i) as MailItem).Reply;
          AdressID := (Inbox.Items.Item(i) as MailItem).ReplyRecipients.Count;
          If AdressID <> 0 then
          Begin
            Adresse_Exp := (Inbox.Items.Item(i) as MailItem).ReplyRecipients.Item(1).Address;
          End
          else
          Begin
            For A1 := 1 to Reponse.Recipients.Count do
            Begin
               Adresse_Exp := Reponse.Recipients.item(A1).Address;
            End;
          End;
        Except
        end;

Voila, si vous souhaitez avoir plus d'information sur le pilotage de outlook via les composants serveur de delphi 6, je rest à votre disposition.

Et merci pour les quelques informations que j'ai pu trouver grace à votre forum.

A+

[boon31]

interessant mais connaissez vous un moyen pour detecter l'evenement selection d'un email dans outlook a partir d'une application delphi afin de recuperer les informations du mail selectionné dans mon application?