und nochmal Indy, diesmal IdMessage

Toadie

GEHT NICHT. Zeigt immer noch NUR den Inhalt einer Email an...isch krieg nochen kind *grr*

xellon

wenn ich richtig verstanden habe, du willst dir die headers hollen und prüffen ob es eine spam ist, oder?

Andidreas

Versuchs doch mal so:

// Mail-Body holen
Message->Clear() // Letzten Inhalt löschen
pop->Connect();  // Verbinden
pop->Retrieve(ListView1->Selected->Index + 1, Message); // Nachricht holen
pop->Disconnect(); // Verbindung beenden
EMailInhalt->Lines->Add(Message->Body->Text); // Body in Memo schreiben

Toadie

habs jetzt so, da kommt dann allerdings ein Exception Error mit Access violation bla bla

frmMain->POP3->Host = EmailAccounts->ReadString("0", "POP3", "");
            frmMain->POP3->Port = StrToInt(EmailAccounts->ReadString("0", "POP3Port", ""));
            frmMain->POP3->UserId = EmailAccounts->ReadString("0", "Konto", "");
            frmMain->POP3->Password = EmailAccounts->ReadString("0", "Passwort", "");

            frmMain->Message->Clear(); // Letzten Inhalt löschen

            frmMain->POP3->Connect();
            frmMain->POP3->CheckMessages();
            frmMain->POP3->RetrieveMailBoxSize();

            int mcount = frmMain->POP3->CheckMessages();

            if(mcount > 0)
            {
                for (; mcount > 0; mcount--)
                {
                    //frmMain->POP3->Retrieve(mcount, frmMain->Message);
                    frmMain->POP3->Retrieve(frmEmailsEmpfangen->EmpfangeneEmails->Selected->Index + 1, frmMain->Message);
                    TListItem *InsertItem =
                    frmEmailsEmpfangen->EmpfangeneEmails->Items->Add();

                    InsertItem->Caption = frmMain->Message->From->Text;
                    InsertItem->SubItems->Add(frmMain->Message->Subject);
                    InsertItem->SubItems->Add(frmMain->Message->Date);
                    InsertItem->SubItems->Add(frmMain->Message->Priority);
                    //frmEmailsEmpfangen->EmailInhalt->Lines->Add(frmMain->Message->Body->Text);
                    //frmMain->Message->Clear();
                }// for
            }// if
            frmMain->POP3->Disconnect();
            frmEmailsEmpfangen->EmailInhalt->Lines->Add(frmMain->Message->Body->Text);

Eßer

In welcher Zeile kommt die Access Violation denn?