Mail senden mit ICS funktioniert nicht

[torud]

Hallo Wissende,

im Forum hier gab es leider keinen Thread zu diesem Thema, aber ich habe heute mal versucht aus den Demos die der ICS-Komponente beiliegen ein Programm zu entwickeln, mit ich ganz einfach über meinen Account Mails mit Anhängen verschicken kann.

Da ich bei Strato gehostet bin, muss ich vor dem Versenden mit SMPT mich bei meinem POP3-Konto anmelden. Das habe ich berücksichtig und getan. Die Komponenten melden sich einwandfrei an und sind connected. Wenn ich aber dann per Mail ne Mail versenden will, passiert rein gar nix. Keine Fehlermeldung und auch keine Mail wird verschickt.

Folgendes mache ich im OnShow:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
    try
      Pop3Cli1.Connect;
    Except
      ShowMessage('Keine POP3-Verbindung!');
    end;

    try
      SmtpCli1.Connect;
    Except
      ShowMessage('Keine SMTP-Verbindung!');
    end;
    PageControl1.ActivePageIndex:=0;
end;

An die OnSessionConnected haben ich folgendes angehangen, um den Zustand zu sehen:

Delphi-Quellcode:

procedure TForm1.Pop3Cli1SessionConnected(Sender: TObject; Error: Word);
begin
    {zeige netzstatus an}
      if Pop3Cli1.Connected then
        begin
          shp_pop.Brush.Color:=clLime;
          lbl_pop.caption:='Verbindung zur Pop3-Mailbox hergestellt!';
        end
      else
        begin
          shp_pop.Brush.Color:=clRed;
          lbl_pop.Caption:='Keine Pop3-Verbindung zur Mailbox!';
        end;
end;

procedure TForm1.SmtpCli1SessionConnected(Sender: TObject; Error: Word);
begin
    {zeige netzstatus an}
      if SmtpCli1.Connected then
        begin
          shp_net.Brush.Color:=clLime;
          lbl_net.caption:='SMTP-Verbindung zur Mailbox hergestellt!';
        end
      else
        begin
          shp_net.Brush.Color:=clRed;
          lbl_net.Caption:='Keine SMTP-Verbindung zur Mailbox!';
        end;
end;

Die Shapes werden grün und die Labels zeigen mir an, dass eine Verbindung zur Mailbox besteht.
Folgendes habe ich an einen Button angehangen, um eine Mail zu versenden. Leider passiert nix. Hat jemand einen Tipp, warum das so ist??? Ist schade, dass die Prozedur mail nicht eine Funktion mit nem boolschen Rückgabewert ist.

Delphi-Quellcode:

    BuildRcptList;
    SmtpCli1.HdrFrom         := ed_from_mail.Text;
    SmtpCli1.HdrTo           := ed_email.Text;
    SmtpCli1.HdrTo           := ed_from_mail.Text;
    SmtpCli1.HdrSubject      := 'Lizenz-ID für das Programm: '+cmb_programs.Text;
    SmtpCli1.SignOn          := ed_from_name.Text;
    SmtpCli1.FromName        := ed_from_mail.Text;
    //SmtpCli1.EmailFiles      := FileAttachMemo.Lines;
    SmtpCli1.Host            := ed_host.Text;
    SmtpCli1.Port            := 'smtp';
    SmtpCli1.Mail;
    exit;

Mache ich was falsch? Die Demos waren verständlich, aber nur einzeln zu haben. Entweder pop3 oder smpt, was mir nix nützt.