vbs发送邮件 1）提取内容 2）判断附件 - 中国DOS联盟论坛

用vbs发送邮件
1）请问有什么办法把C:\a.txt 的内容作为邮件内容发送？
2）如果附件C:\b.txt 不存在，vbs会出错，不用fso ，怎么判断是否存在"C:\b.txt"，如果存在则发送，如果不存在，则不发送邮件。
3）顺便问一下，vbs发邮件，附件的限制是不是所用发送的邮箱的限制？

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "x1@cn.com"
Email.To = "m2@mail.com"
Email.Subject = "标题"
Email.Textbody = "内容"
Email.AddAttachment "C:\b.txt"

With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "tt.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "xx"
.Item(NameSpace&"sendpassword") = "mail"
.Update
End With
Email.Send
Set Email=Nothing

第1楼　ooaf	发表于 2009-02-18 00:54
中级用户　发帖 162　积分 313
vbs发送邮件 1）提取内容 2）判断附件用vbs发送邮件 1）请问有什么办法把C:\a.txt 的内容作为邮件内容发送？ 2）如果附件C:\b.txt 不存在，vbs会出错，不用fso ，怎么判断是否存在"C:\b.txt"，如果存在则发送，如果不存在，则不发送邮件。 3）顺便问一下，vbs发邮件，附件的限制是不是所用发送的邮箱的限制？ NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "x1@cn.com" Email.To = "m2@mail.com" Email.Subject = "标题" Email.Textbody = "内容" Email.AddAttachment "C:\b.txt" With Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "tt.com" .Item(NameSpace&"smtpserverport") = 25 .Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "xx" .Item(NameSpace&"sendpassword") = "mail" .Update End With Email.Send Set Email=Nothing

第2楼　slore	发表于 2009-02-18 19:36
铂金会员　发帖 2,478　积分 5,212
不用fso ，怎么判断是否存在"C:\b.txt" 为什么不用？如果非不用。。。就 on error resume next if err then WSH.quit