Jetzt habe ich deine Ratschläge befolgt und alles ist installiert und ich kann mein Prog sogar compilieren. Dein ausführlicher Post war echt super, danke.
Leider geht der Verbindungsaufbau zu strato trotzdem nicht. Je nachdem, welche Version ich einstelle, kommen unterschiedliche Fehlermeldung (s. Grafik). Vermutlich fehlen nur noch ein paar Einstellungen. Würdest du mal einen kurzen Blick auf meine Routine werfen? Vielleicht springt dir der Fehler ja sofort ins Auge. Brauche ich eine spezielle Version von libeay32.dll oder ssleay32.dll?
Delphi-Quellcode:
procedure TMainForm.Btn_TESTMAILClick(Sender: TObject);
var
idAttachment : TIdAttachmentFile;
Mail : TIdMessage;
SMTP : TIdSMTP;
SSL : TIdSSLIOHandlerSocketOpenSSL;
MBHTML: TIdMessageBuilderHTML;
MailText :
string;
begin
SMTP := TIdSMTP.Create;
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(
SMTP);
SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
//XXX
Mail := TIdMessage.Create;
try
MBHTML := TIdMessageBuilderHTML.Create;
try
with MBHTML
do
begin
HTML.Text := '
Die ist eine Testmail.';
HtmlCharSet := '
utf-8';
FillMessage(Mail);
end;
finally
MBHTML.Free;
end;
with Mail
do
begin
From.Address := ... ;
From.
Name := ... ;
Recipients.EMailAddresses := ... ;
Subject := '
Test-Mail';
end;
with SMTP do
begin
Host := '
smtp.strato.de';
Username := ... ;
Password := ... ;
Port := 465;
AuthType := satDefault;
IOHandler := SSL;
UseTLS := utUseImplicitTLS;
try
Connect;
Send(Mail);
finally
Disconnect;
end;
end;
finally
Mail.Free;
SMTP.Free;
end;
end;