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