und nochmal Indy, diesmal IdMessage

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?