Email mit Indy verschicken

[Chrissi91]

danke ... kannst ihn mir ja mal per pn schicken ... dann weiß ich, was ich noch einbauen kann ;)

[emsländer]

Zitat:

Zitat von Chrissi91

danke ... kannst ihn mir ja mal per pn schicken ... dann weiß ich, was ich noch einbauen kann ;)

Dann wirst Du aber wieder nur motzen, weil ich dort Komponenten drin habe, die NICHT Freeware sind


Gruss

EL

[Chrissi91]

egal ... ich brauch ja nur ein paar ideenanregungen ...

[Chrissi91]

Sry wegen Doppelpost, aber ich verstehe eines nicht:

Mein Code:

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 i: integer;
 adressen: array[1..1000] of string;
begin
 speedbutton3.Enabled:=False;
 try
 with email do
  begin
   Clear;
   From.Text := Trim(edit3.Text);
    for i:= 1 to listbox1.Items.count do
     begin
      Recipients.Add.Text := trim(listbox1.Items[i]);
     end;
   Subject := Trim(edit2.Text);
   Body.Assign(memo1.Lines);
  end;
 with idsmtp do
  begin
   Connect;
    try
     Send(email);
    finally
   Disconnect;
  end;
 end;
 finally
  speedbutton3.Enabled:=True;
 end;
end;

Im Anhang ein Screenshot von einer Fehlermeldung.

P.S.: Weiß jemand, wie ich HTML-Code aktivieren kann? Ich möchte sozusagen auch einen banner einfügen können, etc.: sowas halt: <a href>http://blabliblu...</a> oder wie auch immer

[Jelly]

Die Listbox Items laufen von 0..count-1 und nicht von 1..Count :zwinker:

[Chrissi91]

Also nicht:

Delphi-Quellcode:

for i:= 1 to listbox1.Items.count do 
 begin 
  Recipients.Add.Text := trim(listbox1.Items[i]); 
 end;

Sondern:

Delphi-Quellcode:

for i:= 0 to listbox1.Items.count-1 do 
 begin 
  Recipients.Add.Text := trim(listbox1.Items[i]); 
 end;

Richtig?

[Chrissi91]

Aber bei dm meckert er auch wieder.

[Jelly]

was bitte nützt mir dieser nichtsaussagekräftige Screenshot... Debug doch mal deine Anwendung und grenz den Fehler ein. So kann Dir doch kein Mensch helfen...

[Chrissi91]

tut mir leid, aber was soll ich denn machen? ich hab schon vieles versucht, geändert, etc. den code habe ich auch schon mehrmals gepostet. was soll ich denn deiner meinung nach jetzt tun?

[Jelly]

Du musst doch eingrenzen können, in welcher Zeile der Fehler auftritt. Statt dein Programm normal mit F9 zu starten, setze doch mal einen Haltepunkt in die erste Zeile der Prozedur. danach gehst Du Zeile für Zeile mit F8 durch den Debugger.