SMTP über Strato

[Amanda]

ohne SSL wird es wohl bei Strato nicht funktionieren.

procedure TfeMailKonto.bTestClick(Sender: TObject);
var
smtp : TIdSMTP;
Msg: TIdMessage;
begin
screen.Cursor := crHourGlass;
smtp := TIdSMTP.Create(nil);
msg := TIdMessage.Create();
try
try
Msg.From.Address:= eEmail.Text;
Msg.Recipients.EMailAddresses:= eEmail.Text;
Msg.Subject := 'Test eMail';
Msg.ReceiptRecipient.Text := eEmail.Text;

if eBCC.Text <> '' then
Msg.BCCList.Add.Text := eBCC.Text;

with TIdText.Create(msg.MessageParts) do begin
Body.Add('Test eMail');
ContentType := 'text/html; charset=utf-8;';
end; // with

SMTP.Host:= eSMTP.Text;
SMTP.Username:= eKontoname.Text;
SMTP.Password := ePasswort.Text;
SMTP.Port := strtoint(eSMTPPort.Text);
SMTP.IOHandler := indySSL;
SMTP.USETLS := TIdUseTLS(cbTLS.ItemIndex);
SMTP.ConnectTimeout := 1000;

try
SMTP.Connect();
SMTP.Authenticate;
SMTP.Send(Msg);

showMessage('eMail erfolgreich versendet');
finally
SMTP.Disconnect;
end; // try

except on E: Exception do
showMessage(E.Message);
end; // try

finally
msg.Free;
smtp.Free;
screen.Cursor := crDefault;
end; // try
end;

[Redeemer]

Das hilft jetzt nicht, weil du auf mehrere Bezeichner deiner Form zugreifst, die der TE nicht hat.

Eigentlich musst du nur deinen TIdSSLIOHandlerSocketOpenSSL erstellen, Protokoll auf TLS 1.2 stellen und den IOHandler zuweisen. UseTLS allein reicht nicht.

[H.Bothur]

Sorry - vielleicht hätte ich das gleich schreiben sollen:

ich habe auf der Form:

IdMessage1
IdSMTP1
IOHandlerSocketOpenSSL1

IOHandlerSocketOpenSSL1.Method = sslvTLSv1_2

Damit habe ich doch schon SSL auf die V1.2 gestellt . denn zu min. lt. Website müsste das bei Strato reichen.
Oder muss ich in IdSMTP1.UseTLS auch noch was einstellen _OBWOHL_ ich den IOHändler auf IOHandlerSocketOpenSSL1 gesetzt habe ?

Gruss
Hans

[mjustin]

Zitat von H.Bothur:

IOHandlerSocketOpenSSL1.Method = sslvTLSv1_2

Sind auf dem Rechner noch andere - möglicherweise veraltete - Versionen der OpenSSL DLLs vorhanden?

Das könnte die Fehlermeldung erklären, wenn die zum Beispiel bereits durch vorher gestartete Prozesse geladen werden.

In Indy gibt es m.W. eine Methode mit der sich Informationen zur aktiven OpenSSL DLL ermitteln lassen.

[H.Bothur]

Zitat von mjustin:

Sind auf dem Rechner noch andere - möglicherweise veraltete - Versionen der OpenSSL DLLs vorhanden?

Das könnte die Fehlermeldung erklären, wenn die zum Beispiel bereits durch vorher gestartete Prozesse geladen werden.

In Indy gibt es m.W. eine Methode mit der sich Informationen zur aktiven OpenSSL DLL ermitteln lassen.

Auf dem Rechner finde ich min. noch 5 mal

im Office16\odbc-Verzeichns
im Embarcader/Studio(21-Verzeichnis
im AusweisApp2-Verzeichnis ... und und und

Und natürlich alle mit unterschiedlichen Daten.
Wie kann man denn feststellen weklche Version geladen worden ist ?

Gruss
Hans

[dummzeuch]

Zitat von H.Bothur:

Zitat von mjustin:

Sind auf dem Rechner noch andere - möglicherweise veraltete - Versionen der OpenSSL DLLs vorhanden?

Auf dem Rechner finde ich min. noch 5 mal

im Office16\odbc-Verzeichns
im Embarcader/Studio(21-Verzeichnis
im AusweisApp2-Verzeichnis ... und und und

Und natürlich alle mit unterschiedlichen Daten.
Wie kann man denn feststellen weklche Version geladen worden ist ?

Wird nicht beim Debugging im Event-Log der IDE angezeigt, welche DLLs geladen werden (module load)? Dann die Version zu ermitteln dürfte nicht schwer sein.

[H.Bothur]

Zitat von dummzeuch:

Wird nicht beim Debugging im Event-Log der IDE angezeigt, welche DLLs geladen werden (module load)? Dann die Version zu ermitteln dürfte nicht schwer sein.

In den Ereignissen wird das Ladender SSLEAY32.DLL angezeigt - aber nicht mit einem Pfad oder so.
Und wie ermittle ich den die Version ?

gruss
Hans