[Haskell-cafe] Amazon SES email issues
David Escobar
davidescobar at ieee.org
Sat Apr 30 08:18:22 UTC 2016
Hi Brendan. Yes, I use port 587 in my other apps and it's worked fine
there. When using Network.Mail.Mime.SES, I haven't found a place to
explicitly set it though. Perhaps it assumes 587 by default? I've also used
the same keys but no success there. I tried flipping them around, and got
an authentication error, so I know the original order was correct.
The only other thing I'm doing in my Rust program is setting the
authentication mechanism to PLAIN and there's also an option to always
encrypt which I've set as well. There doesn't seem to be an exact
equivalent set of options in Network.Mail.Mime.SES, but perhaps it also
does those by default?
On Sat, Apr 30, 2016 at 12:59 AM, Brendan Hay <brendan.g.hay at gmail.com>
wrote:
> No examples for amazonka-ses yet unfortunately. There are brief examples
> in the source repository for other services:
> https://github.com/brendanhay/amazonka/tree/develop/examples/src/Example
> I'll add something for SES shortly.
>
> The amazonka-* library operations and types map directly to the AWS
> documentation - so you will need to a) have an understanding of the
> product/service offering b) be willing to reference the relevant AWS
> documentation.
> Each amazonka-* library can be considered a 'low level' interface to the
> related Amazon service, with a unified AuthN/AuthZ (newEnv) and
> request/response (send) interface available in the main 'amazonka' library.
>
> For your example above, as the older AWS APIs tend to have fairly
> unhelpful error messages - your only option unfortunately is trial and
> error. The keys are naturally the first thing to check, make sure you
> haven't mixed up the access and secret keys by accident and that they are
> in fact the same keys being used by your equivalent Rust program.
>
> Just for clarification - you mentioned port 587, are you attempting to
> communicate with a non-standard endpoint?
>
> On 30 April 2016 at 09:10, David Escobar <davidescobar at ieee.org> wrote:
>
>> David, thanks for the suggestion. Are there any examples on how to send
>> an email? I've looked through several of the Haskell email packages and
>> have been able to figure out their APIs easily enough, but this one seems
>> incredibly complex - almost seem to have to know the internals of SES to
>> use it effectively and the documentation / examples are scant.
>>
>> On Fri, Apr 29, 2016 at 7:07 AM, David Johnson <djohnson.m at gmail.com>
>> wrote:
>>
>>> I think that package is using an outdated version of the AWS Signing
>>> algorithm.
>>>
>>> "AWS3-HTTPS"
>>> I think AWS is migrating most of their APIs (who have domains / services created after a certain date) to require using the V4 Signature algorithm for all API requests.
>>>
>>> The amazonka-ses would probably work better.
>>>
>>>
>>> On Fri, Apr 29, 2016 at 1:45 AM, David Escobar <davidescobar at ieee.org>
>>> wrote:
>>>
>>>> Hi everyone,
>>>> I'm having issues with sending email through Amazon SES. I'm using the
>>>> *Network.Mail.Mime.SES* package. The error I get is:
>>>>
>>>> *email-test-exe: SESException {seStatus = Status {statusCode = 403,
>>>> statusMessage = "Forbidden"}, seCode = "SignatureDoesNotMatch", seMessage =
>>>> "The request signature we calculated does not match the signature you
>>>> provided. Check your AWS Secret Access Key and signing method. Consult the
>>>> service documentation for details.", seRequestId =
>>>> "8ceb250a-0dd3-11e6-892c-4fb1a14d4732"}*
>>>>
>>>> What's confusing is that I'm using the same SES settings in a Rails app
>>>> as well as a small Rust console program without any issues (it works from
>>>> the same machine too). The only thing I can think of is that with this
>>>> Haskell package, I haven't found where to set certain things like the port
>>>> number (587) and so maybe it's that? Here is a small sample app that
>>>> illustrates the problem. What am I missing? Thanks.
>>>>
>>>>
>>>>
>>>> *{-# LANGUAGE OverloadedStrings #-}{-# LANGUAGE QuasiQuotes #-}*
>>>> *module Main where*
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> *import Data.Function ((&))import GHC.Genericsimport
>>>> Network.HTTP.Clientimport Network.HTTP.Client.TLSimport
>>>> Network.Mail.Mimeimport Network.Mail.Mime.SESimport Text.Hamlet
>>>> (shamlet)import Text.Blaze.Html.Renderer.String (renderHtml)import
>>>> qualified Data.ByteString.Char8 as C8import qualified Data.Text as Timport
>>>> qualified Data.Text.Lazy as LTmain :: IO ()main = do manager <- newManager
>>>> tlsManagerSettings let sesConfig = SES { sesFrom = C8.pack
>>>> "de at somewhere.com <de at somewhere.com>", sesTo = [
>>>> C8.pack "someone.else at somewhereelse.com <someone.else at somewhereelse.com>"
>>>> ], sesAccessKey = "SOMEAWSACCESSKEY",
>>>> sesSecretKey = "ANEVENLONGERAWSSECRETKEY1234567890",
>>>> sesRegion = usEast1 } email = Mail { mailFrom = Address (Just
>>>> "David Escobar") "de at somewhere.com <de at somewhere.com>",
>>>> mailTo = [ Address (Just "Someone Else") "someone.else at somewhereelse.com
>>>> <someone.else at somewhereelse.com>" ], mailParts = [ [
>>>> htmlPart testEmail ] ], mailCc = [],
>>>> mailBcc = [], mailHeaders = [ ("subject", "Some Test
>>>> Email"), ("Content-Type", "text/html;
>>>> charset=ISO-8859-1") ] } renderSendMailSES manager sesConfig
>>>> emailtestEmail :: LT.TexttestEmail = let rows = [ [ "1", "2", "3" ], [
>>>> "4", "5", "6" ]] in renderHtml [shamlet| $doctype 5 <html>
>>>> <body> <table style="border: 1px solid black; border-collapse:
>>>> collapse; margin: 25px 0; width: 100%;"> <tr> <th
>>>> style="background-color: #072a2d; color: white; font-weight: bold;
>>>> border-right: 1px solid white; padding: 5px 10px; width: 33%;">
>>>> Column 1 <th style="background-color: #072a2d; color:
>>>> white; font-weight: bold; border-right: 1px solid white; padding: 5px 10px;
>>>> width: 33%;"> Column 2 <th
>>>> style="background-color: #072a2d; color: white; font-weight: bold;
>>>> border-right: 1px solid white; padding: 5px 10px; width: 33%;">
>>>> Column 3 $forall row <- rows <tr
>>>> style="background-color: #f8f9ee;"> <td style="border: 1px
>>>> solid black; padding: 5px 10px; text-align: left; width: 33%;">
>>>> #{T.pack $ row !! 0} <td style="border: 1px solid
>>>> black; padding: 5px 10px; text-align: left; width: 33%;">
>>>> #{T.pack $ row !! 1} <td style="border: 1px solid black;
>>>> padding: 5px 10px; text-align: left; width: 33%;">
>>>> #{T.pack $ row !! 2} |] & LT.pack*
>>>>
>>>>
>>>> _______________________________________________
>>>> Haskell-Cafe mailing list
>>>> Haskell-Cafe at haskell.org
>>>> http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe
>>>>
>>>>
>>>
>>>
>>> --
>>> Cell: 1.630.740.8204
>>>
>>
>>
>> _______________________________________________
>> 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/20160430/02eb5c15/attachment.html>
More information about the Haskell-Cafe
mailing list