Einzelnen Beitrag anzeigen

HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#1

Fehler beim Senden von E-Mails einem Sever

  Alt 12. Jul 2017, 09:55
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
  Mit Zitat antworten Zitat