用vbs实现向任何电子邮件发送邮件
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: vbscript禁用 启用fso的方法下一篇: vbs下一些取特殊路径的方法总结
关于用vbs实现向任何电子邮件发送邮件的所有评论