Data commit

Task/Send-email/Haskell/send-email-1.hs

@@ -0,0 +1,24 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main (main) where
+
+import           Network.Mail.SMTP
+                    ( Address(..)
+                    , htmlPart
+                    , plainTextPart
+                    , sendMailWithLogin'
+                    , simpleMail
+                    )
+
+main :: IO ()
+main =
+    sendMailWithLogin' "smtp.example.com" 25 "user" "password" $
+        simpleMail
+            (Address (Just "From Example") "from@example.com")
+            [Address (Just "To Example") "to@example.com"]
+            [] -- CC
+            [] -- BCC
+            "Subject"
+            [ plainTextPart "This is plain text."
+            , htmlPart "<h1>Title</h1><p>This is HTML.</p>"
+            ]

Task/Send-email/Haskell/send-email-2.hs

@@ -0,0 +1,7 @@
+procedure main(args)
+    mail := open("mailto:"||args[1], "m", "Subject : "||args[2],
+                 "X-Note: automatically send by Unicon") |
+            stop("Cannot send mail to ",args[1])
+    every write(mail , !&input)
+    close (mail)
+end