problème avec Idmessage.MessageParts pièces jointesRésolu

Question

Bonjour,
J'ai un problème pour afficher mes fichier joints des e-mails reçus.

j'arrive à afficher tous mes mails dans mon ListviewMail
(ListViewMail: TListView)

Lorsque je sélectionne une ligne dans mon TListView, j'aimerais afficher le nom du fichier joint et la taille de celui-ci dans mon label2.

voici mon code:
Uses IdAttachmentFile ;

procedure TForm1.ListViewMailSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  Index, j: Integer;
begin
for j := 0 to Pred(Idmessage.MessageParts.Count)-1 do <== (message d'erreur lorsque je ferme le programme)
  begin
  if Idmessage.MessageParts.Items[j] is TIdAttachmentFile then
      begin
      Item := ListView1.Items.Add;
      Item.Caption := Idmessage.MessageParts.Items[j].ContentType;
      Item.SubItems.Add(TIdAttachmentFile(Idmessage.MessageParts.Items[j]).ContentType);
  //TIdAttachmentFile(Idmessage.MessageParts.Items[j]).Filename;
      label2.Caption:= 'Pièce(s) Jointe(s):'+TIdAttachmentFile(Idmessage.MessageParts.Items[j]).Filename;
      end;
  end;
end;

En vous remercient d'avance
cordialement

Cirec · Answer

Bonjour,

soit tu fais 
for j := 0 to Pred(Idmessage.MessageParts.Count) do
ou
for j := 0 to Idmessage.MessageParts.Count-1 do
mais pas les deux

Cirec · Answer

Bon, 
j'ai repris ton code, je l'ai testé et après de toutes petites modifications 
il fonctionne parfaitement 
  // On va boucler du premier au dernier message sur le compte
  for i := 1 to idPop31.CheckMessages do
  begin
    // on vide le contenu de IdMessage avant relever un nouveau message
    IdMessage1.Clear;
    // On récupère le message complet
    idPop31.Retrieve(i,IdMessage1);

// Si on a plusieurs parties dans le mail alors on a une pièce jointe
    if IdMessage1.MessageParts.Count > 0 then
      for j := 0 to IdMessage1.MessageParts.count -1 do
      begin
        // Est-ce une partie texte du mail ?
        if IdMessage1.MessageParts.Items[j] is TIdText then
        begin
          // évite d'afficher un message vide
          if TIdText(IdMessage1.MessageParts.Items[j]).Body.text <> EmptyStr then
          // A vous de traiter comme bon vous semble cette partie du mail
            Showmessage(TIdText(IdMessage1.MessageParts.Items[j]).Body.text); // Par exemple
        end;

// Est-ce une pièce jointe ?
         if IdMessage1.MessageParts.Items[j] is TIdAttachment then
           With TIdAttachment(IdMessage1.MessageParts.Items[j]) do
           begin
             with OpenLoadStream do try
               ShowmessageFmt('Fichier joint: %s de %d Octets', [ContentTypeName, Size]);
             finally
               CloseLoadStream;
             end;

if not FileExists(ExtractFilePath(Application.ExeName) + FileName) then
                 // On sauvegarde le fichier dans le répetoire de l' application
                 SaveTofile(ExtractFilePath(Application.ExeName) + Filename);
           end;
      end; // for j
   end; // for i


ps: Pensez à utiliser la balise de code (Icône flèche vers la bas puis cliquer sur Delphi) pour poster vos exemples de code ça facilite grandement la lecture.
Merci

Utilisateur anonyme · Answer

bonjour Cirec, merci pour ton aide !!!
je sais pas, ça ne fonctionne toujours pas, je deviens fou !!!!
 
 lorsque je click sur la ligne du listview, j'ai toujours un message d'erreur à la ligne dessous;
if idMsg.MessageParts.Count > 0 then ***

raised exception "ErangeError with message range check error" 
soit il se passe rien 

Suite à ton message sur INDY, j'ai réussi à trouver sur le net des fichiers, et je les ai mis dans ma clause Uses :
IdMessage, IdAttachment, IdText, IdAttachmentFile,IdAttachmentMemory, IdTStrings, IdMailBox
lorsque je compile le projet, il y à bien les (*.dcu), avec les autres fichiers de mon projet.

voici ma procedure
procedure TForm1.ListViewMailClick(Sender: TObject);
var
 i, j, Index: Integer;
begin
If Not idPop31.Connected Then idPop31.Connect;
Screen.Cursor:=crHourGlass;
//POP3.Retrieve(ListViewMail.Selected.Index + 1 , idMsg);
if (idPOP31.CheckMessages >= 1) then
///for i := 1 to idPop31.CheckMessages do
//IdMessage1.Clear;
//idPop31.Retrieve(i, IdMessage1);
if (IdMessage1.MessageParts.Count > 0) then
begin
for i := 1 to idPop31.CheckMessages do
  begin
    IdMessage1.Clear;
    idPop31.Retrieve(i,IdMessage1);
      for j := 0 to IdMessage1.MessageParts.count -1 do
      begin
        if IdMessage1.MessageParts.Items[j] is TIdText then
        begin
          if TIdText(IdMessage1.MessageParts.Items[j]).Body.text <> EmptyStr then
            Showmessage(TIdText(IdMessage1.MessageParts.Items[j]).Body.text);
        end;
         if IdMessage1.MessageParts.Items[j] is TIdAttachment then
           With TIdAttachment(IdMessage1.MessageParts.Items[j]) do
           begin
             with OpenLoadStream do try
               ShowmessageFmt('Fichier joint: %s de %d Octets', [ContentTypeName, Size]);
             finally
               CloseLoadStream;
             end;
             if not FileExists(ExtractFilePath(Application.ExeName) + FileName) then
                 // On sauvegarde le fichier dans le répetoire de l' application
                 SaveTofile(ExtractFilePath(Application.ExeName) + Filename);
           end;
      end; // for j
   end; // for i
end;
Screen.Cursor:= crDefault;
Application.ProcessMessages;
End;

j'ai repris ton code, renomer mes composants pour plus de facilité, mais ça ne marche pas, je ne trouve pas mon erreur, 
merci beaucoup d'avance et excuses-moi pour le dérangement,
cordialement

Cirec · Answer

tu as mal placé cette condition if (IdMessage1.MessageParts.Count > 0) then procedure TForm1.ListViewMailClick(Sender: TObject); var i, j, Index : Integer; begin if not idPop31.Connected then idPop31.Connect; Screen.Cursor := crHourGlass; //POP3.Retrieve(ListViewMail.Selected.Index + 1 , idMsg); if (idPOP31.CheckMessages >= 1) then ///for i := 1 to idPop31.CheckMessages do //IdMessage1.Clear; //idPop31.Retrieve(i, IdMessage1); // ******* Modification ****** IdMessage1 n'est pas encore valide ici //if (IdMessage1.MessageParts.Count > 0) then // **** supprimé begin for i := 1 to idPop31.CheckMessages do begin IdMessage1.Clear; idPop31.Retrieve(i, IdMessage1); // ****** modification ************ if (IdMessage1.MessageParts.Count > 0) then // déplacé ici for j := 0 to IdMessage1.MessageParts.count - 1 do begin if IdMessage1.MessageParts.Items[j] is TIdText then begin if TIdText(IdMessage1.MessageParts.Items[j]).Body.text <> EmptyStr then Showmessage(TIdText(IdMessage1.MessageParts.Items[j]).Body.text); end; if IdMessage1.MessageParts.Items[j] is TIdAttachment then with TIdAttachment(IdMessage1.MessageParts.Items[j]) do begin with OpenLoadStream do try ShowmessageFmt('Fichier joint: %s de %d Octets', [ContentTypeName, Size]); finally CloseLoadStream; end; if not FileExists(ExtractFilePath(Application.ExeName) + FileName) then // On sauvegarde le fichier dans le répetoire de l' application SaveTofile(ExtractFilePath(Application.ExeName) + Filename); end; end; // for j end; // for i end; Screen.Cursor := crDefault; Application.ProcessMessages; end; cette fois ça doit/devrait aussi fonctionner chez toi ;) ensuite, merci d'avoir essayé d'utiliser la balise code mais encore faut-il placer le code entre les balises et non à la fin ^^ < code delphi> mettre le code ici Cordialement,

Utilisateur anonyme · Answer

bonsoir, ça y est !!! ça marche !!! voivi mon code procedure TForm1.ListViewMailClick(Sender: TObject); var i, j, Index: Integer; Item : TListItem; Attachment: TIdAttachment; FileName: String; begin Screen.Cursor:=crHourGlass; if not IdPop31.connected then idPop31.connect; IdMessage1.Clear; Memo1.Clear; for i := 1 to idPop31.CheckMessages do <= 25 messages *** begin /// modification de idPOP31 idPop31.Retrieve(ListViewMail.Selected.Index + 1 , idMessage1); StaticText1.Caption:= 'De : '+ IdMessage1.From.Address; StaticText2.caption:= 'À : '+ idMessage1.Recipients.EMailAddresses; StaticText3.Caption:= 'Object : '+ idMessage1.Subject; StaticText4.Caption:= 'Date : '+ FormatDateTime('dd/mm/yyyy à hh:mm', idMessage1.Date); if IdMessage1.MessageParts.Count > 0 then for j := 0 To (idMessage1.MessageParts.Count) -1 do begin if TIdText(IdMessage1.MessageParts.Items[j]).Body.text <> EmptyStr then begin Showmessage(TIdText(IdMessage1.MessageParts.Items[j]).Body.text); **** <= le message s'affiche 25 fois (idPop31.CheckMessages = 25 ) puis, il s'affiche en HTML 25 fois aussi Memo1.Lines.Add(TIdText(IdMessage1.MessageParts.Items[j]).Body.text) // texte +code HTML dans le memo autant de fois que idPOP31.checkMessages end; if IdMessage1.MessageParts.Items[j] is TIdAttachment then with TIdAttachment(IdMessage1.MessageParts.Items[j]) do begin with OpenLoadStream do try ShowmessageFmt('Fichier joint: %s de %d Octets', [ContentTypeName, Size]); --- MIME , size aucune info finally CloseLoadStream; end; //if not FileExists(ExtractFilePath(Application.ExeName) + FileName) then /// SaveTofile(ExtractFilePath(Application.ExeName) + Filename); end; end; //fin de boucle j end; // fin de boucle i Screen.Cursor:= crDefault; End; idPop31.Disconnect; /// sur le OnClose de FormClose() Mais par contre, j'ai la même "raise exception" erreur lorsque je sélectionne une ligne avec fichier joint ou que le programme ne peut pas lire le mail Voilà, un grand merci pour ton aide cordialement

Cirec · Answer

re,

en relisant tes messages je me rend compte d'une chose qui pourrait bien expliquer ton souci.

tu as dit:j'ai les fichiers , mais * .dcu*, pas les fichiers *.pas* ... 
Suite à ton message sur INDY, j'ai réussi à trouver sur le net des fichiers, et je les ai mis dans ma clause Uses :
IdMessage, IdAttachment, IdText, IdAttachmentFile,IdAttachmentMemory, IdTStrings, IdMailBox
lorsque je compile le projet, il y à bien les (*.dcu), avec les autres fichiers de mon projet.  
1°) tant tu possèdes les *.dcu c'est suffisant pas besoin des *.pas
2°) les *.pas que tu as trouvé sur le net ne sont peut être pas de la bonne version !
3°) les *.dcu qui en résultent ne sont certainement pas correcte.

il te faut donc retirer les *.pas et les *.dcu associés de Indy, ceux que tu as toi même ajoutés, du répertoire de ton projet. (par mesure de sécurité tu fais une copie du projet au cas ou une erreur se glisserait par là ;) )

Maintenant tu peux reconstruire (Maj+F9 très important) le code 
Si Indy est correctement installé et son répertoire recensé dans l'IDE ton programme devrait fonctionner ;)

Cordialement,

Problème avec Idmessage.MessageParts pièces jointes

6 réponses

Votre réponse

Discussions similaires