diff --git a/src/notifications.scm b/src/notifications.scm index 2de4254..31020f4 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -119,10 +119,12 @@ (define (make-reminder-email mr) (make-ldict `((to . ,(brmember-info mr 'mail)) + (cc . ,(*notifications-cc*)) (subject . "Připomínka členských příspěvků / Membership fees reminder") (body . ,(reminder-email-body mr)) (headers . ,(list "Content-Type: text/plain; charset=\"UTF-8\"" - (format "From: ~A" (*email-from*)))) + (format "From: ~A" (*email-from*)) + (format "CC: ~A" (*notifications-cc*)))) ))) ;; Creates and prints reminder email for given member record