[Indy] Récupérer valeur clé "Diagnostic-Code"

Version imprimable

05/02/2008, 12h28
bib34690

[Indy] Récupérer valeur clé "Diagnostic-Code"
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:

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
05/02/2008, 14h17
Rayek
Citation:
Envoyé par 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:

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:

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)

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:

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)

Sinon tu peux faire comme ca :

Code:

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;

05/02/2008, 15h18
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 ...
05/02/2008, 15h35
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...
05/02/2008, 16h24
bib34690

j'ai peut-être 1 hypothèse :
Je pense que la partie que je cherche à lire est 1 pièce jointe, ce qui semble confirmé par le type tIdAttachment de cette partie.

Comment lire un mail en pièce jointe dans 1 mail ?
05/02/2008, 16h30
Rayek
Je vais peut être montrer un code faux (il faut tester ^^)
Code:

1 2 3 if TIdAttachment(IdMsg.MessageParts.Items[i]).MessageParts.Items[0] is TIdText then Showmessage(TIdAttachment(IdMsg.MessageParts.Items[i]).MessageParts.Items[0].Body.text);
[edit]
En fait je pense que tu cherches trop loin ton entête ^^

Essai de voir si tu as tes informations dans :
Code:

1 2 Showmessage(IdMessage.Headers.Text);
En fait tu ne récupères les entêtes que des parties du mail (IdText et IdAttachement) et pas l'information globale du mail qui est fournit par le le message en lui-même.
05/02/2008, 17h06
bib34690
La syntaxe qui plante pas est
Code:

1 2 3 4 if TIdAttachment(Items[nPartie]).MessageParts.Items[0] is TIdText then begin ShowMessage(TIdText(TIdAttachment(Items[nPartie]).MessageParts.Items[0]).Body.Text); end;
Le test "is TIdText" marche bien, mais .Body retourne toujours le corp principal, quelle que soit "nPartie". Header retroune toujours l'entete de la partie 0.
FileName est toujours vide..

quelle galère !!!
05/02/2008, 17h18
bib34690

TIdAttachmentFile(Items[i]).SaveToFile(MonFichier) generre 1 fichier qui contient l'intégralité des données que je cherche.

Il doit bien y avoir 1 moyen de récupérér ce contenu dans 1 variable.
Je ne vais qd meme pas être obligé de relire le fichier...
05/02/2008, 18h03
Rayek

J'ai édité mon post juste avant, je pense que tu n'as pas vu ma réponse
05/02/2008, 18h54
bib34690
Non, Showmessage(IdMessage.Headers.Text) affiche l'entete du message; il n'y a pas la partie qui m'interesse.

Je suis maintenant certain que la partie qui m'interesse est encapsulée en pièce jointe sans nom dans la partie du message.
Quand je fais le save expliqué ci-dessus, il manque les 2 1ères lignes de la partie :
Code:

1 2 3 Content-Description: Undelivered Message Content-Type: message/rfc822
ce qui semble confirmer que cette partie n'a que 2 lignes et le reste est dans 1 sous-partie de cette partie.

Il faut que je trouve 1 moyen de mettre cette sous-partie dans 1 message pour y acceder comme 1 autre message normal...

IdMsg.Body.Text réponds d'ailleurs "this is a MIME-encapsuled message"...

1 DSN est 1 mail avec 1 entete (sans interet ici), 1 Body qui contient "This is a MIME-encapsulated message" et 2 parties sous forme de pièce jointe.

Ces 2 parties (pièces jointes) sont 2 mails encapsulés.
Impossible de les lire avec Header ou Body.
Il faut donc Creer 1 Stream comme l'explique Mauricio pour charger 1 nouveau Mail à partir de chaque partie.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 (Var : IdMsg, IdMsgInPart: TIdMessage, lTmpStream: TMemoryStream, nPartie:TIdAttachment) lTmpStream := TMemoryStream.Create; IdMsgInPart := TIdMessage.Create(); nPartie.SaveToStream(lTmpStream);// tu met le contenu de ta PJ lTmpStream.Position := 0; With IdMsgInPart do begin Clear; LoadFromStream(lTmpStream); // tu recharges le contenu de ta PJ end; //--t'as 1 Id sur le mail encapsulé et son Header, Body, MessageMarts... Showmessage(IdMsgInPart.Headers.text); // par exemple
Bon, là ça s'applique à 1 DSN : il n'y a qu'un niveau d'encapsulation.
Dans 1 message classique, l'encapsulation peut-être infinie : Si je transfère 1 mail en PJ à qq, qui le retransfère en PJ a qq autre...tu peut arriver à des super niveaux d'encapsulation...
Voila pourquoi il faut que la procédure soit réentrante...un beau bordel.