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|………

Google ads