und nochmal Indy, diesmal IdMessage



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



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



  • 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. ]



  • 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



  • Hi!

    sollen deine mails im html-format gesendet werden?



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



  • 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.



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



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



  • 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
    


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


  • In welcher Zeile kommt die Access Violation denn?


Anmelden zum Antworten