如何用vbs编写一个自动发送邮件的程序 要精简

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "xiaomingtt@126.com"'用来发送邮件的地址

Email.To = "330404116@qq.com" '发送到悉燃亮

Email.Subject = "邮件标段虚题"

Email.Htmlbody = "邮件正文（支持html格式）睁宽"

Email.AddAttachment "c:\附件.txt"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "smtp.126.com" 'SMTP服务器地址

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "xiaomingtt" '邮箱账号

.Item(NameSpace&"sendpassword") = "*******"'邮箱密码

.update

End With

Email.Send

拿记事本为例：

Set a=WScript.CreateObject("WScript.Shell")

a.Run "notepad"

这就运行了记事本，不保存关闭就是

a.SendKeys " %{f4}"

WScript.Sleep 50

a.SendKeys "{tab}"

WScript.Sleep 50

a.SendKeys "{enter} "

如果还要打开一个空记事本：

Set b=WScript.CreateObject("WScript.Shell")

b.Run "notepad"

第二个建立起来的记事本就没有了第一个记事本的内容。

如果需要第一个记事本的内容，就不能真正意义上的关闭，应该是隐藏到后台，需要的时橡敬候在调御隐用出来：

这个是一个后台音乐播放器隐藏代码（记事本隐藏根本看不到，也听不到所以用这个给你演示）

strComputer = "."

Set f=CreateObject("Wscript.Shell")

f.Run("wmplayer.exe d:\123.mp3"),0

wscript.sleep 100

Set objWMIService = GetObject _

("winmgmts:\\" &strComputer &"梁拆慎\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = wmplayer.exe ")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

office365是邮件客户端，不应帆知轿该调用它

vbs应该调用邮件服务器态肆

即你office填写的smtp服猛镇务器

然后还必须使用验证模式 要有邮箱用户名密码

这样就可以验证发送邮件了

---