Email mit Indy verschicken

[Chrissi91]

achso ... ich dachte, das wäre klar, weil ich nur eins geändert habe, und es seitdem nicht mehr funktioniert.:

Recipients.Add.Text := trim(listbox1.Items[i]);

[Jelly]

Ich würd das Hinzufügen einer Adresse so machen:

Delphi-Quellcode:

...
var
 NewAddress : TIDEMailAddressItem ;
begin
    ...
    NewAddress := email.Recipients.Add ;
    NewAddress.Address := trim(listbox1.Items[i]);
end;

Die Unit IdEMailAddress nicht vergessen einzubinden.

[Chrissi91]

Selber Fehler wie sonst.

Ich poste noch mal den Code, wie er jetzt grade ist:

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 i: integer;
 adressen: array[1..1000] of string;
 NewAddress : TIDEMailAddressItem ;
begin
 speedbutton3.Enabled:=False;
 try

    NewAddress := email.Recipients.Add ;
    NewAddress.Address := trim(listbox1.Items[i]);

 (**for i:= 0 to listbox1.Items.count-1 do
  begin
   email.Recipients.Add.Text := trim(listbox1.Items[i]);
  end;     **)
 with email do
  begin
   Clear;
   From.Text := Trim(edit3.Text);
   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;

p.s. anbei mein projekt ... vll liegt es ja auch an was anderem ...

[Jelly]

Sorry, aber dein Quellcode im Anhang überschneidet sich nicht mit dem im Post. du hast aber wieder das gleiche Problem. Bei dieser Zeile:
NewAddress.Address := trim(listbox1.Items[i]); Überleg mal, was für einen Wert i hat
Ausserdem willst Du ja alle Adresse aus deiner Listbox1 in die Recipients Liste legen... Kombinier doch mal ein bischen

Weisst Du überhaupt was Du tust in deinem Code, oder sind das einfach nur ein paar zusammenwürfelte Codeschnippsel ?

[Chrissi91]

Mir ist ziemlich alles klar, aber nachdem ich alles 10 Mal geändert habe, sind da sicherlich recht viele Fehler drin. Ich geh nochmals alles durch

[Chrissi91]

Was mache ich falsch? Bei Breakponits, Fehler eingrenzen, logisch mitdenken müsste es eigentlich klappen. Ich denke mal, es liegt an dem Befehl

email.Recipients.Add.Text := adressen[i]; bzw.

email.Recipients.Add.Text := trim(adressen[i]); Ich bekomme immer den Fehler: Project1.exe raised exception class EldSMTPReplyError with message ''. Process stopped. Use run or step to continue.

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 i,a: integer;
 adressen: array[1..1000] of string;
begin
 speedbutton3.Enabled:=False;
 try
 a:=0;
 for i:= 0 to listbox1.Items.count-1 do
  begin
   a:=a+1;
   adressen[a] := listbox1.Items[i];
   //memo1.lines.add(adressen[a]);
  end;
 for i:= 1 to a do
  begin
   email.Recipients.Add.Text := adressen[i]; //auch wenn ich es so mache, klappt es nicht: email.Recipients.Add.Text := trim(adressen[i]);
  end;
 with email do
  begin
   Clear;
   From.Text := Trim(edit3.Text);
   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;

[Jelly]

Zitat von Chrissi91:

Project1.exe raised exception class EldSMTPReplyError with message ''. Process stopped. Use run or step to continue.

Das deutet doch mal darauf hin, dass mit dem SMTP was nicht stimmt. Da kommen aber einige Punkte in Betracht:

• Stimmt dein Login
• Blockt dir eine Firewall was
• Läuft der Server, sprich hast du die Serverdaten rcihtig eingetragen

[Chrissi91]

Wenn ich nur eine Emailadresse habe, und die über ein Edit eingebe, funktioniert es ja ...

Firewall hab ich net

[Chrissi91]

So, kurzzeitig hat es funktioniert, aber es klappt immer noch nicht einwandfrei. Hier der KOMPLETTE Code. Ich habe ihn etwas umgeschrieben. Vielleicht funktioniert er ja bei euch . Er meckert immer "IdSMTPReply". Ich bin mir aber sicher, dass meine Daten richtig sind, denn sie werden ja auch am Anfang akzeptiert.
Viele werden wahrcheinlich sagen, dass ich es umständlich gemacht habe beim Senden, weil ich nicht mehrere Adressen mit einem Mal schicke, sondern die gesamte Prozedure so oft ausgeführt wird, bis er alle Emails durch hat.

Naja, wie dem auch sei. Ich hoffe, ich finde bald das Problem. Wäre schön, wenn ihr mir sagen würdet, was ich falsch mache. Ich habe die Übergabe von den 2 Formen kontrolliert, Breakpoints gesetzt(leider zeigt Delphi keineWerte mehr an, wenn man ümit der Maus drüber geht), etc.

Was mache ich denn falsch?

[Chrissi91]

Versteht ihr mich nicht? Habe ich meine Frage nicht präzise genug gestellt? Habe ich irgendetwas anderes falsch gemacht? Oder warum ann mir keiner helfen? Ist es etwas Einzigartiges, was ich beantwortet haben möchte, oder ist es gar unmöglich?