[Haskell-cafe] Sending email

[David Escobar]

Actually Daniel, I'm glad you mentioned it. *HaskellNet* and
*HaskellNet-SSL* actually worked for me! Thank you for that!

The only thing I noticed with Gmail is that in order to work it requires
the sender's account to toggle this setting:
Allow less secure apps: OFF

Doesn't seem ideal, but I'm not sure if that's a fault of the library
itself or just the way it is with generic 3rd party apps that aren't
somehow registered with Google. But in any case, when I try it with another
Amazon AWS account, it doesn't have that problem, so it's all good since
that's the real account I wanted to get it working with anyway (Gmail was
just a more convenient "testing" platform).

In any case, here is the short generic code that works for future reference
so that hopefully others don't have to go through the same process just to
send an email. Thanks again Daniel, and thanks to everyone else for their
answers as well!

P.S. the *sslLogToConsole* option is great for seeing the handshaking going
on with the SMTP server.

*main :: IO ()*
*main = doSMTPSTARTTLSWithSettings "smtp.gmail.com <http://smtp.gmail.com>"
settings $ \conn -> do*
*  authSucceed <- authenticate LOGIN "gmail_login" "gmail_password" conn*
*  if authSucceed*
*    then do*
*      putStrLn "Sending email..."*
*      sendPlainTextMail "recipient at somewhere.com
<recipient at somewhere.com>"*
*                                    "sender at somewhere_else.com
<sender at somewhere_else.com>"*
*                                    "Haskell Email"*
*                                    "I can finally send email from Haskell
now!!"*
*                                    conn*
*    else print "Authentication failed."*
*  where settings = defaultSettingsSMTPSTARTTLS { sslPort = 587,
sslLogToConsole = True }*


On Mon, Apr 18, 2016 at 10:59 PM, Daniel P. Wright <dani at dpwright.com>
wrote:

> Not to throw another spanner in the works with Yet Another Package to try,
> but another option is HaskellNet[1] with HaskellNet-SSL[2] for your TLS
> connection.  I originally wrote the HaskellNet-SSL wrapper but it's
> currently being maintained by Leza Morais Lutonda.  It works with gmail.  I
> haven't tried any of the other SMTP options and I mostly used it for IMAP,
> not SMTP, so I can't compare them directly or recommend one over the other
> -- just throwing it out there as another option!
>
> [1]: http://hackage.haskell.org/package/HaskellNet
> [2]: http://hackage.haskell.org/package/HaskellNet-SSL
>
> 2016-04-19 6:42 GMT+09:00 David Escobar <davidescobar1976 at gmail.com>:
>
>> Hi everyone,
>> I'm trying to use the *Network.Mail.SMTP* library to send email:
>>
>> *{-# LANGUAGE OverloadedStrings #-}*
>>
>> *module Main where*
>>
>> *import Control.Exception*
>>
>> *import qualified Data.Text as T*
>> *import qualified Data.Text.Lazy as LT*
>> *import Network.Mail.SMTP*
>>
>> *main :: IO ()*
>> *main = do*
>> *  sendEmail (“Person sender”, “sender at somewhere.com
>> <sender at somewhere.com>”)*
>> *            [(“Person recipient“, “recipient at somewhere.com
>> <recipient at somewhere.com>”)]*
>> *            "Test email"*
>> *            "Some message goes here."*
>>
>>
>> *sendEmail :: (T.Text, T.Text) -> [(T.Text, T.Text)] -> T.Text -> T.Text
>> -> IO ()*
>> *sendEmail (fromName, fromEmail) toAddresses subject' body' = do*
>> *  let toNameAddrs = map (\(toName, toEmail) -> Address (Just toName)
>> toEmail) toAddresses*
>> *      msg = simpleMail (Address (Just fromName) fromEmail)*
>> *                       toNameAddrs*
>> *                       []*
>> *                       []*
>> *                       subject'*
>> *                       [ plainTextPart $ LT.fromStrict body' ]*
>> *  result <- try $ sendMailWithLogin' "smtp.gmail.com
>> <http://smtp.gmail.com>"*
>> *                                     465 -- SSL port*
>> *                                     “sender_login”*
>> *                                     “sender_password”*
>> *                                     msg :: IO (Either SomeException ())*
>> *  case result of*
>> *    Left e -> putStrLn $ "Exception caught: " ++ (displayException e)*
>> *    Right _ -> putStrLn "Sent email successfully."*
>>
>>
>> The program compiles, but when I run it, I get:
>>
>> *Exception caught: <socket: 49>: Data.ByteString.hGetLine: end of file*
>>
>> 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.
>>
>> _______________________________________________
>> Haskell-Cafe mailing list
>> Haskell-Cafe at haskell.org
>> http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/haskell-cafe/attachments/20160419/59f1041a/attachment-0001.html>