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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loJson
LOCAL loHttp
LOCAL loResp

lnSuccess = 0

* 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.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.JsonObject')
loJson.UpdateString("email",loEmail.GetMime())
loJson.UpdateString("options","short")

loHttp = CreateObject('Chilkat.Http')
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://spamcheck.postmarkapp.com/filter",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loEmail
    RELEASE loJson
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

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

RELEASE loEmail
RELEASE loJson
RELEASE loHttp
RELEASE loResp