[Haskell-cafe] Sending email

[David Escobar]

Alex, unfortunately I get compiler errors when adding the *smtp-mail-ng*
library (I'm using Stack for my dependency management/builds). Not sure if
I'm doing something wrong on my end, but it seems to be something in the
library itself.

*
/private/var/folders/kg/p_frph3n0d71yfmvn553s4rh0000gn/T/stack69375/smtp-mail-ng-0.1.0.2/Network/Mail/SMTP/SMTP.hs:201:3:*
*        Couldn't match type ‘Context’ with ‘IO Context’*
*        Expected type: SystemRNG -> IO Context*
*          Actual type: SystemRNG -> Context*
*        The function ‘contextNew’ is applied to three arguments,*
*        its type is ‘backend0 -> params0 -> m0 Context’,*
*        it is specialized to ‘Handle*
*                              -> ClientParams -> SystemRNG -> Context’*
*        In a stmt of a 'do' block: contextNew handle params rng*
*        In the expression:*
*          do { rng <- (createEntropyPool >>= return . cprgCreate) ::*
*                        IO SystemRNG;*
*               certStore <- getSystemCertificateStore;*
*               let params = tlsClientParams hostname certStore;*
*               contextNew handle params rng }*


On Mon, Apr 18, 2016 at 6:15 PM, David Escobar <davidescobar1976 at gmail.com>
wrote:

> Thanks Alex. I'll start looking into that.
>
>
> On Mon, Apr 18, 2016 at 3:43 PM, Alexander Vieth <aovieth at gmail.com>
> wrote:
>
>> Right, you need to STARTTLS and upgrade to a secure connection before
>> trying to authenticate, but smtp-mail will not take care of this for you.
>> You could do it manually, using the tls package, or you could try
>> smtp-mail-ng[1][2].
>>
>> Alex
>>
>> [1] https://github.com/avieth/smtp-mail-ng
>> [2] https://hackage.haskell.org/package/smtp-mail-ng-0.1.0.1
>>
>> On Mon, Apr 18, 2016 at 6:36 PM, David Escobar <
>> davidescobar1976 at gmail.com> wrote:
>>
>>> No explicit mention is made anywhere in the documentation about TLS or
>>> even SSL, so perhaps not? Some libraries I've come across specifically
>>> mention that they don't support TLS or SSL. Being relatively new to this
>>> part of Haskell, what is the most standard library the community uses for
>>> email that supports modern protocols such as those used by GMail? Thanks.
>>>
>>> On Mon, Apr 18, 2016 at 2:49 PM, Alex Feldman-Crough <alex at fldcr.com>
>>> wrote:
>>>
>>>> Does the library support TLS? Does it have to be configured
>>>> differently? It sounds like a negotiation error to me.
>>>> On Mon, Apr 18, 2016 at 2:43 PM David Escobar <
>>>> davidescobar1976 at gmail.com> wrote:
>>>>
>>>>> 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
>>>>>
>>>> --
>>>> Alex Feldman Crough
>>>> 602 573-9588
>>>
>>>
>>>
>>> _______________________________________________
>>> 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/20160418/262e385d/attachment.html>