Use vbs to send emails to any emails

Rem I an 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 ()

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 (35) 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