Visual Basic 6.0
Visual Basic 6.0
Get SpamAssassin Score for an Email
See more Email Object Examples
Uses Postmark’s spam API (a RESTfull interface to the SpamAssassin filter tool) to analyze an email to get a spam score.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 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.
Dim email As New ChilkatEmail
email.Subject = "this is a test"
email.From = "support@chilkatsoft.com"
success = email.AddTo("John Doe","john@example.com")
success = email.AddPlainTextAlternativeBody("this is a test")
success = email.AddHtmlAlternativeBody("<html><body><b>Hello John!</b><p>This is a test</p></body></html>")
success = email.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"}'
Dim json As New ChilkatJsonObject
success = json.UpdateString("email",email.GetMime())
success = json.UpdateString("options","short")
Dim http As New ChilkatHttp
Dim resp As New ChilkatHttpResponse
success = http.HttpJson("POST","https://spamcheck.postmarkapp.com/filter",json,"application/json",resp)
If (success = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print "response status code = " & resp.StatusCode
Debug.Print "response body: "
Debug.Print resp.BodyStr