'Sample Script to demontrate the use of the pop interface
'Copyright www.aloaha.com
'needs minimum version 3.0.25 of SDK
on error resume next

'create objects
Set pop=CreateObject("pop3news.popnews")
Set spf=CreateObject("spf_dns.DNSClass")

'Set POP3 username, password, server and port
pop.username="pop"
pop.password="pop"
pop.remotehost="192.168.0.111"
pop.remoteport="110"

'Set forward server properties. if left empty strings it will use pickup
SMTPServer="10.0.0.111"
SMTPPort="25"

'change mailfrom. if left empty string it will use the original
MailFrom="bla@bla.de"

'change recipient. If left empty it will use the original one
RCPTto="mymail@mydomain.com"
RCPTtoSPAM="SPAM@mydomain.com"

'Set buestgues - if empty string it wont be used
buestguess="v=spf1 mx/24 a/24 ptr -all"

If CInt(pop.getammount)>0 Then
	For i=1 to pop.getammount
		header=CStr(pop.getheader(CStr(i)))
		If spf.eval_header_for_spf(CStr(header),CStr(buestguess),"","")=true Then
			success = pop.send_email(pop.get_cdo(CStr(i)), CStr(SMTPServer), CStr(SMTPPort), CStr(MailFrom), CStr(RCPTto), "", "")
		Else
			success = pop.send_email(pop.get_cdo(CStr(i)), CStr(SMTPServer), CStr(SMTPPort), CStr(MailFrom), CStr(RCPTtoSPAM), "", "")
		End If
		If success=true Then
			success=pop.deletemail(CStr(i))
		End If
	Next
End If

success=pop.close_and_quit

Set spf=nothing
Set pop=nothing
