Möchte in einem Programm ein einfachen Email oder Nachrichtensystem einbauen !!!

[Natcree]

Hallo habe ein Kleines Programm für unseren Sportverein geschrieben. Nunmehr kahn auch die Anfrage ob man hier nicht einen Chat oder Email oder Nachrichten System einbauen könnte. Dieser müsste Natürlich auch übers Internet gehen.

Ich habe Delphi 7. Indy 10 Componenten und noch wenig erfahrung mit den Indykomponenten.

Zudem Habe ich auch eine Eigene De Domain Die ich nutzten könnte.

Ich hoffe Ihr könnt mir bei der umsetzung ein Wenig helfen.

P.S. eine kleine Chat habe ich schon mit Anleitung ;).

Wie soll ich am besten beginnen

[scrat1979]

Ich habe mal eine ähnliche Funktion in meinem Dienstplan-Prgramm integriert.

Ich lasse das ganze über (m)einen FireBird-Datenbankserver laufen. Die "Mails" sind in einer Tabelle (ID, Betreff, Von, Zu, Datum, Nachricht o.ä.) gespeichert, nach dem Lesen wird entsprechend ein Flag gesetzt. Der Zugriff geht über IBDAC von DevArt. Sehr einfach zu realisieren und schnell programmiert....

Vorteil: Mails wären zentral in einer Datenbank gespeichert und auch so von Dir verwaltet, Du bist nicht auf eine Internetdomain bzw. auf einen E-Mail Account angewiesen.

Nachteil: Eigener (Firebird-)Server notwendig, der am besten 24h läuft und natürlich aufgesetzt werden muss (auch wenn das relativ einfach ist...)

[Bummi]

Du kannst Dich ja mal durch die Demos wühlen ...

[Natcree]

Ich habe denke ich schon einen Grossen Schritt gemacht nunmehr bastel ich an der Oberfläche. Andere Programmbenutzer sollen mich einen Kontakt hinzufügen können nur schmeisst er mir im Email Von einen solchen Wert rein <[e-mail]>

Wie Kriege ich die Beiden <> und alle zeichen danneben weg um es anschliessend in eine Datenbank zuspeichern.

[Natcree]

Das Problem Wäre dann auch gelöst

Delphi-Quellcode:

var
  s : String;
  begin
  s:='Max Mustermann<[e-mail]>';
  delete(s,1,pos('<',s));
  delete(s,length(s),1);
  label1.text:=s;
 end;

Nunmehr würde es mich interressieren wie ich mehrere Nachricht aufrufen kann zur zeit funktioniert es nur mit einer Nachricht. Er Empfängt die Daten liest den Absender in ein edit.text sowie Betreff in ein anderes. Die Nachricht selber zeigt er in einem Memo Feld an. wenn aber nun 2 oder mehr nachrichten eingehen sind sie verloren weil er nur die letzte anzeigt.

Habt Ihr Vorschläge für die Umsetzung ????

[DeddyH]

Zitat:

Zitat von Natcree (Beitrag 1208801)

Nunmehr würde es mich interressieren wie ich mehrere Nachricht aufrufen kann zur zeit funktioniert es nur mit einer Nachricht. Er Empfängt die Daten liest den Absender in ein edit.text sowie Betreff in ein anderes. Die Nachricht selber zeigt er in einem Memo Feld an. wenn aber nun 2 oder mehr nachrichten eingehen sind sie verloren weil er nur die letzte anzeigt.

Habe ich doch gestern schon gesagt. Du brauchst irgendeine Form der Listendarstellung, sei es eine ListView, ein StringGrid oder meinetwegen auch ein PageControl mit dynamisch erzeugten Tabsheets, die dann einen Frame enthalten.

[Natcree]

Super Habs hinbekommen..

Delphi-Quellcode:

if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then
   begin
     for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,index-1] := IdMessage1.From.Text;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[1,index-1]:= IdMessage1.Subject;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[2,index-1] := IdMessage1.body.GetText;
         {IdPOP31.Delete(index);}
       end;
     idmessage1.Free;
     IdPOP31.Disconnect;
     form3.show;
   end
 else
  IdPOP31.Disconnect; //Disconnected vom Server
end;

In der reihe sagt er mir variable Nachrichtenliste might not have been initialized

Delphi-Quellcode:

if Nachrichtenliste > 0 then

Stimmt was nicht mit dem source oder ist es nur wegen dem if Befehl???

[wicht]

Code:

if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then

Nachrichtenliste wird nur dann ein Wert zugewiesen, wenn idpop31.Connected ist. Wenn idpop31 nicht verbunden ist, könnte Nachrichtenliste irgendeinen Wert haben - dann würde dein Programm wahrscheinlich Probleme bekommen. Schreib über das "if idpop31.Connected" noch ein "Nachrichtenliste := 0;", dann ist die Warnung auch weg.

