SPAM-Defence-Script

[Theo Gottwald]

These days we all got a lot of SPAM. So what to do with it?
Just delete it and forget it?

There is way to "strike back". You can send the SPAM Mail to: 

allgemeiner-spam@internet-beschwerdestelle.de;general-spam@internet-beschwerdestelle.de

These are two agencies who will then take a look on it and if possible do something against it.
At least for some of the SPAM cases.

Because i get hundreds of SPAM Mails, i do not want to do that manually.
I have a SPR-Script for that. You find it below.

How to prepare the Script:

1. Add the details of your E-Mail-Account in teh lines at the Bottom of the Script.
2. Save the Script. Compile the Script.

How the Script is used:

1. First select all the SPAM Mails you want to report.
2.  Move the SPAM Mails all together with "Drag and Drop" into the SPAM-Subfolger, that is in the same folder as this compiled Script.
Outlook will now save the SPAM Mails as "***.msg"-files
3. Select all these ".msg" Files and rename them in one Strike to "SPAM.msg".
Explorer will generate SPAM(1).msg ... SPAM(599).msg automatically.

Next start the Script.
This Script will send each SPAM Mail in a separate Mail with Text to these adress and report the SPAM Mail.

Code Select Expand


'
'SPR Script-file: SPAM-Mailer
'Purpose:
'Author: Theo
'Creation date: 12-23-2019 at 14:31:59
'===========================================================
'#EXE:?path\
'#SPI:ForceWrite

$$FOL=?exeloc\SPAM
GSB.maildef
GSB.getxt
FEF.doit|$$FIN|$$FOL|*.msg
MBX.Ready

ENR.
'-----------------------------------------------------------
:Lab_Pause
RND.10|15|§§ERG
PAU.§§ERG|min
RET.
'-----------------------------------------------------------
:getxt
$$TXT=Hallo $crlf$
$$TXT=$$TXT$crlf$
$$TXT=$$TXT$crlf$Attached to this mail is an unwanted, unsolicited SPAM Mail..$crlf$
$$TXT=$$TXT$crlf$Please act according to your rules that you state on your WEB-Site.$crlf$
$$TXT=$$TXT$crlf$PS: You have been sending me Mails from your whitelkist-account, in the past,$crlf$
$$TXT=$$TXT$crlf$which I can NOT answer because your server does not accept Mails from me. All Mails bounce.$crlf$
$$TXT=$$TXT$crlf$kind regards
$$TXT=$$TXT$crlf$
$$TXT=$$TXT$crlf$[Your contact data]
$$TXT=$$TXT$crlf$
$$TXT=$$TXT$crlf$
RET.
'-----------------------------------------------------------
:rnd_bit
RND.0|1|§§ERG
RET.
'-----------------------------------------------------------
:doit
' Attachment

VAF.$$TAB=$$FIN
:Send
NEF.$$TAB
  MBX.Error with SPAMFILE.
  ENR.
EIF.   
SMP.SendFile=$$TAB

' Text
SMP.text=$$TXT

' Subject
SMP.subject=Unwanted SPAM Mail attached
VAR.$$REC=allgemeiner-spam@internet-beschwerdestelle.de
'VAR.$$REC=atg@fa2.de
SMA.$$REC|$$ERG
DBP.$$000
PRT. Mail sent at: $time$ ->$$ERG
DEL.$$TAB
RET.
'-----------------------------------------------------------
:maildef
SMP.SendFrom=[Your maiadress]
SMP.smtp-server=smtp.[your smtp-server]
SMP.port=25
SMP.sender=Your Name <Your e-mail>
SMP.receiver=allgemeiner-spam@internet-beschwerdestelle.de;general-spam@internet-beschwerdestelle.de
SMP.Reply-To=[Your Mail-Adress]
SMP.Auth=On
SMP.Login=[Your Login-Name]
SMP.password=[your password]
SMP.Localhost=Localhost
RET.
'-----------------------------------------------------------
ENR.
'===========================================================