[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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行文字，不想以附件形式发送，想以正文形式发送，请问要怎么修改。
谢了
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 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
复制代码
1

评分人数


QQ 20147578

TOP

522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
3楼
发表于 2013-3-31 10:07 | 只看该作者
本帖最后由 522235677 于 2013-3-31 10:10 编辑

回复 2# czjt1234


    你这个改是可以的


这个正文怎么不是自动换行啊，看起来很乱，可以改下吗？

TOP

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
4楼
发表于 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
复制代码
没测试，你试试看

QQ 20147578

TOP

522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
5楼
发表于 2013-3-31 16:59 | 只看该作者
回复 4# czjt1234


    非常感谢。好的

TOP

返回列表