diff --git a/messages/uniworx/utils/table_column/de-de-formal.msg b/messages/uniworx/utils/table_column/de-de-formal.msg
index 62be3b1c8..f2beb2c56 100644
--- a/messages/uniworx/utils/table_column/de-de-formal.msg
+++ b/messages/uniworx/utils/table_column/de-de-formal.msg
@@ -82,6 +82,9 @@ TableCompanyNo: Firmennummer
 TableCompanyNos: Firmennummern
 TableCompanyNrUsers: Firmenangehörige
 TableCompanyNrSupers: Ansprechpartner
+TableCompanyNrEmpSupervised: Firmenangehörige mit Ansprechpartner
+TableCompanyNrEmpRerouted: Firmenangehörige mit Umleitung
+TableCompanyNrEmpRerPost: Firmenangehörige mit postalischer Umleitung
 TableCompanyNrSupersActive: Mitarbeiter mit Ansprechpartner
 TableCompanyNrSupersDefault: Standard Ansprechpartner
 TableCompanyNrForeignSupers: Firmenfremde Ansprechpartner
diff --git a/messages/uniworx/utils/table_column/en-eu.msg b/messages/uniworx/utils/table_column/en-eu.msg
index a5063da7c..1fc9066c0 100644
--- a/messages/uniworx/utils/table_column/en-eu.msg
+++ b/messages/uniworx/utils/table_column/en-eu.msg
@@ -82,6 +82,9 @@ TableCompanyNo: Company number
 TableCompanyNos: Company numbers
 TableCompanyNrUsers: Associates
 TableCompanyNrSupers: Supervisors
+TableCompanyNrEmpSupervised: Supervsied employees 
+TableCompanyNrEmpRerouted: Employees having reroute
+TableCompanyNrEmpRerPost: Employees having postal reroute
 TableCompanyNrSupersActive: Associates having supervisors
 TableCompanyNrSupersDefault: Default supervisors
 TableCompanyNrForeignSupers: External Supervisors
diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs
index 7ce1cc857..f92144c2d 100644
--- a/src/Handler/Firm.hs
+++ b/src/Handler/Firm.hs
@@ -60,7 +60,7 @@ postFirmR fsh = do
       E.groupBy (usr E.^. UserId, usr E.^. UserDisplayName, usr E.^. UserSurname, scmpy E.?. UserCompanyCompany)
       E.orderBy [E.asc $ usr E.^. UserId, E.asc $ usr E.^. UserDisplayName, E.asc $ usr E.^. UserSurname, E.asc $ scmpy E.?. UserCompanyCompany]
       let countRows' :: E.SqlExpr (E.Value Int64) = E.countRows
-      return    (usr E.^. UserId, usr E.^. UserDisplayName, usr E.^. UserSurname, scmpy E.?. UserCompanyCompany, countRows')
+      return    (usr E.^. UserId, usr E.^. UserDisplayName, usr E.^. UserSurname, scmpy E.?. UserCompanyCompany, countRows', usr E.^. UserPrefersPostal)
 
   siteLayoutMsg (SomeMessage fsh) $ do
     setTitle $ citext2Html fsh
@@ -72,8 +72,9 @@ postFirmR fsh = do
 
       <h3>#{length cactSuper} Active Supervisors for Employees
       <ul>
-        $forall (E.Value _, E.Value dn, E.Value sn, E.Value mbCsh, E.Value nr) <- cactSuper
-          <li>#{nr} Employees supervised by ^{nameWidget dn sn}
+        $forall (E.Value _, E.Value dn, E.Value sn, E.Value mbCsh, E.Value nr, E.Value prefPost) <- cactSuper
+          <li>#{nr} Employees supervised by ^{nameWidget dn sn} #
+            #{icon (bool IconAt IconLetter prefPost)} #
             $maybe csh <- mbCsh
               $if csh /= fshId
                 from foreign company #{unCompanyKey csh}
@@ -111,7 +112,7 @@ type AllCompanyTableExpr = E.SqlExpr (Entity Company)
 queryCompany :: AllCompanyTableExpr -> E.SqlExpr (Entity Company)
 queryCompany = id
 
-type AllCompanyTableData = DBRow (Entity Company, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64)
+type AllCompanyTableData = DBRow (Entity Company, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64)
 resultAllCompanyEntity          :: Lens' AllCompanyTableData (Entity Company)
 resultAllCompanyEntity          = _dbrOutput . _1
 
@@ -124,17 +125,26 @@ resultAllCompanyUsers           = _dbrOutput . _2 . _unValue
 resultAllCompanySupervisors     :: Lens' AllCompanyTableData Word64
 resultAllCompanySupervisors     = _dbrOutput . _3 . _unValue
 
+resultAllCompanyEmployeeSupervised :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmployeeSupervised = _dbrOutput . _4 . _unValue
+
+resultAllCompanyEmployeeRerouted :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmployeeRerouted = _dbrOutput . _5 . _unValue
+
+resultAllCompanyEmpRerPost      :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmpRerPost      = _dbrOutput . _6 . _unValue
+
 resultAllCompanyForeignSupers   :: Lens' AllCompanyTableData Word64
-resultAllCompanyForeignSupers   = _dbrOutput . _4 . _unValue
+resultAllCompanyForeignSupers   = _dbrOutput . _7 . _unValue
 
 resultAllCompanyDefaultReroutes :: Lens' AllCompanyTableData Word64
-resultAllCompanyDefaultReroutes = _dbrOutput . _5 . _unValue
+resultAllCompanyDefaultReroutes = _dbrOutput . _8 . _unValue
 
 resultAllCompanyActiveReroutes  :: Lens' AllCompanyTableData Word64
-resultAllCompanyActiveReroutes  = _dbrOutput . _6 . _unValue
+resultAllCompanyActiveReroutes  = _dbrOutput . _9 . _unValue
 
 resultAllCompanyActiveReroutes' :: Lens' AllCompanyTableData Word64
-resultAllCompanyActiveReroutes' = _dbrOutput . _7 . _unValue
+resultAllCompanyActiveReroutes' = _dbrOutput . _10 . _unValue
 
 fromUserCompany :: Maybe (E.SqlExpr (Entity UserCompany) -> E.SqlExpr (E.Value Bool)) -> E.SqlExpr (Entity Company) -> E.SqlQuery ()
 fromUserCompany mbFltr cmpy = do
@@ -157,6 +167,35 @@ firmCountSupervisors  = E.subSelectCount . fromUserCompany (Just (E.^. UserCompa
 firmCountDefaultReroutes :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
 firmCountDefaultReroutes = E.subSelectCount . fromUserCompany (Just (\uc -> uc E.^. UserCompanySupervisor E.&&. uc E.^. UserCompanySupervisorReroute))
 
+firmCountEmployeeSupervised :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
+firmCountEmployeeSupervised = E.subSelectCount . fromUserCompany $ Just fltr
+  where 
+    fltr usrc = E.exists $ do
+      usrSuper <- E.from $ E.table @UserSupervisor
+      E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
+
+firmCountEmployeeRerouted :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
+firmCountEmployeeRerouted = E.subSelectCount . fromUserCompany $ Just fltr
+  where 
+    fltr usrc = E.exists $ do
+      usrSuper <- E.from $ E.table @UserSupervisor
+      E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
+        E.&&.    usrSuper E.^. UserSupervisorRerouteNotifications
+
+firmCountEmployeeRerPost :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
+firmCountEmployeeRerPost = E.subSelectCount . fromUserCompany $ Just fltr
+  where 
+    fltr usrc = E.exists $ do
+      (usrSuper :& usr) <-
+        E.from $ E.table @UserSupervisor
+        `E.innerJoin` E.table @User
+        `E.on` (\(usrSuper :& usr) -> usrSuper E.^. UserSupervisorSupervisor E.==. usr E.^. UserId)
+      E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
+        E.&&.    usrSuper E.^. UserSupervisorRerouteNotifications
+        E.&&.              usr E.^. UserPrefersPostal
+        E.&&.    E.isJust (usr E.^. UserPostAddress)
+
+
 -- firmCountForeignSupervisors :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
 -- firmCountForeignSupervisors cmpy = E.coalesceDefault
 --   [E.subSelect $ do
@@ -199,13 +238,16 @@ mkFirmAllTable isAdmin uid = do
             usrCmpy <- E.from $ E.table @UserCompany
             E.where_ $ usrCmpy E.^. UserCompanyCompany E.==. cmpy E.^. CompanyId
                 E.&&.  usrCmpy E.^. UserCompanyUser    E.==. E.val uid
-          return  ( cmpy
-                  , cmpy & firmCountUsers
-                  , cmpy & firmCountSupervisors
-                  , cmpy & firmCountForeignSupervisors
-                  , cmpy & firmCountDefaultReroutes
-                  , cmpy & firmCountActiveReroutes
-                  , cmpy & firmCountActiveReroutes'
+          return  ( cmpy                                        --  1
+                  , cmpy & firmCountUsers                       --  2
+                  , cmpy & firmCountSupervisors                 --  3
+                  , cmpy & firmCountEmployeeSupervised          --  4
+                  , cmpy & firmCountEmployeeRerouted            --  5
+                  , cmpy & firmCountEmployeeRerPost             --  6
+                  , cmpy & firmCountForeignSupervisors          --  7
+                  , cmpy & firmCountDefaultReroutes             --  8
+                  , cmpy & firmCountActiveReroutes              --  9
+                  , cmpy & firmCountActiveReroutes'             -- 10
                   )
         dbtRowKey = (E.^. CompanyId)
         dbtProj = dbtProjId
@@ -220,23 +262,29 @@ mkFirmAllTable isAdmin uid = do
               in  anchorCell (FirmR fsh) $ toWgt fsh
           , sortable (Just "avsnr")         (i18nCell MsgTableCompanyNo)               $ \(view resultAllCompany -> firm) ->
               anchorCell (FirmR $ companyShorthand firm) $ toWgt $ companyAvsId firm
-          , sortable (Just "users")         (i18nCell MsgTableCompanyNrUsers)          $ \(view resultAllCompanyUsers           -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "supervisors")   (i18nCell MsgTableCompanyNrSupersDefault)  $ \(view resultAllCompanySupervisors     -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-def")   (i18nCell MsgTableCompanyNrRerouteDefault) $ \(view resultAllCompanyDefaultReroutes -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "foreigners")    (i18nCell MsgTableCompanyNrForeignSupers)  $ \(view resultAllCompanyForeignSupers   -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-act")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes  -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-all")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes' -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "users")         (i18nCell MsgTableCompanyNrUsers)          $ \(view resultAllCompanyUsers               -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "supervisors")   (i18nCell MsgTableCompanyNrSupersDefault)  $ \(view resultAllCompanySupervisors         -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-supervised")(i18nCell MsgTableCompanyNrEmpSupervised)  $ \(view resultAllCompanyEmployeeSupervised  -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-rerouted")  (i18nCell MsgTableCompanyNrEmpRerouted)    $ \(view resultAllCompanyEmployeeRerouted    -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-rer-post")  (i18nCell MsgTableCompanyNrEmpRerPost)     $ \(view resultAllCompanyEmpRerPost          -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "reroute-def")   (i18nCell MsgTableCompanyNrRerouteDefault) $ \(view resultAllCompanyDefaultReroutes     -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "foreigners")    (i18nCell MsgTableCompanyNrForeignSupers)  $ \(view resultAllCompanyForeignSupers       -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "reroute-act")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes      -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "reroute-all")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes'     -> nr) -> wgtCell $ word2widget nr
           ]
         dbtSorting = mconcat
-          [ singletonMap "name"         $ SortColumn (E.^. CompanyName)
-          , singletonMap "short"        $ SortColumn (E.^. CompanyShorthand)
-          , singletonMap "avsnr"        $ SortColumn (E.^. CompanyAvsId)
-          , singletonMap "users"        $ SortColumn firmCountUsers
-          , singletonMap "supervisors"  $ SortColumn firmCountSupervisors
-          , singletonMap "reroute-def"  $ SortColumn firmCountDefaultReroutes
-          , singletonMap "foreigners"   $ SortColumn firmCountForeignSupervisors
-          , singletonMap "reroute-act"  $ SortColumn firmCountActiveReroutes
-          , singletonMap "reroute-all"  $ SortColumn firmCountActiveReroutes'
+          [ singletonMap "name"           $ SortColumn (E.^. CompanyName)
+          , singletonMap "short"          $ SortColumn (E.^. CompanyShorthand)
+          , singletonMap "avsnr"          $ SortColumn (E.^. CompanyAvsId)
+          , singletonMap "users"          $ SortColumn firmCountUsers
+          , singletonMap "supervisors"    $ SortColumn firmCountSupervisors
+          , singletonMap "emp-supervised" $ SortColumn firmCountEmployeeSupervised
+          , singletonMap "emp-rerouted"   $ SortColumn firmCountEmployeeRerouted
+          , singletonMap "emp-rer-post"   $ SortColumn firmCountEmployeeRerPost
+          , singletonMap "reroute-def"    $ SortColumn firmCountDefaultReroutes
+          , singletonMap "foreigners"     $ SortColumn firmCountForeignSupervisors
+          , singletonMap "reroute-act"    $ SortColumn firmCountActiveReroutes
+          , singletonMap "reroute-all"    $ SortColumn firmCountActiveReroutes'
           ]
         dbtFilter = mconcat
           [ single $ fltrCompanyNameNr queryCompany
@@ -255,7 +303,7 @@ mkFirmAllTable isAdmin uid = do
           [ fltrCompanyNameNrUI mPrev
           , prismAForm (singletonFilter "is-supervisor") mPrev $ aopt textField (fslI MsgTableSupervisor)
           ]
-        dbtStyle =  def -- { dbsFilterLayout = defaultDBSFilterLayout }
+        dbtStyle =  def { dbsFilterLayout = defaultDBSFilterLayout }
         acts :: Map FirmAllAction (AForm Handler FirmAllActionData)
         acts = mconcat
           [ singletonMap FirmAllActNotify           $ pure FirmAllActNotifyData
diff --git a/src/Utils/Icon.hs b/src/Utils/Icon.hs
index a3602faec..645e89e73 100644
--- a/src/Utils/Icon.hs
+++ b/src/Utils/Icon.hs
@@ -153,7 +153,7 @@ iconText = \case
     IconSFTHint                 -> "life-ring"          -- for SheetFileType only
     IconSFTSolution             -> "exclamation-circle" -- for SheetFileType only
     IconSFTMarking              -> "check-circle"       -- for SheetFileType only
-    IconEmail                   -> "envelope" -- envelope is no longer unamibuous
+    IconEmail                   -> "envelope" -- envelope is no longer unamibuous, use IconAt or IconLetter if email and postal need to be distinguished
     IconRegisterTemplate        -> "file-alt"
     IconNoCorrectors            -> "user-slash"
     IconRemoveUser              -> "user-slash"
@@ -199,7 +199,7 @@ iconText = \case
     IconCertificate             -> "badge-check"
     IconPrintCenter             -> "mail-bulk" -- From fontawesome v6 onwards: "envelope-bulk"
     IconLetter                  -> "mail-bulk" -- Problem "envelope" already used for email as well
-    IconAt                      -> "at"
+    IconAt                      -> "at"        -- alternative for IconEmail to distinguish from IconLetter
     IconSupervisor              -> "head-side" -- must be notably different to user
     -- IconWaitingForUser          -> "user-cog"  -- Waiting on a user to do something
     IconExpired                 -> "hourglass-end"