SparkPost Help Appreciated

[JoePK]

Hello,

I am likely missing something very straightforward in getting SparkPost to function, but it has eluded me so far.

I created a simple UX with two buttons, one using an Ajax callback and the following Xbasic:

function emailSend as c (e as p)
dim ms as p
ms.send_to = "[email protected]"
ms.from_email = "My SparkPost Account Email"
ms.subject = "Greetings!"
ms.message_text = "Hello there!"
dim key as c = "My SP Secret Key"
dim result as p
result = email_send_sparkpost(key,ms)
end function

Note that all email addresses are valid in my actual code, as is the secret key.

I receive an Ajax completed message but nothing from SparkPost

The second button uses the Send email Action Javascript with SparkPost parameters and Text input. With the Action Javascript nothing happens....no confirmation message, success or failure.

I confirmed that my SparkPost account is live and verified the DKIM entry again to be sure. I deleted the first API key and created another to ensure I copied it correctly. The SparkPost Usage page doesn't show an email injection let alone a send.

In Web Project Properties, Cooked SameSite value is None.

Any thoughts/advice is appreciated.
Joe

[glenschild]

Hi Joe

I use a different technique using email_smtp_open() and email_smtp_send() which works for me note also I am in the UK so am using the eu.sparkpost.com setup so the built in action javascript does not work:

dim result as l
dim pm as p
dim ps as p

pm.to         = [email protected]"
pm.bcc         = "xxx.com"
pm.cc        = ""
pm.subject     = "Subject Name"
pm.html_message     = "email body"
pm.attachments = savebook 'variable from pdf created earlier in the script
pm.from_alias = "Domain on sparkpost"
pm.from = "[email protected]"

result = email_smtp_open(ps,"smtpname",587,"SMTP_Injection","key")

if result = .f. then
    args.Set("how_notified","** Email FAILED")
    cn.Execute(qry2,args)
    err = error_code_get()
    sc_log_add("Email Failed: " + result + " for " + rs.data("email") + " error " + error_text_get(err) )
else
    args.Set("how_notified","Email Sent")
    cn.Execute(qry2,args)
'    sc_log_add("Email Sent: " + result + " for " + rs.data("email") )
end if​

result = email_smtp_send(pm,ps)

[armasoft]

message_html is a required field according to the doc.

We no longer use the alpha function as we're based in the UK and use an EU account on sparkpost. We use email_smtp_open() and email_smtp_send() within the code below...

FUNCTION E_Send_SparkPost AS C (email_to as C, email_subject as C, email_message as C, email_html_message as C, email_attachments as C)

dim result as C
dim ps as p
dim pm as p
dim API_key as C = "myAPIkey"
dim email_images as C = ""
dim email_from as C = "myfrom@mydomain"
dim email_alias as C = "my friendly name"

result = email_smtp_open(ps, "smtp.sparkpostmail.com", 587, "SMTP_Injection",API_key, "STARTTLS")
if result then
    pm.from = email_from
    pm.from_alias = email_alias
    pm.to = email_to
    pm.subject = email_subject
    pm.message = email_message
    pm.attachments = email_attachments
    pm.html_message = email_html_message
    pm.inlineImages = email_images
    'HTML msg not required with email_smtp_send, but set lRelated flag to 'T' if defined
    if email_html_message <> "" then
        pm.lRelated = .T.
    else
        pm.lRelated = .F.
    end if        
    result = email_smtp_send(pm,ps)
end if

result = ps.buffer
pp=email_smtp_close(ps)
E_Send_SparkPost = result
END FUNCTION​

I have modified the target to smtp.sparkpostmail.com in case you wish to use this.

[JoePK]

Thank you! Glenschild also responded with the UK version which does work for the US as well. I do appreciate the addition of the inlineImages line as that will be a downstream addition.

Again, thank you.
Joe