Email via Smpt

[Poring]

Achso... ja gut ..
Den habe ich leider nicht, nein.
Bei welchem Anbiter wäre es denn dan möglich?

Ich habs mal über Gmail probiert, wenn ich dies jedoch mache bekomme ich 'Already Connected'
Ich habe zwar auch etwas mit TIdSSLIOHandlerSocketOpenSSL gelesen, nur weis ich nicht wie ich dies in die uses einbinden kann, das es deklariert wird. Von daher habe ich dies erstmal rausgelassen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Email: TIdMessage;
MailHStack : TIdIOHandlerStack;
begin
IdSmtp1.AuthType := atDefault;
IdSmtp1.IOHandler := MailHStack;
IdSmtp1.UseEhlo := True;
IdSmtp1.Username:='[e-mail]';
IdSmtp1.Password:='PW';
IdSmtp1.Port:=587;
IdSmtp1.Host:='smtp.gmail.com';
Email := TIdMessage.Create(nil);
Email.Recipients.Clear;
Email.Recipients.Add.Address := '[e-mail]';  //email des empfängers
Email.BccList.Add.Address := '[e-mail]'; //email des empfängers
Email.from.Text := edit1.text;         //Text der Email
Email.From.Name := 'Absender';        //Name dem die Email gehört, also mein Name
Email.From.Address:='[e-mail]';      //Absender
Email.Subject:='Test';          //Betreff
Email.Date := Now;

  with TIdText.Create(email.MessageParts, nil) do
   begin
    Body.Text := RichEdit1.Text;
    CharSet := 'iso-8859-1';
    ContentTransfer := 'quoted-printable';
    ContentType := 'text/html';
    ParentPart := -1;
   end;
  
  idsmtp1.Connect;
  try
   IdSmtp1.Send(Email);
   idsmtp1.Disconnect;
  except
  idsmtp1.Disconnect;
end;
showmessage('Mail wurde verschickt');
end;