on error resume next
set args = wscript.arguments
if args.count = 0 then wscript.quit
for i = 0 to args.count - 1
arg = args(i)
ti = mid(arg,instrrev(arg,"\") + 1,instrrev(arg,".") - instrrev(arg,"\") - 1)
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "AAA[email=AAA@qq.com]@qq.com[/email]"    '用来发送邮件的地址
Email.To = "[email=DDD@qq.com]DDD@qq.com[/email]"   '发送到
Email.Subject = ti
Email.Htmlbody = "查看附件"
Email.AddAttachment arg
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com" 'SMTP服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "BBB" '邮箱账号
.Item(NameSpace&"sendpassword") = "CCC"'邮箱密码
.update
End With
Email.Send
if Err then
Err.clear
CreateObject("WScript.Shell").popup "发送失败!",2,"右键邮-by:xiaomingtt",48
else
CreateObject("WScript.Shell").popup "发送成功!",2,"右键邮-by:xiaomingtt",64
createobject("scripting.filesystemobject").deletefile(arg)
end if
next