AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Verständnissprob bei E-Mails vom pop3 mit TIdPOP3
Thema durchsuchen
Ansicht
Themen-Optionen

Verständnissprob bei E-Mails vom pop3 mit TIdPOP3

Ein Thema von Kedariodakon · begonnen am 24. Nov 2004 · letzter Beitrag vom 24. Nov 2004
 
Benutzerbild von Kedariodakon
Kedariodakon

Registriert seit: 10. Sep 2004
Ort: Mönchengladbach
833 Beiträge
 
Delphi 7 Enterprise
 
#1

Verständnissprob bei E-Mails vom pop3 mit TIdPOP3

  Alt 24. Nov 2004, 08:52
so ich lade E-Mails von einem Pop3 mit TIdPop3:

Delphi-Quellcode:
Procedure TfrmQGetMailsFromPop3.cmdGetMailsClick(Sender: TObject);
Var i:         Integer;
      aMSG:    TIdMessage;
      Flag:      TIdMessageFlags;
      sFlags:   String;
Begin
   lvMails.Clear;
   For i := 1 To aTQGMFP3.AvailableMails Do Begin
      sFlags   := '';

      aMSG      := TIdMessage.Create( Self );
      aTQGMFP3.TestIdPop3.Retrieve( i, aMSG );

      For Flag := mfAnswered To mfRecent Do Begin
         If Flag In aMSG.Flags   Then Begin
            If          Flag = mfAnswered   Then   sFlags := sFlags + ' mfAnswered '
            Else If   Flag = mfFlagged   Then   sFlags := sFlags + ' mfFlagged '
            Else If   Flag = mfDeleted   Then   sFlags := sFlags + ' mfDeleted '
            Else If   Flag = mfDraft      Then   sFlags := sFlags + ' mfDraft '
            Else If   Flag = mfSeen         Then   sFlags := sFlags + ' mfSeen '
            Else If   Flag = mfRecent      Then   sFlags := sFlags + ' mfRecent '
         End;
      End;

      With lvMails.Items.Add Do Begin
         Caption   := IntToStr( i );

         SubItems.Add( Trim( sFlags ) );

         Case aMSG.Priority Of
            mpHighest:   SubItems.Add( 'mpHighest' );
            mpHigh:         SubItems.Add( 'mpHigh' );
            mpNormal:      SubItems.Add( 'mpNormal' );
            mpLow:         SubItems.Add( 'mpLow' );
            mpLowest:      SubItems.Add( 'mpLowest' );
            Else             SubItems.Add( 'none???' );
         End;

         SubItems.Add( DateTimeToStr( aMSG.Date ) );

         SubItems.Add( aMSG.From.Address );
         SubItems.Add( aMSG.From.Name );
         SubItems.Add( aMSG.From.Text );

         SubItems.Add( aMSG.Sender.Address );
         SubItems.Add( aMSG.Sender.Name );
         SubItems.Add( aMSG.Sender.Text );

         SubItems.Add( aMSG.Subject );

         Data      := aMSG;
      End;
   End;
End;
Das sieht dann aus wie auf dem Bild:

Aber warum sind die Flags leer?
Was ist der Unteschied zwischen From und Sender?
Warum Ist da kein text im Body?
An was erkenn ich ob es ein reply ist?
Wie mach ich ein Reply?
Woran seh ich, dass er eine Lesebestätigung haben will?
Worann erkenn ich die und wie sende ich die?

Ich hoff mir kann wer helfen...

Bye
Angehängte Grafiken
Dateityp: jpg warum_144.jpg (158,1 KB, 40x aufgerufen)
Christian
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz