Email code falsch???

[maximi]

Hallo!!!
Was ist daran falsch???:

Delphi-Quellcode:

  IdSMTP1.Username := '****';
  IdSMTP1.Password := '****';

  IdSMTP1.Host := 'smtp.mail.yahoo.de'; 

  IdSMTP1.Connect;
  Inhalt.Add(Edit1.Text);
  Inhalt.Add(Edit2.Text);
  IdSMTP1.Host := 'smtp.mail.yahoo.de';
  dMessage1.Body := inhalt;
  IdSMTP1.Send(IdMessage1);

Ich bekomme keine Mail!!!

[Edit=Sakura]Delphi-TAGS eingefügt :!: MfG[/Edit]

[maximi]

Hallo??? Findet keiner den Fehler???

[Duffy]

Hallo maximi,
hast Du auch alle anderen Parameter gesetzt? wie From usw.
bye

[maximi]

Ja alles ich will einfach nur ne mail schicken!!!

[Duffy]

Hallo maximi,
leg doch mal den gesamten Quelltext ins Netz. Vielleicht geht es dann einfacher. Falls Du es willst?
bye

[maximi]

So vielleicht kann mir ja jetzt jemand weiterhelfen???

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, StdCtrls, IdUDPBase, IdUDPClient, IdTrivialFTP, IdTCPServer,
  IdFTPServer, Sockets, IdMessageClient, IdPOP3, IdSMTP, IdNNTP,IdMessage;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Inhalt:TStringList;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Inhalt := TStringList.Create;
  IdFTP1.Host := '*****';

  IdFTP1.Username:='*****';
  IdFTP1.Password:='*******';
  IdFTP1.Connect;
  IdFTP1.Login;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  IdFTP1.List(listbox1.items,'/'+Edit1.Text,true);

   if(listbox1.Items.Text = '') then
   begin
  IdSMTP1.Username := '********';
  IdSMTP1.Password := '*****';
  IdSMTP1.Host := 'smtp.mail.yahoo.de';
  IdSMTP1.Connect;

  Inhalt.Add(Edit1.Text);
  Inhalt.Add(Edit2.Text);
  IdMessage1.Body := inhalt;
  ShowMessage('Du wurdest registriert');
  IdSMTP1.Send(IdMessage1);

  IdFTP1.MakeDir(Edit1.Text);

  Inhalt.SaveToFile('c:\'+Edit1.Text+'.txt');
  IdFTP1.Put('c:\'+Edit1.Text+'.txt',
  ExtractFileName(Edit1.Text+'/'+Edit1.Text+'.txt'));
  deletefile('c:\'+Edit1.text+'.txt');
  end;

end;

end.

[Duffy]

Hallo maximi,
ich fürchte, daß Du den Emfpänger oder den Absender nicht richtig setzt, sodaß der Mailserver die Mail ablehnt.
bye

[maximi]

Bei Username muss doch die email adresse hin???
Ich habe Port jetzt nicht reingebracht, ist das schlimm???

[Duffy]

Hallo maximi,
nein, bei Username ist der Benutzername des Mailservers gemeint. Du mußt die Adressen in IdMessage setzen. Empfänger = Recipient, From = From usw.
bye

[maximi]

Benutzername des Mailservers??? hä???

[Duffy]

Hallo maximi,
wenn Du eine eMail ins Internet versenden willst, dann brauchst Du dazu einen SMTP Server, der deine email aufnimmt und dann an den Empfänger weiterleitet. Es gibt Mailserver, über die kannst Du eMails versenden ohne ein Konto da zu haben. Du hast wohl jedenfalls ein Konto auf dem Server bei Yahoo ["smtp.mail.yahoo.de"]. Mit Username gibts Du dort deinen Benuttzernamen an. Mit dem Passwort verhält sich das analog. Wenn Du dich richtig auf dem Mail-Server von Yahoo eingeloggt hast, kannst Du deine eMail versenden.
Diese muß dann einer eMail entsprechen:
AN
VON
BETREFF
TEXT
usw.
Wenn alles richtig in der Nachricht (IdMessage) ist, wird sie an den Empfänger weitergeleitet.
bye

[maximi]

Ich kann mich verbinden mit dem server, aber wenn er die Message schicken soll, dann bringt er mir ne Fehlermeldung!!!

[Duffy]

Hallo maximi,
welche?
bye

[maximi]

Ups!

"Authentication required" und dann gibt der mir diesen link:

http://help.yahoo.com/help/us/mail/pop/pop-11.html

[Daniel B]

Naja, Du meldest Dich nicht an, mit Username und PW. Entweder das, oder die Daten sind einfach falsch die Du da eingibst.

Grüsse, Daniel :hi:

[Duffy]

Hallo maximi,
hab ausversehen Deine ICQ Nummer gelöscht. Melde Dich einfach noch mal Ok.
bye

[edit=Daniel B]Doppelpost gelöscht. MfG Daniel B.[/edit]