本帖最后由 522235677 于 2019-5-22 18:30 编辑
- NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
- set Email = CreateObject("CDO.Message")
- Email.From = "4324325@qq.com"
- Email.To = "thisexplorer@qq.com"
- Email.Subject = "来自 IP 来自:上海市 电信【101.229.24.63】的信息"
- Email.HTMLbody = "这里是正文"
- x="C:\fung.7z"
- y="C:\fung.7z"
- Set fso=CreateObject("Scripting.FileSystemObject")
- Set myfile=fso.OpenTextFile(x,1,Ture)
- c=myfile.readall
- myfile.Close
- Email.Textbody = c
- Email.AddAttachment y
- with Email.Configuration.Fields
- .Item(NameSpace&"sendusing") = 2
- .Item(NameSpace&"smtpserver") = "smtp.qq.com"
- .Item(NameSpace&"smtpserverport") = 25
- .Item(NameSpace&"smtpauthenticate") = 1
- .Item(NameSpace&"sendusername") = "4324324"
- .Item(NameSpace&"sendpassword") = "**************"
- .Update
- end with
- Email.Send
- Set Email=Nothing
复制代码 这个是发送邮件的vbs,测试可以发送。
Email.HTMLbody = "这里是正文"
但是发送的内容只能发送一行,我有一个txt文件,里面有N行文字,不想以附件形式发送,想以正文形式发送,请问要怎么修改。
谢了 |