FetchSPF is an ActiveX component that returns SPF-1 IP Numbers
Description SPF establishes a policy framework and a sender authentication scheme that verifies the identity of email servers (domains) for incoming messages. The Control willreturn all the IP numbers associated with a domain which is using SPF Records.
Methods  
Fetch
Returns a string with all the IP numbers
separated by a ‘|’. It is recursive and will display
duplicate IP’s. If there are no SPFrecords a blank string is
returned.


object.

fetch(Top
level domain,DNS)

Top
level domain
String
i.e
hotmail.com

DNS
String
DNS to
use for check. e.g 127.0.0.1

Returns
String		  
Parameters  
SenderIP
Set to the email senders IP. Used in evaluating
PTR records

object.Senderip
 

Senderip

 String

 

Returns

 

 String
Failtype
Set to 0,1 or 2. Defines the ALL types. The all
type terminates processing. It is normally present
in the form -all to signify that if processing
reaches this point without a prior match the result
will be fail. But if you are not sure that the tests
are conclusive you could use ?all which would allow
mail to be accepted even if all previous checks
failed.
0 = -ALL. Pass Only Hard Fail
1 = ~ALL. Fail Soft and Hard
2 = ?ALL .Ignore All function

object.failtype

Failtype
Integer

Returns
Integer
Example  
Visual Basic Dim fetchspf As Object

fetchspf = CreateObject(”fetchspf.spfread”)

fetchspf.senderip = “216.113.167.215″
fetchspf.failtype = 0

RichTextBox1.Text = fetchspf.fetch(”ebay.co.uk”,”127.0.0.1″)

Returns e.g
66.135.195.180|216.113.167.215|66.135.195.181|66.135.195.181|………
FoxPro fetchspf = Createobject(’fetchspf.spfread’)

fetchspf.senderip=Alltrim(”216.113.167.215″)
fetchspf.failtype = 0

thisform.edit1.Value = fetchspf.Fetch(”ebay.co.uk”,”127.0.0.1″)

Returns e.g
66.135.195.180|216.113.167.215|66.135.195.181|66.135.195.181|………
Delphi var

fetchspf : olevariant;
begin

Try
fetchspf := CREATEoleOBJECT(’fetchspf.spfread’);
fetchspf.senderip :=trim(’216.113.167.215′);
fetchspf.failtype = 0
memo1.Text:= fetchspf.Fetch(’ebay.co.uk’,'127.0.0.1′);
finally
fetchspf := VarNull;
end;
end;

Returns e.g
66.135.195.180|216.113.167.215|66.135.195.181|66.135.195.181|………