快速业务通道

用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 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号