欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

用vbs实现向任何电子邮件发送邮件

程序员文章站 2022-04-10 08:05:39
rem i an bird,not a big bird,it is a dull...
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