设为首页收藏本站

切换到宽版

论坛BBS

批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › [已解决]vbs怎样读取文本发送多行内容的邮件？ ...

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

返回列表发新帖

查看: 23064|回复: 4

[问题求助] [已解决]vbs怎样读取文本发送多行内容的邮件？

发表于 2013-3-30 19:38:22 | 显示全部楼层 |阅读模式

本帖最后由 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行文字，不想以附件形式发送，想以正文形式发送，请问要怎么修改。
谢了

评分

参与人数 1	PB +2	收起理由
Batcher	+ 2	感谢给帖子标题标注[已解决]字样

查看全部评分

回复

发表于 2013-3-31 07:18:00 | 显示全部楼层

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
set Email = CreateObject("CDO.Message")
Email.From = "646397053@qq.com"
Email.To = "thisexplorer@qq.com"
Email.Subject = "来自 IP 来自：上海市电信【101.229.24.63】的信息"
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.HTMLbody = "这里是正文" &vbCRLf & 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") = "646397053"
.Item(NameSpace&"sendpassword") = "**************"
.Update
end with
Email.Send
Set Email=Nothing

复制代码

评分

参与人数 1	技术 +1	收起理由
522235677	+ 1	技术

查看全部评分

回复 

楼主| 发表于 2013-3-31 10:07:55 | 显示全部楼层

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

回复 2# czjt1234

你这个改是可以的

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

回复 

发表于 2013-3-31 16:39:33 | 显示全部楼层

本帖最后由 czjt1234 于 2013-3-31 16:40 编辑

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
set Email = CreateObject("CDO.Message")
Email.From = "646397053@qq.com"
Email.To = "thisexplorer@qq.com"
Email.Subject = "来自 IP 来自：上海市电信【101.229.24.63】的信息"
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.HTMLbody = Replace("这里是正文" &vbCRLf & c, vbCrLf ,"<br>")
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") = "646397053"
.Item(NameSpace&"sendpassword") = "**************"
.Update
end with
Email.Send
Set Email=Nothing

复制代码

没测试，你试试看

回复 

楼主| 发表于 2013-3-31 16:59:21 | 显示全部楼层

回复 4# czjt1234

非常感谢。好的

回复 

返回列表发新帖

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 06:25 , Processed in 0.026661 second(s), 13 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表