Using the VBS implementation to send mail to any e-mail _vbs

rem I a bird,not a big bird,it is a dull bird.
rem I didn ' t sing three years ago,today i chirp it.

' On Error Resume Next
On Error Goto 0
Set fs = CreateObject ("Scripting.FileSystemObject")
Set letter = fs. CreateTextFile (WScript. scriptfullname& ". txt", True)
A= chr (97)
For x=97 to 121
A=A&CHR (x+1)
Next
Letter. WriteLine (a)

n= Chr (48)
For x=48 to 56
N=N&CHR (x+1)
Next
Letter. WriteLine (N)

L=a&la
Bl=a&la&n
Sl=a&n

Dim aletter (Km) REM 2 0
For Z=1 to 36
Aletter (z-1) =mid (sl,z,1)
Rem MsgBox Aletter (z-1)
Next

Dim Al (25)
For Z=1 to 26
Al (z-1) =mid (a,z,1)
Rem MsgBox Al (z-1)
Next REM 30

For Z=1 to 26
S=al (z-1)
For Z1=1 to 26
S1= "." &al (z1-1) &s
For Z2=1 to 26
S2=al (z2-1) &s1
For Z3=1 to 26
S3=al (z3-1) &s2
For Z4=1 to 26
S4= "." &al (z4-1) &s3
For Z5=1 to 36
S5=aletter (z5-1) &s4
For Z6=1 to 36 ' 50
S6=aletter (z6-1) &s5
For Z7=1 to 36
S7=aletter (z7-1) &s6
For Z8=1 to 36
S8=aletter (z8-1) &s7
For Z9=1 to 36
S9=aletter (z9-1) &s8 ' 60
For Z10=1 to 36
s10= "@" &aletter (z10-1) &S9
For Z11=1 to 36
S11=aletter (z11-1) &S10
For Z12=1 to 36
S12=aletter (z12-1) &S11
For Z13=1 to 36 ' 70
S13=aletter (z13-1) &s12
For Z14=1 to 36
S14=aletter (z14-1) &s13
For Z15=1 to 36
S15=aletter (z15-1) &s14
For Z16=1 to 36
S16=aletter (z16-1) &s15
For Z17=1 to 36
S17=aletter (z17-1) &s16
For Z18=1 to 36
S18=aletter (z18-1) &s17
For Z19=1 to 36
S19=aletter (z19-1) &s18
' MsgBox S19
Set Outlookapp = CreateObject ("Outlook.Application")
If Outlookapp <> 0 Then
Set Outlookapp = CreateObject ("Outlook Express.application")
End If
For n =1 to 10
Set Item =outlookapp.createitem (o)
Item.to =S19
Item.Subject = "Test"
Item.Body = "Hello"
Item.Send
Next




Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next