auf der Webseite zu Indy 10 sind bei mir Alle Doku Pfade offline https://www.indyproject.org/documentation/
Ich versuche eine E-MAil zu versenden und benötige dafür Support für SSL / TLS und Port 465.
Kann mir jemand einen Tipp geben wie ich das umnsetzen kann?
Es ist das Beispiel von https://www.delphi-treff.de/tutorials/n ... et/indy/7/
Code: Alles auswählen
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//Authentifizierung
IdSMTP1.AuthType := TIdSMTPAuthenticationType.satDefault;
//Benutzerdaten für Authentifizierung
IdSMTP1.Username := EdtUsername.Text;
IdSMTP1.Password := EdtPassword.Text;
//Server-Daten
IdSMTP1.Host := 'hostname';
IdSMTP1.Port := 465;
IdSMTP1.Connect;
try
IdMessage1.From.Address := EdtFrom.Text;
IdMessage1.Recipients.EMailAddresses := EdtTo.Text;
IdMessage1.CCList.EMailAddresses := EdtCC.Text;
IdMessage1.BCCList.EMailAddresses := EdtBCC.Text;
IdMessage1.Subject := EdtSubject.Text;
IdMessage1.Body := Memo1.Lines;
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
ShowMessage('Senden abgeschlossen');
end;
Ihr würdet mir helfen indem Ihr ein Codesnipse / Komponente zu Indy10 postet.
Oder einen richtigen Link zu der Indy10 Doku mit Beispielprogrammen.
Vielen Dank schon mal für eure Mühen.