diff --git a/IHP/Mail.hs b/IHP/Mail.hs
index d1393b30d..ce175023c 100644
--- a/IHP/Mail.hs
+++ b/IHP/Mail.hs
@@ -54,7 +54,7 @@ sendWithMailServer SES { .. } mail = do
     manager <- Network.HTTP.Client.newManager Network.HTTP.Client.TLS.tlsManagerSettings
     let ses = Mailer.SES {
             Mailer.sesFrom = cs $ addressEmail (mailFrom mail),
-            Mailer.sesTo = map (cs . addressEmail) (mailTo mail),
+            Mailer.sesTo = map (cs . addressEmail) ((mailTo mail) <> (mailCc mail) <> (mailBcc mail)),
             Mailer.sesAccessKey = accessKey,
             Mailer.sesSecretKey = secretKey,
             Mailer.sesSessionToken = Nothing,