On Fri, Apr 29, 2016 at 7:07 AM, David Johnson <djohnson.m@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@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.Generics
import Network.HTTP.Client
import Network.HTTP.Client.TLS
import Network.Mail.Mime
import Network.Mail.Mime.SES
import Text.Hamlet (shamlet)
import Text.Blaze.Html.Renderer.String (renderHtml)

import qualified Data.ByteString.Char8 as C8
import qualified Data.Text as T
import qualified Data.Text.Lazy as LT

main :: IO ()
main = do
manager <- newManager tlsManagerSettings
let sesConfig = SES { sesFrom = C8.pack "de@somewhere.com",
sesTo = [ C8.pack "someone.else@somewhereelse.com" ],
sesAccessKey = "SOMEAWSACCESSKEY",
sesSecretKey = "ANEVENLONGERAWSSECRETKEY1234567890",
sesRegion = usEast1 }
email = Mail { mailFrom = Address (Just "David Escobar") "de@somewhere.com",
mailTo = [ Address (Just "Someone Else") "someone.else@somewhereelse.com" ],
mailParts = [ [ htmlPart testEmail ] ],
mailCc = [],
mailBcc = [],
mailHeaders = [ ("subject", "Some Test Email"),
("Content-Type", "text/html; charset=ISO-8859-1") ] }
renderSendMailSES manager sesConfig email

testEmail :: LT.Text
testEmail =
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@haskell.org
http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe

--

Cell: 1.630.740.8204