[Haskell-cafe] Sending email

[David Escobar]

Forgot to include the header and imported modules in my last message:

*{-# LANGUAGE OverloadedStrings #-}*

*module Main where*

*import Network.HaskellNet.SMTP*
*import Network.HaskellNet.SMTP.SSL*

*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 Tue, Apr 19, 2016 at 1:13 AM, David Escobar <davidescobar1976 at gmail.com>
wrote:

> 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/b5bb1373/attachment.html>