Problem mit Indy SMTP

[Chrissi91]

Hi ,

ich habe mit den Indys einen Newslettersender geschrieben, jedoch gibt er beim Senden einen Fehler aus (s. Anhang.). Code habe ich auch angehängt. Ich sitze an dem Problem schon sehr lange. Was mache ich falsch?

Danke schon im Vorraus und euch allen schon ein gutes, gesunden, neues Jahr 2006

[3_of_8]

Spontan würde ich sagen, der Server gibt keine Antwort oder irgendeine Fehlermeldung oder eine falsche Antwort. Worans liegt: KA

[sakura]

@Chrissi: spare Dir in Zukunft solche Äusserungen, das führt nur zu Problem Alles rumgemeckere entfernt-

......

[Chrissi91]

Ich habe den Code mal formatiert (ihr dürft staunen. )

Das ganze auch im Anhang.

Delphi-Quellcode:

procedure Tfrmmain.btnSendClick(Sender: TObject);
var
 i: integer;
begin
 SMTP.Host:=editHost.Text;
 SMTP.Username:=EditUser.Text;
 SMTP.Password:=EditPasswort.Text;
 btnSend.Enabled:=False;
 try
  with email do
   begin
    Clear;
    From.Text:=Trim(edtFrom.Text);
    Subject:=Trim(edtSubject.Text);
    Body.Assign(memText.Lines);
   end;
 SMTP.Host:=editHost.Text;
 SMTP.Username:=EditUser.Text;
 SMTP.Password:=EditPasswort.Text;
 email.Recipients.add.Address:=trim('[e-mail]');
  for i:= 0 to ltbEmailAdress.count-1 do
   begin
    email.recipients.add.Address:=trim(ltbEmailAdress.items[i]);
   end;
   with smtp do
    begin
     Disconnect;
     Connect;
     try
      Send(email);
     finally
      showmessage('Email angekommen');
     end;
    end;
   except
    showmessage('Email nicht angekommen');
  end;
 btnSend.Enabled:=True;
end;

[easywk]

Hi. Bei den Indy-Komponenten ist bekannt, dass sie auch dann Exceptions auslösen, wenn etwas gut gegangen ist - zumindest in bestimmten Fällen. Außerdem meine ich, dass in deinem Code-Beispiel die except / finally-Anweisungen nicht in der richtigen Reihenfolge sind. Hier kommt der Code-Teil, wie ich es mache - und damit gibt es keine Probleme:

Delphi-Quellcode:

  // Verbinden
  try SMTP.Connect;
  except on E: Exception do
    begin
      MessageDlg(E.Message, mtError,[mbOk], E.HelpContext);
      Exit;
    end;
  end;
  // Senden
  try
    try SMTP.Send(IdMsgSend);
    except on E:Exception do
      begin
        MessageDlg(E.Message, mtError,[mbOk], E.HelpContext);
      end;
    end;
  finally
    SMTP.Disconnect;
  end;

cu
easywk