und nochmal Indy, diesmal IdMessage

Jansen

Ach so, das ist ja gaaaanz was anderes!

Du hast also nur ein Vorauswahl-Tool implementiert, die "Massenabholung" lässt du von einem externen Programm erledigen, welches dann intern selbst nach Prinzip a) arbeitet.

Ich denke aber, dass es Toadie eigentlich um einen mehr oder weniger vollwertigen Email-Client geht, der die Mails selbst lokal verwaltet.

Andidreas

Genau so isses

Toadie

ok habs so probiert aber ohne wirkung. also langsam verzweifle ich

Andidreas

Was genau funktioniert nicht. Vor allem darauf achten was für eine E-Mail Du bekommst, ob Text oder HTML.

Toadie

Es ergibt keine änderung, problem wie oben ist immer noch. Meine Test Emails sind immer nur als Text gesendet.

Andidreas

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->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);

                    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);
                    EmailInhalt->Lines->Add(frmMain->Message->Body->Text);frmMain->Message->Clear();
                    Message->Clear();
                }// for
            }// if
            frmMain->POP3->Disconnect();
        }// if

Versuchs mal so rum.

MfG
Andidreas

[ Dieser Beitrag wurde am 06.01.2003 um 14:12 Uhr von Andidreas editiert. ]

Andidreas

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->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);

                    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);
                    EmailInhalt->Lines->Add(frmMain->Message->Body-Text);             
                    frmMain->Message->Clear();
                }// for
            }// if
            frmMain->POP3->Disconnect();
        }// if

Versuchs mal so rum

MfG
Andidreas

xellon

Hi!

sollen deine mails im html-format gesendet werden?

Andidreas

Lesen lernen . Er sendet nicht sondern holt seine eMails ab.

xellon

Es ergibt keine änderung, problem wie oben ist immer noch. Meine Test Emails sind immer nur als Text gesendet.

Ich kann lesen , habe aber nicht mitgekriegt das es noch eine seite gebt.

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?