indy mail auth

[HagBurt]

Hallo versuche den ganzen tag schon eine mail über IDsmtp zu senden:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 IdMessage1.Clear;

  IdSMTP1.Host := '217.72.192.157';

  IdMessage1.ContentType := 'text';
  IdMessage1.From.Address := '[e-mail]';
  IdMessage1.From.Name := 'test';
  IdMessage1.Subject := 'Test';
  IdMessage1.Recipients.Add.Address := 'empfä[e-mail]';
  IdMessage1.Body := Memo1.Lines;

try
    IdSMTP1.Connect;  //verbinden
  except

  try
    try
    IdSMTP1.Send(IdMessage1);  //senden
    finally 
      IdSMTP1.Disconnect;  //Verbindung trennen
    end; 
  except
  end; 
end;

ich bekomme aber keine mail und auch keine fehlermeldung.
findet jemand den fehler auf anhieb???

Danke im vorraus...

P.S. I'm a BEGINNER :cry:

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Ultimator]

Delphi-Quellcode:

try 
IdSMTP1.Send(IdMessage1); //senden 
finally 
IdSMTP1.Disconnect; //Verbindung trennen 
end; 
end;

Mach das mal besser so. :-)
try... finally ist braucht man, wenn man etwas probieren will und danach eine Anweisung auf jeden Fall ausgeführt werden soll, try...except nur, wenn man etwas versucht, und wenn das nicht klappt, soll eine andere Anweisung ausgeführt werden.

[HagBurt]

Code:

procedure TForm1.Button2Click(Sender: TObject);
begin
 IdMessage1.Clear;

  IdSMTP1.Host := 'mein.smtp.de';
  IdMessage1.Recipients.EMailAddresses := 'empfä[e-mail]';
  IdMessage1.ContentType := 'text';
  IdMessage1.From.Address := '[e-mail]';
  IdMessage1.From.Name := 'test';
  IdMessage1.Subject := 'Test';
  IdMessage1.Body := Memo1.Lines;


    IdSMTP1.Username := '[e-mail]';
    IdSMTP1.Password := 'xxxxxxxx';
    IdSMTP1.Connect;  //verbinden
   try
    IdSMTP1.Send(IdMessage1);  //senden
   finally
      IdSMTP1.Disconnect;  //Verbindung trennen
    end;
end;

wenn ich es so mache kommt eine fehlermeldung "....'ungültige Mailaddresse'...."
Hab ich die falsch angegeben???

[scp]

Ich denke, es fehlt noch:

Delphi-Quellcode:

IdMessage1.Sender.Address := '[e-mail]';

und statt nur IdSMTP1.Connect nimm mal diese drei Zeilen:

Delphi-Quellcode:

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect(5000);
IdSMTP1.Authenticate;

[Die Muhkuh]

Ich kenn mich zwar nicht mit dem aus, aber diese Zeile macht mich stutzig:

Delphi-Quellcode:

IdMessage1.Recipients.Add.Address := 'empfä[e-mail]';

Vielleicht sollte da deine E-Mail-Adresse rein?

[scp]

Zitat:

Zitat von Spider

Ich kenn mich zwar nicht mit dem aus, aber diese Zeile macht mich stutzig:

Delphi-Quellcode:

IdMessage1.Recipients.Add.Address := 'empfä[e-mail]';

Vielleicht sollte da deine E-Mail-Adresse rein?

Recipients = Empfänger (Mehrzahl), also ist das schon richtig.

[HagBurt]

Danke für die Vielen Antworten :P

Aber mit dem 'From' & 'Sender' blick ich nicht durch?!

Delphi-Quellcode:

  IdSMTP1.Host := 'mein.smtp.de';
  IdMessage1.ContentType := 'text';
  IdMessage1.From.Address := ' * ';  //muß ich hier die absender addresse von meinem smtp server angeben?? 
  IdMessage1.Sender.Address := ' * ';  //oder hier?? Oder kann ich irgendeine addresse angeben??
  IdMessage1.From.Name := 'test';     // hier ist es ja egal
  IdMessage1.Subject := 'Test';
  IdMessage1.Body := Memo1.Lines;


    IdSMTP1.Username := '[e-mail]';
    IdSMTP1.Password := 'XXXXXXXXXX';
    IdSMTP1.AuthenticationType := atLogin;
    IdSMTP1.Connect(5000);
    IdSMTP1.Authenticate;   //verbinden
 
    IdSMTP1.Send(IdMessage1);  //senden
 ---> IdSMTP1.Disconnect;  //Verbindung trennen

Habs schon ausprobiert und trotzdem kommt der fehler Ungültige Mail addresse!!!

[HagBurt]

weiß den keiner was mit was gemeint ist??? :(
bitte schreibt nicht RTFM. Hab die indy manuals schon gelesen und auch bei der demo 'mailclient'
blick ich nicht durch.

Bitte helt mir....

[dj-pitti]

Also Hallo erstmal.

Zur Kurzen Erklärung:

Code:

From.Address:='Absender der Message!';

Dann noch den EMpfänger der Antwortmail:

Code:

ReplyTo.EMailAddresses := '[e-mail]';;

Hier kommt dein Emfänger rein:

Code:

Recipients.EMailAddresses := 'emfä[e-mail]';

Falls dies alles nix bringt, dann nochmal posten und ich reiche ein Script nach!

Mfg Silvio