用vbs实现向任何电子邮件发送邮件
导读：收集整理的这篇文章主要介绍了用vbs实现向任何电子邮件发送邮件，觉得挺不错的，现在分享给大家，也给大家做个参考。 rem i an bird,not a Big bird,IT is a...
收集整理的这篇文章主要介绍了用vbs实现向任何电子邮件发送邮件，觉得挺不错的，现在分享给大家，也给大家做个参考。 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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs实现向任何电子邮件发送邮件
本文地址： https://pptw.com/jishu/609627.html