Probleme mit Indy SMTP Komponenten

[SnuffMaster23]

Hi Leute,

ich bin auch mal wieder da und hab gleich zwei Fragen:

1. Wie kommt eine Mail vom TIdSMTP zu TIdSMTPServer?
2. Wie kommt die Mail von TIdSMTPServer weiter zum Server des Empfängers?

Ich ruf beim Client folgendes auf: Connect - Send - Disconnect.
Bei Send mault der Server immer "Bad command sequence".
Was will der Server denn noch hören, der Client kann ja sonst nix mehr!?!
Ich hab schon stundenlang ( :!: :!: ) die OH gewälzt und komm einfach nicht weiter. :wall:

Die zweite Frage ist wohl eher ein Informationsdefizit/Verständnisproblem.

Helft mir da bitte raus!

Snuffi

[SnuffMaster23]

*push*

He Leute, was los??
So kenn ich euch ja gar nicht.
Weiß keiner, was ich da anstellen muss?

Snuffi

[SnuffMaster23]

Sodala,

Die Antwort auf die zweite Frage hab ich mittlerweile (theoretisch). Nur wie finde ich einen Exchange-Server?

PS: Mögt ihr mich nicht mehr? :(
Ist das Problem so knifflig? :?: :?:
Hab ich den Titel schlecht formuliert? :oops:

[inherited]

wie wärs ma mitn bissel qt

[SnuffMaster23]

Nagut, das hier ist mein "Senden"-Knopf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Adresses: string;
begin
  with IdMessage1 do
  begin
    Clear;
    From.Address := Edit1.Text;

    Adresses     := Edit2.Text;
    repeat
      Recipients.Add.Address := copy(Adresses, 0, IfThen(Pos(';', Adresses) > 0, Pos(';', Adresses), Length(Adresses)));
      Adresses               := copy(Adresses, Pos(';', Adresses) + 1, Length(Adresses));
    until Pos(';', Adresses) = 0;

    Adresses := Edit3.Text;
    repeat
      BccList.Add.Address := copy(Adresses, 0, IfThen(Pos(';', Adresses) > 0, Pos(';', Adresses), Length(Adresses)));
      Adresses            := copy(Adresses, Pos(';', Adresses) + 1, Length(Adresses));
    until Pos(';', Adresses) = 0;

    ContentType := 'text/' + IfThen(RadioButton1.Checked, 'plain', 'html');
    Body        := Memo1.Lines;
    Sender      := From;
    Subject     := Edit4.Text;

    case ComboBox1.ItemIndex of
      0: Priority := mpHighest;
      1: Priority := mpHigh;
      2: Priority := mpNormal;
      3: Priority := mpLow;
      4: Priority := mpLowest;
    end;

    GenerateHeader;
  end;

  IdSMTP1.MailAgent := IfThen(Edit5.Text = '', 'mySMTP', Edit5.Text);
  IdSMTP1.Connect;
  IdSMTP1.Authenticate;
  IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
end;

Und das hier ist der Server:

Delphi-Quellcode:

procedure TForm1.IdSMTPServer1UserLogin(ASender: TIdSMTPServerContext;
  const AUsername, APassword: string; var VAuthenticated: Boolean);
begin
  if (AUsername = 'mySMTP') and (APassword = 'mySMTP') then
    VAuthenticated := true;
end;

procedure TForm1.IdSMTPServer1Connect(AContext: TIdContext);
begin
  Context := AContext;
end;

procedure TForm1.IdSMTPServer1MsgReceive(ASender: TIdSMTPServerContext;
  AMsg: TStream; var LAction: TIdDataReply);
begin
  LAction := dOk;
end;

procedure TForm1.IdSMTPServer1MailFrom(ASender: TIdSMTPServerContext;
  const AAddress: string; var VAction: TIdMailFromReply);
begin
  VAction := mAccept;
end;

procedure TForm1.IdSMTPServer1Execute(AContext: TIdContext);
begin
//
end;

procedure TForm1.IdSMTPServer1RcptTo(ASender: TIdSMTPServerContext;
  const AAddress: string; var VAction: TIdRCPToReply; var VForward: string);
begin
  VForward := 'Is ja gut...';
  VAction := rAddressOk;
end;

<EDIT>: Mit Telnet kann ich von Hand Mails an den Server schicken.

[inherited]

Zitat:

Zitat von SnuffMaster23

Nagut, das hier ist mein "Senden"-Knopf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Adresses: string;
begin
  with IdMessage1 do
  begin
    Clear;
    From.Address := Edit1.Text;

    Adresses     := Edit2.Text;
    repeat
      Recipients.Add.Address := copy(Adresses, 0, IfThen(Pos(';', Adresses) > 0, Pos(';', Adresses), Length(Adresses)));
      Adresses               := copy(Adresses, Pos(';', Adresses) + 1, Length(Adresses));
    until Pos(';', Adresses) = 0;

    Adresses := Edit3.Text;
    repeat
      BccList.Add.Address := copy(Adresses, 0, IfThen(Pos(';', Adresses) > 0, Pos(';', Adresses), Length(Adresses)));
      Adresses            := copy(Adresses, Pos(';', Adresses) + 1, Length(Adresses));
    until Pos(';', Adresses) = 0;

    ContentType := 'text/' + IfThen(RadioButton1.Checked, 'plain', 'html');
    Body        := Memo1.Lines;
    Sender      := From;
    Subject     := Edit4.Text;

    case ComboBox1.ItemIndex of
      0: Priority := mpHighest;
      1: Priority := mpHigh;
      2: Priority := mpNormal;
      3: Priority := mpLow;
      4: Priority := mpLowest;
    end;

    GenerateHeader;
  end;

  IdSMTP1.MailAgent := IfThen(Edit5.Text = '', 'mySMTP', Edit5.Text);
  IdSMTP1.Connect;
  IdSMTP1.Authenticate;
  IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
end;

Und das hier ist der Server:

Delphi-Quellcode:

procedure TForm1.IdSMTPServer1UserLogin(ASender: TIdSMTPServerContext;
  const AUsername, APassword: string; var VAuthenticated: Boolean);
begin
  if (AUsername = 'mySMTP') and (APassword = 'mySMTP') then
    VAuthenticated := true;
end;

procedure TForm1.IdSMTPServer1Connect(AContext: TIdContext);
begin
  Context := AContext;
end;

procedure TForm1.IdSMTPServer1MsgReceive(ASender: TIdSMTPServerContext;
  AMsg: TStream; var LAction: TIdDataReply);
begin
  LAction := dOk;
end;

procedure TForm1.IdSMTPServer1MailFrom(ASender: TIdSMTPServerContext;
  const AAddress: string; var VAction: TIdMailFromReply);
begin
  VAction := mAccept;
end;

procedure TForm1.IdSMTPServer1Execute(AContext: TIdContext);
begin
//
end;

procedure TForm1.IdSMTPServer1RcptTo(ASender: TIdSMTPServerContext;
  const AAddress: string; var VAction: TIdRCPToReply; var VForward: string);
begin
  VForward := 'Is ja gut...';
  VAction := rAddressOk;
end;

<EDIT>: Mit Telnet kann ich von Hand Mails an den Server schicken.

hmmmm, sieht ganz richtig aus,


besser ist hier

Delphi-Quellcode:

  IdSMTP1.Connect;
  IdSMTP1.Authenticate;
  IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;

das da

Delphi-Quellcode:

  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage);
  finally
    IdSMTP1.Disconnect;
  end;

aber sonst kann ich keinen fehler bzw etwas vergessenes entdecken
überprüf noch mal IdSMTP1.AuthenticationType, sonst weiss ichs auch nich.
Am Server wirts ja nich liegen, wenns via Telnet klappt

[SnuffMaster23]

Das mit dem try ist mir klar, ist ja jetz bloß zum ausprobieren.

Und das Authenticate kann man laut OH weglassen, das macht Send wenn nötig.
Hab ich auch schon probiert, geht genausowenig.

trotzdem danke schonmal

Snuffi