diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs
index e9bbde606..a0895774f 100644
--- a/src/Handler/Admin.hs
+++ b/src/Handler/Admin.hs
@@ -146,6 +146,7 @@ retrieveUnreachableUsers :: E.SqlQuery (E.SqlExpr (Entity User))
 retrieveUnreachableUsers = do     
     user <- E.from $ E.table @User
     E.where_ $  E.isNothing (user E.^. UserPostAddress)
+          E.&&. E.isNothing (user E.^. UserCompanyDepartment)
           E.&&. E.not_ ((user E.^. UserEmail) `E.like` E.val "%@%.%") 
     return user 
 
@@ -225,4 +226,4 @@ retrieveDriversRWithoutF nowaday = do
   
 {-
 getAdjustLicences :: SchoolId -> QualificationShortand -> Handler Html
--}
\ No newline at end of file
+-}