Discussion :

[Luxxx]

bonjour,

Je reviens à la charge avec un nouveau soucis pour mon application delphi 7 qui utilise les composants indy de messagerie.. en l'occurence le pop et idmessage...

precedemment j'avais un soucis pour les mails formats html mais ceci est reglé par contre je suis tombé sur un probleme que je n'explique pas..

rappel de l'application : il s'agit d'un programme qui verifie les mails et qui recupere les pieces jointes automatiquement pour les copier ds un repertoire (type de piece traité : fichier texte uniquement)..

il existe un type de mail qui ne passe pas du tout.. en faisant du pas à pas ds le programme on se rends compte qu'il ne trouve pas du tout la piece jointe avec tidattachement..

ex:

Code :

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

 if IdMessage1.MessageParts.Items[j] is TidAttachment then

il ne passe pas cette condition ce qui fait que le mail n'est pas traité...

comme s'il ne detectait pas les differentes partis du mail..

voici ci dessous un mail qui passe :

This is a multi-part message in MIME format

--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: text/plain
Content-Transfer-Encoding: 7bit


--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: application/octet-stream;
name="LUXURE149200715166.txt"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="LUXURE149200715166.txt"

TFVYVVJFICAgMTQvMDkvMjAwNzIzMDQwNSAgICAgICAgMjEwME1kal9sdXhAeWFob28uZnIgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCkxVWFVSRSAgIDE0LzA5
LzIwMDcyMzA0MDcgICAgICAgICAzMDBNZGpfbHV4QHlhaG9vLmZyICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgDQo=

--=_NextPart_2rfkindysadvnqw3nerasdf--

voici un mail qui passe pas :

Ceci est un message au format MIME en plusieurs parties.

--XWDBoundary_HTML_1705650049
Content-Type: text/plain;
charset=iso-8859-1
Content-Transfer-Encoding: 7bit


--XWDBoundary_HTML_1705650049
Content-Type: application/octet-stream
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="PELEMANS14092007151304.txt"
Content-Description: text/plain

UEVMRU1BTlMgMTQvMDkvMjAwNzUyMDM5MSAgICAgICAgICAxNkdnZXJhbGlAZ2VyYWxpLmZyICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANClBFTEVNQU5TIDE0LzA5
LzIwMDcyMzA3NjAgICAgICAgICAxOTJNZ2VyYWxpQGdlcmFsaS5mciAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgDQpQRUxFTUFOUyAxNC8wOS8yMDA3MjIwMjQwICAg
ICAgICAgIDE1TWdlcmFsaUBnZXJhbGkuZnIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIA0KUEVMRU1BTlMgMTQvMDkvMjAwNzUyMDU1MCAgICAgICAgICAgNk1nZXJh
bGlAZ2VyYWxpLmZyICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAN
ClBFTEVNQU5TIDE0LzA5LzIwMDcyMzA0MDUgICAgICAgICA0MzJNZ2VyYWxpQGdlcmFsaS5mciAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQpQRUxFTUFOUyAxNC8w
OS8yMDA3MjMwNDAxICAgICAgICAgICA2TWdlcmFsaUBnZXJhbGkuZnIgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0K

--XWDBoundary_HTML_1705650049--

on dirait que c'est la separation des differentes partis qui n'est pas reconnu

--XWDBoundary_HTML_1705650049-- contre --=_NextPart_2rfkindysadvnqw3nerasdf-- vu que le reste à l'air identique...

si qq'un avait déjà été confronté au probleme. je vous remercie d'avance

j'oubliais un petit detail amusant.. les mails passent par un smtp microsoft exchange... par contre quand il passe par un smtp classique de fournisseur internet pas de soucis... c''est à ne rien y comprendre...

[Rayek]

Je pense que tu n'utilises pas le bon type pour l'attachement.

au lieu de :

Code :

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

1
2
 
 if IdMessage1.MessageParts.Items[j] is TidAttachment then

Mets:

Code :

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

1
2
 
 if IdMessage1.MessageParts.Items[j] is TAttachment then

[Luxxx]

lorsque j'utilise Tattachement.. il ne trouve pas le fichier dcu correspondant.. j'ai la version indy 9.00.10 installé pour le moment... dois je faire une mise à jour ? j'ai bien reccuperé des fichiers pour protocoles indy mais quand je lui indique le repertoire de recherche pour trouver le dcu il me liste toute une serie d'erreur ds idUri et ds IdGlobalprotocol... j'ai un peu de mal pour la methode de mise à jour de ces composants...

[Rayek]

lorsque j'utilise Tattachement.. il ne trouve pas le fichier dcu correspondant.. j'ai la version indy 9.00.10 installé pour le moment... dois je faire une mise à jour ?

Je pense qu'il serait mieux de la faire.

[tourlourou]

je me souviens avoir eu un pb avec Indy 9 et certains messages.

les boundaries sont parfois mal remplacés par Indy, et du coup, il ne peut interpréter le message et ses parties.

il doit y avoir une propriété qui lui demande de ne pas décoder
ah, ça y est, je viens de retrouver :

Code :

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

1
2
  Result:=TIdMessage.Create(Application);
  Result.NoDecode:=True; // pour éviter qu'il ne s'emmêle dans les boundaries => format original

[Luxxx]

vous utilisez quelle version de indy ? j'arrive jamais à utiliser la variable TAttachment... testé version 10 ou 9 (derniere version sur le site http://www.atozed.com/indy/plus/Files.EN.aspx) .. soit il trouve pas TIdAttachment ajouté dans les uses soit il sait pas ce qu'est TAttachment bien que l'unité soit ds les uses.. je craque!!

[tourlourou]

essaye :

Code :

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

IdMessage1.MessageParts.Items[j].DisplayName ='TidAttachment' then

(DisplayName à vérifier...)

[Luxxx]

merci la syntaxe est bonne mais la mise en application est ubuesque!!

quand je fais

Code :

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

showmessage(IdMessage1.MessageParts.Items[j].DisplayName);

il me marque "TidAttachment" ds la fenêtre d'info donc tout va bien

mais quand je fais

Code :

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

if IdMessage1.MessageParts.Items[j].DisplayName ='TidAttachment' then showmessage('piece');

et bien il affiche jamais le mot le showmessage...

[Rayek]

merci la syntaxe est bonne mais la mise en application est ubuesque!!

quand je fais

Code :

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

showmessage(IdMessage1.MessageParts.Items[j].DisplayName);

il me marque "TidAttachment" ds la fenêtre d'info donc tout va bien

mais quand je fais

Code :

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

if IdMessage1.MessageParts.Items[j].DisplayName ='TidAttachment' then showmessage('piece');

et bien il affiche jamais le mot le showmessage...

Essai :

Code :

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

1
2
 
if lowercase(trim(IdMessage1.MessageParts.Items[j].DisplayName)) ='tidattachment' then showmessage('piece');

Pour ma part j'utilise Indy10.
Dans les uses de ton unité tu as bien mis IdAttachment et IdText ?