[Natcree]

Danke Dir

noch ein anderes Problem wenn ich im Stringgrid was drin stehen habe dann meckert bei erneuten email
abholen er kann die Daten wohl nicht schreiben weil schon was drin steht muss ich da noch ein if stringgrid1.cells[x,x]='' then ´... schreiben oder wie mache ich das am besten ???

[Natcree]

Wie kann ich mir das Datum aus dem Header holen???

[Sir Rufo]

Zitat:

Zitat von Natcree (Beitrag 1209028)

Danke Dir

noch ein anderes Problem wenn ich im Stringgrid was drin stehen habe dann meckert bei erneuten email
abholen er kann die Daten wohl nicht schreiben weil schon was drin steht muss ich da noch ein if stringgrid1.cells[x,x]='' then ´... schreiben oder wie mache ich das am besten ???

Zitat:

Zitat von Natcree (Beitrag 1209029)

Wie kann ich mir das Datum aus dem Header holen???

Schalt doch mal einen Gang runter und versuche die Lösung durch Eigenrecherche zu bekommen.

Eigentlich gilt ja auch pro Frage ein Thread (jo, geht ja alles um das email-Geraffel, und der nächste möchte sein Weltbeherrschungsprogramm komplett durchprogrammiert und diskutiert haben)

[EWeiss]

Zitat:

die Lösung durch Eigenrecherche zu bekommen.

Tut er ja.. Hier im Forum. ;)
Wo soll er sich sonst orientieren abgesehen davon. Wir haben doch alle mal angefangen

Die Definition "Eigenrecherche" kann weit bepflastert sein.
Wie auch immer.

gruss

[Natcree]

Zitat:

(jo, geht ja alles um das email-Geraffel, und der nächste möchte sein Weltbeherrschungsprogramm komplett durchprogrammiert und diskutiert haben)

So ein Quatsch. Ich versuche Viel über eigenrecherche in Erfahrung zu bringen und umzusetzen. Manchmal sieht man aber den Wald vor Bäumen nicht. Den Code fürs Email Senden und Empfangen habe ich mit aus ein duzend Threads zusammen gestellt und wo ich nicht weiter wusste habe ich gefragt.
Ich bin halt ein noob aber es macht mir spass zu proggen bzw. meinen vielleicht kleinen Horizont zu erweitern. Vorallem auch mal selber was hinzubekommen ohne Hilfe aus Threads oder dem Internet ist was tolles. Eingige von euch haben es gelernt oder studiert. Dafür kann ich dir Tips und Hilfe aus meinen Branchen geben. Wenn ich mich hier im Forum einbringen kann mache ich das gerne auch wenn es mal nicht so perfekt geschrieben und gecodet ist wie bei vielen anderen. Aber manchmal reichen kleine Denkanstösse aus sowie wie ein paar beitraege vorher Wo mir deddy H noch was mit auf dem weg gegeben hat es hat geholfen. ... SO Genug jetzt. Sir Rufo auf bestimmte Weise kann ich auch deinen Einwand verstehen.... . Un du hast Recht eine Frage ein Thread. Danke EWeiss für deine Unterstützung ;)

[Sir Rufo]

Ok, dann mal anders:

Auf welche Frage benötigst du noch eine Antwort?
Die von 21:40 oder die von 21:42?
Oder haben sich beide schon erledigt?

Für mich stellt es sich so dar, als ob die Frage von 21:40 sich schon erledigt hat und sich um 21:42 eine neue Frage ergeben hat, und du aber keine Zeit dafür hast, das mitzuteilen.

Die Frage nach dem Datum aus dem Header lässt sich sehr einfach selber beantworten, wenn man sich mal mit den Eigenschaften und Methoden von

Delphi-Quellcode:

TIdMessage

auseinandersetzt. (Eigenrecherche)

Wenn man damit nicht weiterkommt, dann immer her mit der Frage, die dann auch wesentlich präziser gestellt und beantwortet werden kann.

Das meine ich mit "einen Gang runterschalten".

[Natcree]

Die Frage mit dem Datum denke müsste sich mit dem Schnipsel geklärt haben

Delphi-Quellcode:

MailDatum   := IdMessage1.Date;

Sehe ich das Richtig?

[Sir Rufo]

Zitat:

Zitat von Natcree (Beitrag 1209042)

Die Frage mit dem Datum denke müsste sich mit dem Schnipsel geklärt haben

Delphi-Quellcode:

MailDatum   := IdMessage1.Date;

Sehe ich das Richtig?

:thumb: