diff --git a/messages/uniworx/utils/table_column/de-de-formal.msg b/messages/uniworx/utils/table_column/de-de-formal.msg
index e4c0fd753..abc8d219a 100644
--- a/messages/uniworx/utils/table_column/de-de-formal.msg
+++ b/messages/uniworx/utils/table_column/de-de-formal.msg
@@ -121,4 +121,6 @@ TableFilterCommaName: Mehrere Namen mit Komma trennen.
 TableFilterCommaNameNr: Mehrere Namen oder exakte Nummern mit Komma trennen.
 TableUserEdit: Benutzer bearbeiten
 TableRows: Zeilen
-TableUserParkingToken day@Text: Parkmarke #{day}
\ No newline at end of file
+TableUserParkingToken day@Text: Parkmarke #{day}
+TableFilterSentBefore: Gesendet bis
+TableFilterSentAfter: Gesendet ab
\ No newline at end of file
diff --git a/messages/uniworx/utils/table_column/en-eu.msg b/messages/uniworx/utils/table_column/en-eu.msg
index 4aa554108..2feb3f9dd 100644
--- a/messages/uniworx/utils/table_column/en-eu.msg
+++ b/messages/uniworx/utils/table_column/en-eu.msg
@@ -121,4 +121,6 @@ TableFilterCommaName: Separate names by comma.
 TableFilterCommaNameNr: Separate names and exact numbers by comma.
 TableUserEdit: Edit user
 TableRows: Rows
-TableUserParkingToken day: Parking token #{day}
\ No newline at end of file
+TableUserParkingToken day: Parking token #{day}
+TableFilterSentBefore: Sent before
+TableFilterSentAfter: Sent after
\ No newline at end of file
diff --git a/src/Handler/CommCenter.hs b/src/Handler/CommCenter.hs
index 3d9e560e8..8a3fed551 100644
--- a/src/Handler/CommCenter.hs
+++ b/src/Handler/CommCenter.hs
@@ -115,7 +115,9 @@ mkCCTable = do
           ]
       ]
     dbtFilter = Map.fromList
-      [ ("sent"      , FilterColumn . E.mkDayFilterTo
+      [ ("sentTo"    , FilterColumn . E.mkDayFilterTo
+                  $ \row -> E.coalesceDefault [queryPrint row E.?. PrintJobCreated, queryMail row E.?. SentMailSentAt] E.now_) -- either one is guaranteed to be non-null, default never used
+      , ("sentFrom"  , FilterColumn . E.mkDayFilterFrom
                   $ \row -> E.coalesceDefault [queryPrint row E.?. PrintJobCreated, queryMail row E.?. SentMailSentAt] E.now_) -- either one is guaranteed to be non-null, default never used
       , ("recipient" , FilterColumn . E.mkContainsFilterWithCommaPlus Just
                   $ \row -> E.coalesce [queryRecipientPrint row E.?. UserDisplayName, queryRecipientMail row E.?. UserDisplayName])
@@ -124,7 +126,8 @@ mkCCTable = do
                                                      ,E.str2text' $ queryMail  row E.?. SentMailHeaders  ])
       ]
     dbtFilterUI mPrev = mconcat
-      [ prismAForm (singletonFilter "date"      . maybePrism _PathPiece) mPrev $ aopt (hoistField lift  dayField)  (fslI MsgPrintJobCreated)
+      [ prismAForm (singletonFilter "sentTo"    . maybePrism _PathPiece) mPrev $ aopt (hoistField lift  dayField)  (fslI MsgTableFilterSentBefore)
+      , prismAForm (singletonFilter "sentFrom"  . maybePrism _PathPiece) mPrev $ aopt (hoistField lift  dayField)  (fslI MsgTableFilterSentAfter)
       , prismAForm (singletonFilter "recipient" . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField)  (fslI MsgPrintRecipient & setTooltip MsgTableFilterCommaPlus)
       , prismAForm (singletonFilter "subject"   . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField)  (fslI MsgCommSubject    & setTooltip MsgTableFilterCommaPlusShort)
       ]
diff --git a/src/Handler/MailCenter.hs b/src/Handler/MailCenter.hs
index d7d489c20..c6871eeb7 100644
--- a/src/Handler/MailCenter.hs
+++ b/src/Handler/MailCenter.hs
@@ -119,7 +119,8 @@ mkMCTable = do
       , ("recipient" , sortUserNameBareM queryRecipient)
       ]
     dbtFilter = Map.fromList
-      [ ("sent"      , FilterColumn . E.mkDayFilterTo                        $ views (to queryMail)        (E.^. SentMailSentAt))
+      [ ("sentTo"    , FilterColumn . E.mkDayFilterTo                        $ views (to queryMail)        (E.^. SentMailSentAt))
+      , ("sentFrom"  , FilterColumn . E.mkDayFilterFrom                      $ views (to queryMail)        (E.^. SentMailSentAt))
       , ("recipient" , FilterColumn . E.mkContainsFilterWithCommaPlus Just   $ views (to queryRecipient)   (E.?. UserDisplayName))
       , ("subject"   , FilterColumn . E.mkContainsFilterWithCommaPlus id     $ views (to queryMail)        (E.str2text . (E.^. SentMailHeaders)))
       -- , ("regex"     , FilterColumn . E.mkRegExFilterWith id                 $ views (to queryMail)        (E.str2text . (E.^. SentMailHeaders)))
@@ -130,7 +131,8 @@ mkMCTable = do
         )
       ]
     dbtFilterUI mPrev = mconcat
-      [ prismAForm (singletonFilter "sent"      . maybePrism _PathPiece) mPrev $ aopt (hoistField lift  dayField)  (fslI MsgPrintJobCreated)
+      [ prismAForm (singletonFilter "sentTo"    . maybePrism _PathPiece) mPrev $ aopt (hoistField lift  dayField)  (fslI MsgTableFilterSentBefore)
+      , prismAForm (singletonFilter "sentFrom"  . maybePrism _PathPiece) mPrev $ aopt (hoistField lift  dayField)  (fslI MsgTableFilterSentAfter)
       , prismAForm (singletonFilter "recipient" . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField)  (fslI MsgPrintRecipient & setTooltip MsgTableFilterCommaPlus)
       , prismAForm (singletonFilter "subject"   . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField)  (fslI MsgCommSubject    & setTooltip MsgTableFilterCommaPlusShort)
       -- , prismAForm (singletonFilter "regex"     . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField)  (fslI MsgCommSubject    )