Einzelnen Beitrag anzeigen

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, 09: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
Miniaturansicht angehängter Grafiken
warum_144.jpg  
Christian
  Mit Zitat antworten Zitat