(Visual FoxPro) Get SpamAssassin Score for an Email

Uses Postmark’s spam API (a RESTfull interface to the SpamAssassin filter tool) to analyze an email to get a spam score.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loEmail
LOCAL loJson
LOCAL loHttp
LOCAL loResp

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* First build an email to check.
loEmail = CreateObject('Chilkat_9_5_0.Email')
loEmail.Subject = "this is a test"
loEmail.From = "support@chilkatsoft.com"
loEmail.AddTo("John Doe","john@example.com")
loEmail.AddPlainTextAlternativeBody("this is a test")
loEmail.AddHtmlAlternativeBody("<html><body><b>Hello John!</b><p>This is a test</p></body></html>")
lnSuccess = loEmail.AddFileAttachment2("qa_data/jpg/starfish.jpg","image/jpeg")

* Check this email by implementing this curl command:

* curl -X POST "https://spamcheck.postmarkapp.com/filter"
* -H "Accept: application/json"
* -H "Content-Type: application/json"
* -v
* -d '{"email":"raw dump of email", "options":"short"}'

loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.UpdateString("email",loEmail.GetMime())
loJson.UpdateString("options","short")

loHttp = CreateObject('Chilkat_9_5_0.Http')
loResp = loHttp.PostJson3("https://spamcheck.postmarkapp.com/filter","application/json",loJson)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loEmail
    RELEASE loJson
    RELEASE loHttp
    CANCEL
ENDIF

? "response status code = " + STR(loResp.StatusCode)
? "response body: "
? loResp.BodyStr

RELEASE loResp

RELEASE loEmail
RELEASE loJson
RELEASE loHttp