Mailversand funktioniert nicht

[haentschman]

Hallo...

Ich bin grad mit meinem Latein am Ende...

Mailversand aus dem Programm heraus mit TclSmtp:

!!! Gleiche Schnittstelle (eigene Unit (einfacher Wrapper)), gleiche EXE
Empfänger 1 = [e-mail]
Empfänger 2 = [e-mail]

Mail1: Load HTML1, HTML ausfüllen, Versand Empfänger 1 (könnten auch andere Empfänger sein) = OK
Mail2: Load HTML2, HTML ausfüllen, Versand Empfänger 1 (könnten auch andere Empfänger sein) = OK
Mail3: Load HTML3, HTML ausfüllen, Anhänge auswählen, Versand Empfänger 2 = OK (Aus Homeoffice)
Mail3: Load HTML3, HTML ausfüllen, Anhänge auswählen, Versand Empfänger 2 = kommt nicht an (Aus Firma)

Der Wrapper gibt keine Fehlermeldung beim Versenden aus. (FMail.Send(FMailMessage)) Nach dem Versand wird die Bestätigungsmeldung angezeigt. (über Result = True und Event)

Was wir probiert haben:
* einfache Mail aus dem Mailclient an Empfänger 2 = OK (Aus Homeoffice)
* einfache Mail aus dem Mailclient an Empfänger 2 = OK (Aus Firma)
* Empfänger 2 Postfach bei der Telekom kontrolliert = kommt nicht an (Aus Firma)
* Keine Fehlermeldung (Response) im Empfänger 2 Postfach

Delphi-Quellcode:

FMail: TclSmtp;
...
function TToolsMail.SendMailDirect: Boolean;
begin
  Result := True;
  try
    FMail.Open;
    try
      CreateMailMessage;

      FMail.Send(FMailMessage);
      WriteMailDB;
      if Assigned(FOnMailSend) then
      begin
        FOnMailSend(Self, FMailMessage.ToList.EmailAddresses, FMailMessage.Subject); 
      end;
    finally
      FMail.Close;
    end;
  except
    on E: Exception do
    begin
      if Assigned(FOnMailError) then
      begin
        FOnMailError(Self, FReceipients, FMailMessage.Subject, E.Message);
      end;
      Result := False;
    end;
  end;
end;

Was kann ich noch kontrollieren? Wo hängt die Mail fest?

Danke...