Add CC header.
This commit is contained in:
parent
1956cf684a
commit
ce25e2fe77
1 changed files with 3 additions and 1 deletions
|
@ -119,10 +119,12 @@
|
||||||
(define (make-reminder-email mr)
|
(define (make-reminder-email mr)
|
||||||
(make-ldict
|
(make-ldict
|
||||||
`((to . ,(brmember-info mr 'mail))
|
`((to . ,(brmember-info mr 'mail))
|
||||||
|
(cc . ,(*notifications-cc*))
|
||||||
(subject . "Připomínka členských příspěvků / Membership fees reminder")
|
(subject . "Připomínka členských příspěvků / Membership fees reminder")
|
||||||
(body . ,(reminder-email-body mr))
|
(body . ,(reminder-email-body mr))
|
||||||
(headers . ,(list "Content-Type: text/plain; charset=\"UTF-8\""
|
(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
|
;; Creates and prints reminder email for given member record
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue