Discussion :

[bib34690]

Bonjour,

J'utilise Indy10 pour récuperer mes messages avec le protocole Pop3.
Je ne sais pas comment récuperer la valeur de la clé "Diagnostic-Code" contenue dans 1 partie d'un message sous la forme
"Diagnostic-Code: blablabla"

Je sais récuperer le "Content-Description" ou "Content-Type" grace au code :

Code :

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

1
2
 
ThisPartCD:=TIdText(IdMessage.MessageParts.Items[NumPartie]).Headers.Values['Content-Description'];

Mais ça ne marche que pour 3 valeurs, et "Diagnostic-Code" ne fait pas partie de ces valeurs "standards".
J'ai aussi essayé avec ExtraHeader, mais la liste est vide.

Je suppose qu'il faudrait rajouter ce "Diagnostic-Code" à la liste des entités, mais je n'y arrive pas.
qq pourrait-il m'aider SVP ?
Merci.

Bib

[Rayek]

Bonjour,

J'utilise Indy10 pour récuperer mes messages avec le protocole Pop3.
Je ne sais pas comment récuperer la valeur de la clé "Diagnostic-Code" contenue dans 1 partie d'un message sous la forme
"Diagnostic-Code: blablabla"

Je sais récuperer le "Content-Description" ou "Content-Type" grace au code :

Code :

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

1
2
 
ThisPartCD:=TIdText(IdMessage.MessageParts.Items[NumPartie]).Headers.Values['Content-Description'];

Mais ça ne marche que pour 3 valeurs, et "Diagnostic-Code" ne fait pas partie de ces valeurs "standards".
J'ai aussi essayé avec ExtraHeader, mais la liste est vide.

Je suppose qu'il faudrait rajouter ce "Diagnostic-Code" à la liste des entités, mais je n'y arrive pas.
qq pourrait-il m'aider SVP ?
Merci.

Bib

Il se peut que tu ecrives mal la variable.

Je te conseil de visulaliser ton Header de la manière suivante (comme çà tu pourras voir exactement les informations transmises) :

Code :

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

1
2
 
Showmessage(TIdText(IdMessage.MessageParts.Items[NumPartie]).Headers.Text);

Headers est un THearderList Qui n'est ni plus ni moins qu'une TStringList (avec des focntions en plus). Donc le value focntionne de la même manière. (Il faut une paire param/valeur)

[bib34690]

Oui, c'est effectivement mon problème.
Cette entité est bien dans la partie 2 du message, mais elle n'est pas retournée par Header ni ExtraHeader.
Voici le source de la partie 2 du message :

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
 
--33AF117B5C8.1202145361/smtp3-g19.free.fr
Content-Description: Delivery report
Content-Type: message/delivery-status
 
Reporting-MTA: dns; smtp3-g19.free.fr
X-Postfix-Queue-ID: 33AF117B5C8
X-Postfix-Sender: rfc822; xxx@free.fr
Arrival-Date: Mon,  4 Feb 2008 18:15:55 +0100 (CET)
 
Final-Recipient: rfc822; xxx.fr
Action: failed
Status: 5.0.0
Diagnostic-Code: X-Postfix; host smtp-test7.rsv.rss.fr[160.92.112.177] said:
    550 <xxxx.fr>: Recipient address rejected: User unknown (in
    reply to RCPT TO command)

[Rayek]

Sinon tu peux faire comme ca :

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var
  lst :TStringlist;
begin
  lst : TStringList.create;
  try
    lst.text := TIdText(IdMessage.MessageParts.Items[NumPartie]).Headers.Text
    lst.Text := StringRepalce(lst.Text,':','=',[rfReplaceAll]);
    Showmessage(lst.Value['Diagnostic-Code']);
  finally
    lst.free;
  end;
end;

[bib34690]

Le pb c'est que Item[NumPartie] ne contient pas mon "Diagnostic-Code" ni la suite de cette partie.
Il contient seulement 3 items : Content-Type, Content-transfert et content-description, rien d'autre.
Il faudrait que j'arrive à récuperer le reste de la partie ...

[bib34690]

- Headers semble programmé pour ne retourner que les items qu'on lui a programmé au début (Indy prévoit certainement ces 3 par défaut). d'ailleurs Content-Type n'est pas présent dans cette partie et l'item est affiché qd même (avec une valeur vide).
- ExtraHeader est toujours Vide.
- Body ne marche que sur la partie 0 et plante sur les autres car les autres parties sont reconnues comme "IdAttachmentFile".

...donc impossible de récuperer le contenu intégral de cette partie.

Je crois qu'il faudrait arriver à ajouter cette entité "Diagnostic-Code" à la liste prévue par Indy, pour qu'il la retourne dans Header ou ExtraHeader, mais comment ?

J'ai essayé d'utiliser AddHeader ou assign sans succès...

PS : j'ai oublié de préciser que ce message est un DSN (delivery Status Notification). La partie que j'essaye de lire est l'entête du mail que j'avais envoyé et qui est retournée dans ce mail...