Board logo

标题: [问题求助] [已解决]vbs怎样读取文本发送多行内容的邮件? [打印本页]

作者: 522235677    时间: 2013-3-30 19:38     标题: [已解决]vbs怎样读取文本发送多行内容的邮件?

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

  1. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
  2. set Email = CreateObject("CDO.Message")
  3. Email.From = "646397053@qq.com"
  4. Email.To = "thisexplorer@qq.com"
  5. Email.Subject = "来自 IP 来自:上海市 电信【101.229.24.63】的信息"
  6. x="C:\fung.7z"
  7. y="C:\fung.7z"
  8. Set fso=CreateObject("Scripting.FileSystemObject")
  9. Set myfile=fso.OpenTextFile(x,1,Ture)
  10. c=myfile.readall
  11. myfile.Close
  12. Email.HTMLbody = "这里是正文" &vbCRLf & c
  13. Email.AddAttachment y
  14. with Email.Configuration.Fields
  15. .Item(NameSpace&"sendusing") = 2
  16. .Item(NameSpace&"smtpserver") = "smtp.qq.com"
  17. .Item(NameSpace&"smtpserverport") = 25
  18. .Item(NameSpace&"smtpauthenticate") = 1
  19. .Item(NameSpace&"sendusername") = "646397053"  
  20. .Item(NameSpace&"sendpassword") = "**************"
  21. .Update
  22. end with
  23. Email.Send
  24. Set Email=Nothing
复制代码

作者: 522235677    时间: 2013-3-31 10:07

本帖最后由 522235677 于 2013-3-31 10:10 编辑

回复 2# czjt1234


    你这个改是可以的


这个正文怎么不是自动换行啊,看起来很乱,可以改下吗?
作者: czjt1234    时间: 2013-3-31 16:39

本帖最后由 czjt1234 于 2013-3-31 16:40 编辑
  1. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
  2. set Email = CreateObject("CDO.Message")
  3. Email.From = "646397053@qq.com"
  4. Email.To = "thisexplorer@qq.com"
  5. Email.Subject = "来自 IP 来自:上海市 电信【101.229.24.63】的信息"
  6. x="C:\fung.7z"
  7. y="C:\fung.7z"
  8. Set fso=CreateObject("Scripting.FileSystemObject")
  9. Set myfile=fso.OpenTextFile(x,1,Ture)
  10. c=myfile.readall
  11. myfile.Close
  12. Email.HTMLbody = Replace("这里是正文" &vbCRLf & c, vbCrLf ,"<br>")
  13. Email.AddAttachment y
  14. with Email.Configuration.Fields
  15.     .Item(NameSpace&"sendusing") = 2
  16.     .Item(NameSpace&"smtpserver") = "smtp.qq.com"
  17.     .Item(NameSpace&"smtpserverport") = 25
  18.     .Item(NameSpace&"smtpauthenticate") = 1
  19.     .Item(NameSpace&"sendusername") = "646397053"  
  20.     .Item(NameSpace&"sendpassword") = "**************"
  21.     .Update
  22. end with
  23. Email.Send
  24. Set Email=Nothing
复制代码
没测试,你试试看
作者: 522235677    时间: 2013-3-31 16:59

回复 4# czjt1234


    非常感谢。好的




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2