Subject: Blacklist SPAMHAUS
You should add to the server configuration
DNS Blacklist sites: sbl.spamhaus.org; bl.spamcop.net
spamcop is the best as you can also set up a script to report to abusereport@spamabuse.org from a spam deposit database (we have a central one for everyone that I have created) then a agent generates the report and issues to spamcop.
A delivery failure to spamabuse@yourdomain
temp stops the agent, just incase there mail box is full. i.e spam report db has an agent that checks for failure reports if so then notifies admin and stops.
You must include header info for the report email… i.e
A small extract, not complete, of how to retrieve the header info (not all but enough for spamcop)
Dim s As New NotesSession
Dim doc As Notesdocument
Dim MIME As NotesMimeEntity
s.ConvertMime = False
’ ADD CODE HERE TO ASSIGNED DOC could be from dc or from uiview, etc…
Set MIME = doc.GetMIMEEntity(“Body”)
If Not(mime Is Nothing) Then
Dim filters(11) As String
filters(0) = “Subject”
filters(1) = “Received”
filters(2) = “Message-ID”
filters(3) = “Reply-To”
filters(4) = “Date”
filters(5) = “From”
filters(6) = “To”
filters(7) = “Cc”
filters(8) = “Bcc”
filters(9) = “Content-Type”
filters(10) = “X-Mailer”
If doc.MIMEHeader(0) = “” Then
doc.MIMEHeader = mime.GetSomeHeaders(filters, True)
s.ConvertMime = True