Indy und STARTTLS

[Ricane]

Moin,

ich versuche gerade eine Mail per Indy raus zu senden, aber es will auf biegen und brechen nicht klappen. Er erzählt mir immer das

Must issue a STARTTLS command first.

Dabei weiss ich nicht einmal, was er mir damit sagen möchte...

Hier ist mein Code:

Delphi-Quellcode:

  If Not (ISConnectedToInternet) Then
    InternetAutodial(internet_autodial_force_online, frmMain.Handle);

  If ISConnectedToInternet Then
  Begin
    frmMails.IdSMTP1.Host := frmEinstellungen.edtSMTPServer.Text;
    frmMails.IdSMTP1.Port := StrToInt(frmEinstellungen.edtSMTPPort.Text);
    frmMails.IdSMTP1.Username := frmEinstellungen.edtSMTPBenutzer.Text;
    frmMails.IdSMTP1.Password := frmEinstellungen.edtSMTPPass.Text;

    With frmMails.IdMessage1 Do
    Begin
      From.Text := frmEinstellungen.edtSMTPMailAdresse.Text;
      ReceiptRecipient.Text := From.Text;
      ReplyTo.EMailAddresses := frmEinstellungen.edtSMTPAntwort.Text;
      Recipients.EMailAddresses := Adressen;
      Subject := frmMails.edtdbBetreff.Text;

      Body.Assign(frmMails.dbmemText1.Lines);
      Body.Add(Chr(10) + Chr(10));
      Body.Assign(frmMails.dbmemText2.Lines);
      Body.Add(Chr(10) + Chr(10));
      Body.Assign(frmMails.dbmemText3.Lines);
      Body.Add(Chr(10) + Chr(10));
      Body.Assign(frmMails.dbmemText4.Lines);
      Body.Add(Chr(10) + Chr(10));
      Body.Assign(frmMails.dbmemText5.Lines);
      Body.Add(Chr(10) + Chr(10));
      Body.Assign(frmMails.dbmemText6.Lines);

      Case frmMails.cmbPrio.ItemIndex Of
        0: Priority := mpLowest;
        1: Priority := mpLow;
        2: Priority := mpNormal;
        3: Priority := mpHigh;
        4: Priority := mpHighest;
      End;

      frmMails.IdSMTP1.Username := frmEinstellungen.edtSMTPBenutzer.Text;
      frmMails.IdSMTP1.Password := frmEinstellungen.edtSMTPPass.Text;
      frmMails.IdSMTP1.Host := frmEinstellungen.edtSMTPServer.Text;
      frmMails.IdSMTP1.Port := StrToInt(frmEinstellungen.edtSMTPPort.Text);

      frmMails.IdSMTP1.Connect;
      Try
        frmMails.IdSMTP1.Send(frmMails.IdMessage1);
      Finally
        frmMails.IdSMTP1.Disconnect;
      End;
    End;
  End;

Der Fehler tritt zwischen Try und Finally auf, also beim Senden... Jemand ne Idee?


Besten Dank,

Ricane