<div dir="ltr">Hi everyone,<div>I'm trying to use the <i>Network.Mail.SMTP</i> library to send email:</div><div><br></div><div><div><font face="monospace, monospace" size="1" color="#351c75"><b>{-# LANGUAGE OverloadedStrings #-}</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>module Main where</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>import Control.Exception</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>import qualified Data.Text as T</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>import qualified Data.Text.Lazy as LT</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>import Network.Mail.SMTP</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>main :: IO ()</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>main = do</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>  sendEmail (“Person sender”, “<a href="mailto:sender@somewhere.com">sender@somewhere.com</a>”)</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>            [(“Person recipient“, “<a href="mailto:recipient@somewhere.com">recipient@somewhere.com</a>”)]</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>            "Test email"</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>            "Some message goes here."</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>sendEmail :: (T.Text, T.Text) -> [(T.Text, T.Text)] -> T.Text -> T.Text -> IO ()</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>sendEmail (fromName, fromEmail) toAddresses subject' body' = do</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>  let toNameAddrs = map (\(toName, toEmail) -> Address (Just toName) toEmail) toAddresses</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>      msg = simpleMail (Address (Just fromName) fromEmail)</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                       toNameAddrs</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                       []</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                       []</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                       subject'</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                       [ plainTextPart $ LT.fromStrict body' ]</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>  result <- try $ sendMailWithLogin' "<a href="http://smtp.gmail.com">smtp.gmail.com</a>"</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                                     465 -- SSL port</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                                     “sender_login”</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                                     “sender_password”</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>                                     msg :: IO (Either SomeException ())</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>  case result of</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>    Left e -> putStrLn $ "Exception caught: " ++ (displayException e)</b></font></div><div><font face="monospace, monospace" size="1" color="#351c75"><b>    Right _ -> putStrLn "Sent email successfully."</b></font></div></div><div><font face="monospace, monospace" size="1" color="#351c75"><b><br></b></font></div><div><br></div><div>The program compiles, but when I run it, I get:</div><div>







<p class=""><span class=""><font face="monospace, monospace"><b>Exception caught: <socket: 49>: Data.ByteString.hGetLine: end of file</b></font></span></p><p class=""><span class="">I tried using the TLS port of 587, but then I just get an authentication failure. Am I using the wrong library or is it just the wrong configuration. Thanks.</span></p></div></div>