Utilisation d'OutLook avec Delphi

Version imprimable

19/06/2007, 09h24
Charly910

Utilisation d'OutLook avec Delphi

Bonjour,

J'essaye de récupérer mes messages Outlook en m'aidant de la FAQ avec le composant TOutlookApplication

J'arrive bien à récupérer le sujet (oMail.Subject) et le nom de l'expéditeur (oMail.SenderName)

Mais je n'arrive pas à récupérer l'adresse mail de l'expéditeur.

J'ai essayé oMail.From (trouvé sur ce forum) mais cela n'a pas l'air de fonctionner.

(J'ai besoin aussi du message, je vais essayer oMail.body )
Quelqu'un peut il m'aider ?

Merci

Charly
19/06/2007, 14h43
birdyz

Salut

L'adresse de l'expéditeur est contenue dans la propriété SenderEmailAddress.

Pour plus d'info sur les MailItem, je te conseille http://msdn2.microsoft.com/en-us/library/bb208402.aspx

Birdyz

Recupération de messages Outlook

Merci beaucoup pour ta réponse.

J'ai essayé avec SenderEmailAdress, mais j'ai une erreur :
Classe d'exeption EOleError avec le message : Méthode SenderEmailAdress non supportée par l'objet automation ?

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  sDirName := 'C:\Temp\';
  oNameSpace := Outlook.GetNameSpace('MAPI');
  oNameSpace.Logon;
  //On se positionne dans le dossier de réception
  oDossier  := oNameSpace.GetDefaultFolder(olFolderInbox);
  //On récupère le nombre de mails
  iNbMail   := oDossier.Items.Count;
  //On teste si on a des mails
  L_NbMails.Caption := 'Nombre de mails : ' + IntToStr(iNbMail);
  if iNbMail > 0 then
  begin
    for i := 1 to iNbMail  do
    begin
      oMail := oDossier.Items(i);
      L_Number.Caption := '# '+ IntToStr(i) ;
      Try
        List1.Items.Add(omail.SenderEmailAddress+' ## '+oMail.Subject) ;
      Except
 
      End ;
    end;
  end;

Est ce j'ai fait une bêtise ?

Charly

19/06/2007, 16h24
birdyz

A priori (j'ai pas Outlook ici donc je peux pas tester), oMail peux contenir autre chose que des mails. Il faudrait donc que tu ajoute

Code:

if oMail.Class = olMail then

afin de vérifié que tu te trouve sur un objet de type mail.

Birdyz
19/06/2007, 18h13
Charly910

Utilisation de Outlook

Merci,

mais je n'y arrive pas même avec le If, il ne trouve toujours pas SenderEmailAddress.

J'ai regardé sur le site de Microsoft, c'est pourtant bien cela.

Peut être que SenderEmailAddress n'est pas implémenté dans TOutLookApplication de Delphi.

Merci encore pour tes conseils, si tu as un éclair de génie je suis preneur.

A+

Charly

Voila un bout de code que j'ai fait rapidos et qui fonctionne bien chez moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
procedure TForm1.Button1Click(Sender: TObject);
var
  vOutlookApplication, vNameSpace, vDossier, vMail : variant;
  bNew : boolean;
  iNbMail, i : integer;
  sDirName : string;
const
  olFolderInbox = $00000006;
  olMail = 43;
begin
  try
    vOutlookApplication := GetActiveOleObject('Outlook.Application');
  except
    vOutlookApplication := CreateOleObject('Outlook.Application');
    bNew := True;
  end;
  vNameSpace := vOutlookApplication.GetNamespace('mapi');
  vNameSpace.Logon('', '', true, true);
  try
    vDossier := vNameSpace.GetDefaultFolder(olFolderInbox);
    iNbMail := vDossier.Items.Count;
    for i := 1 to iNbMail  do
    begin
      vMail := vDossier.Items(i);
      if vMail.Class = olMail then
        ListBox1.Items.Append(vmail.SenderEmailAddress + ' ## ' + vMail.Subject) ;
    end;
  finally
    vNameSpace.LogOff;
    if bNew then
      vOutlookApplication.Quit;
  end;
end;

Il faut un uses sur ComObj. Par contre, je n'utilise pas l'objet TOutlookApplication, donc pas de uses sur Outlook8

Birdyz

de mon côté, je sauvegarde le Email... et j'extrais le Header internet...
ensuite, je trouve ce que je veux...
ca ressemble a ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Procedure AnalyseHeader();
Var
  Header: TStringList;
Begin
 
  //sauvegarde le mesage...
  oMail.SaveAs('c:\temp\tempmsg.msg', olMSG);
 
  Header := TStringList.Create;
  Try
    Header.Text := GetMailHeader('C:\temp\tempmsg.msg');
    //== Ici on peu analyser le header...
    //== Todo here..
  Finally
    //== on fait le ménage...
    Header.Clear;
    Header.free;
    DeleteFile('C:\temp\tempmsg.msg');
  End;
End;

et Voici la fonction GetMailHeader()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Function GetMailHeader(FileName: String): String;
Var
  BigBuf: TMemoryStream;
  i: LongInt;
  j: LongInt;
  LengthOfStr: LongInt;
  StrToFind: String;
  StartOfCapture: LongInt;
  pEnd: PChar;
  StopOfCapture: LongInt;
  Header: String;
Begin
  result := '';
  Header := '';
  StrToFind := 'Microsoft Mail Internet Headers Version 2.0';
  LengthOfStr := Length(StrToFind);
  BigBuf := TMemoryStream.Create;
  Try
    BigBuf.LoadFromFile(FileName);
    For i := 0 To (BigBuf.Size - LengthOfStr) Do
    Begin
      If CompareMem(@PChar(BigBuf.Memory)[i], PChar(StrToFind), LengthOfStr) Then
      Begin
        StartOfCapture := i + LengthOfStr;
        StrToFind := 'FILETIME=';
        LengthOfStr := Length(StrToFind);
        For j := StartOfCapture To (BigBuf.Size - LengthOfStr) Do
        Begin
          If CompareMem(@PChar(BigBuf.Memory)[j], PChar(StrToFind), LengthOfStr) Then
          Begin
            StopOfCapture := j - StartOfCapture;
            break;
          End;
        End;
        SetLength(Header, StopOfCapture);
        For j := 0 To StopOfCapture Do
        Begin
          If PChar(BigBuf.Memory)[StartOfCapture + j] = #0 Then
            PChar(BigBuf.Memory)[StartOfCapture + j] := #20;
        End;
        Header := strlcopy(PChar(Header), @PChar(BigBuf.Memory)[StartOfCapture], StopOfCapture);
        result := Header;
 
        exit;
      End;
    End;
  Finally
    BigBuf.Free;
  End;
End;

On peut trouver dans le Header:

Code:

1
2
3
4
5
6
Return-Path: <blalba@Blablabla.com>
From: "Nom Affiché" <NomAffiché@Blabla.com>
To: <MoiMême@Blabla.com>
Subject: Ceci est un Email Bidon
Date:Tue, 19 Jun 2007 13:50:14 -0400
X-OriginalArrivalTime: 19 Jun 2007 17:48:21.0740 (UTC)

J'ai remarqué que lorsque le Email est différent dans
"Return-Path" VS "From"
C'est souvent de la publicité non solicité....(façon de l'écrire pour être gentil)

ici j'ai Outlook 2000... reste à voir si ca fonctionne avec d'autre version...

20/06/2007, 09h04
Charly910

Outlook avec Delphi

Merci à tous les 2 (Zak et Birdyz)

Le code de Birdyz ne fonctionne toujours pas chez moi, j'ai le même message sur SenderEmailAddress.

Je teste les procédures de Zak ce soir. et je vous tiens au courant.

Merci encore

Charly
20/06/2007, 09h26
birdyz

Ben la je ne vois pas.

J'ai testé sous Outlook 2007 et ca fonctionne niquel. De plus la MSDN ne spécifiant aucune version pour cette propriété, cela signifie (théoriquement) qu'elle est disponible sur toutes les versions d'Outlook.

Birdyz
20/06/2007, 20h19
Laurent Dardenne

Citation:

Envoyé par Eric Boisvert

ici j'ai Outlook 2000... reste à voir si ca fonctionne avec d'autre version...

Pas mieux !

Citation:

Envoyé par birdyz

J'ai testé sous Outlook 2007 et ca fonctionne niquel. De plus la MSDN ne spécifiant aucune version pour cette propriété, cela signifie (théoriquement) qu'elle est disponible sur toutes les versions d'Outlook.

Tu vas vite en besogne, il est indiqué dans le lien que tu cites : Office 2007 :roll:

Pour ce type de question vérifier la doc des objets automation fournis avec le produit :?

Vous y gagnerez des compétences et un temps fou.
20/06/2007, 20h41
birdyz

Citation:

Envoyé par Laurent Dardenne

Tu vas vite en besogne, il est indiqué dans le lien que tu cites : Office 2007 :roll:

Effectivement, j'ai peut etre été vite en besogne.
Comme j'avais vu notamment ceci http://msdn2.microsoft.com/en-us/library/bb207711.aspx ou on voit bien marqué Version Added: Outlook 2007 (ce qui est le cas), j'en ai déduit que lorsque rien n'été mentionné, cela signifiait que la propriété ou méthode ou autre existait sur les versions antérieures.
Bon, j'avais quand même émis une réserve en mettant le (théoriquement).

En tout cas, cela n'aide pas Charly910.
20/06/2007, 21h10
Laurent Dardenne

Citation:

Envoyé par birdyz

Bon, j'avais quand même émis une réserve en mettant le (théoriquement).

Oui il n'y a pas de soucis. Je n'ai pas encore pris l'habitude d'indiquer si je poste en tant que modérateur ou en tant que simple membre.
Je me suis permis cette remarque car au 3iéme posts on lit bien que ça coince. Elle concerne plus la démarche de dépannage que l'aide que tu apportes ici. Ce serait un comble 8O
En même temps comme on fait aussi d'autres chose à coté on a pas tjr la dispo nécessaire.

Citation:

Envoyé par birdyz

En tout cas, cela n'aide pas Charly910.

Je confirme. Mais je ne peux que réitérer mon conseil de lire la doc, car l'automation sous Office ne suppose pas toujours un accés direct à l'information recherchée. C'est à dire qu'il faut parfois louvoyer pour trouver l'info. Si toutefois elle est accessible.
21/06/2007, 12h32
Charly910

OutLook et Delphi

C'st bon, cela fonctionne avec la méthode de Zak. J'arrive à récupérer le header que je peux traiter

Merci encore àtous les 2

Charly