diff --git a/Network/Mail/SMTP.hs b/Network/Mail/SMTP.hs
--- a/Network/Mail/SMTP.hs
+++ b/Network/Mail/SMTP.hs
@@ -238,15 +238,17 @@
 -- an optional HTML body.
 simpleMail :: Address   -- ^ from
            -> [Address] -- ^ to
+           -> [Address] -- ^ CC
+           -> [Address] -- ^ BCC
            -> T.Text -- ^ subject
            -> TL.Text -- ^ plain body
            -> Maybe TL.Text -- ^ optional HTML body
            -> Mail
-simpleMail from to subject plainBody htmlBody =
+simpleMail from to cc bcc subject plainBody htmlBody =
     Mail { mailFrom = from
          , mailTo   = to
-         , mailCc   = []
-         , mailBcc  = []
+         , mailCc   = cc
+         , mailBcc  = bcc
          , mailHeaders = [ ("Subject", subject) ]
          , mailParts =   [ parts plainBody htmlBody ]
          }
diff --git a/smtp-mail.cabal b/smtp-mail.cabal
--- a/smtp-mail.cabal
+++ b/smtp-mail.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                smtp-mail
-version:             0.1.2.0
+version:             0.1.3.0
 synopsis:            Simple email sending via SMTP
 -- description:         
 homepage:            http://github.com/jhickner/smtp-mail