diff --git a/amazon-emailer-client-snap.cabal b/amazon-emailer-client-snap.cabal
--- a/amazon-emailer-client-snap.cabal
+++ b/amazon-emailer-client-snap.cabal
@@ -1,5 +1,5 @@
 name:                amazon-emailer-client-snap
-version:             0.1.0.0
+version:             0.1.1.0
 synopsis:            Client library for amazon-emailer daemon
 homepage:            https://github.com/dbp/amazon-emailer-client-snap
 license:             BSD3
diff --git a/src/Network/AmazonEmailer/Client/Snap.hs b/src/Network/AmazonEmailer/Client/Snap.hs
--- a/src/Network/AmazonEmailer/Client/Snap.hs
+++ b/src/Network/AmazonEmailer/Client/Snap.hs
@@ -20,28 +20,47 @@
 -- | Sends a single plain text message
 sendMessage :: HasPostgres (Handler b a) => Email -> Handler b a ()
 sendMessage e@(Email to from fromName subj body) =
+  void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body) values (?,?,?,?,?)" (to, from, fromName, subj, body)
+
+-- | Sends a single plain text message, writing it out to the stdout.
+sendMessageVerbose :: HasPostgres (Handler b a) => Email -> Handler b a ()
+sendMessageVerbose e@(Email to from fromName subj body) =
   do liftIO $ print e
-     void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body) values (?,?,?,?,?)" (to, from, fromName, subj, body)
+     sendMessage e
 
 -- | Sends a single html message
 sendMessageHtml :: HasPostgres (Handler b a) => Email -> Handler b a ()
 sendMessageHtml e@(Email to from fromName subj body) =
-  do liftIO $ print e
-     void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body, html) values (?,?,?,?,?, true)" (to, from, fromName, subj, body)
+  void $ execute "insert into amazon_email_queue (to_addr, from_addr, from_name, subject, body, html) values (?,?,?,?,?, true)" (to, from, fromName, subj, body)
 
+-- | Sends a single html message, writing it out to the stdout
+sendMessageHtmlVerbose :: HasPostgres (Handler b a) => Email -> Handler b a ()
+sendMessageHtmlVerbose e@(Email to from fromName subj body) =
+  do liftIO $ print e
+     sendMessageHtml e
 
 -- | Sends many plain text messages
 sendMessages :: HasPostgres (Handler b a) => [Email] -> Handler b a ()
 sendMessages es = do
-  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."
   executeMany "insert into amazon_email_queue (to_addr,from_addr,from_name,subject,body) values (?,?,?,?,?)"
     (map (\(Email to from fromName subj body) -> (to,from,fromName,subj,body)) es)
   return ()
 
+-- | Sends many plain text messages, logging the result to stdout
+sendMessagesVerbose :: HasPostgres (Handler b a) => [Email] -> Handler b a ()
+sendMessagesVerbose es = do
+  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."
+  sendMessages es
+
 -- | Sends many html messages
 sendMessagesHtml :: HasPostgres (Handler b a) => [Email] -> Handler b a ()
 sendMessagesHtml es = do
-  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."
   executeMany "insert into amazon_email_queue (to_addr,from_addr,from_name,subject,body,html) values (?,?,?,?,?,?, true)"
     (map (\(Email to from fromName subj body) -> (to,from,fromName,subj,body)) es)
   return ()
+
+-- | Sends many html messages, logging the result to stdout
+sendMessagesHtmlVerbose :: HasPostgres (Handler b a) => [Email] -> Handler b a ()
+sendMessagesHtmlVerbose es = do
+  liftIO $ putStrLn $ "Sending " ++ show (length es) ++ " messages."
+  sendMessagesHtml es