Guten Tag Delpgianer,
ich bin mit meinem Programm von einem Windows-Small-Busines-Server 2011 auf einen Windows-Server 2012R2 umgezogen.
Alles Programmteile, bis auf das Versenden der E-Mails, laufen problemlos.
Hier der Quellcode zum Amnmelden:
Delphi-Quellcode:
function ServerAnmelden: Boolean;
begin
Result := True;
ASMTP := TIdSMTP.Create(Self);
if ASMTP.Connected
then
ASMTP.Disconnect(True);
try
ASMTP.AuthType := satDefault;
ASMTP.UserName := MailUserName;
ASMTP.Password := MailPassWort;
ASMTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(ASMTP);
ASMTP.UseTLS := utUseImplicitTLS;
ASMTP.ManagedIOHandler := True;
ASMTP.Host := MailHostName;
ASMTP.Connect;
except
on E:
Exception do
begin
pErrMsg := e.
Message;
if ASMTP.LastCmdResult.Code <> '
'
then
pErrMsg := ASMTP.LastCmdResult.Text.Text
+ sLineBreak + '
--'
+ sLineBreak + pErrMsg;
ASMTP.Free;
Result := False;
end;
end;
end;
begin
if not ServerAnmelden
then
begin
Application.MessageBox('
Es konnte keine Verbindung zum ' + #13#10 +
'
E-Mailserver hergestellt werden!', '
BPS Logenverwaltung . . .', MB_OK +
MB_ICONSTOP);
Exit;
end;
Beim Anmelden bekomme ich nur die untenstehende Fehlermeldung.
Und wie schon bemerkt, auf dem alten Server lief alles Problemlos.
Können das irgendwelche Einstellungen am Server sein, die wir noch machen müssen?
Wenn ja, welche?
Vielen Dank für Eure Hilfe
HPB