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

                                                           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