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

522235677 发表于 2013-3-30 19:38

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

[i=s] 本帖最后由 522235677 于 2019-5-22 18:30 编辑 [/i]

[code]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[/code]这个是发送邮件的vbs，测试可以发送。
Email.HTMLbody = "这里是正文"
但是发送的内容只能发送一行，我有一个txt文件，里面有N行文字，不想以附件形式发送，想以正文形式发送，请问要怎么修改。
谢了

czjt1234 发表于 2013-3-31 07:18

[code]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[/code]

522235677 发表于 2013-3-31 10:07

[i=s] 本帖最后由 522235677 于 2013-3-31 10:10 编辑 [/i]

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=128425&ptid=23359]2#[/url] [i]czjt1234[/i] [/b]


    你这个改是可以的{:2_42:}


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

czjt1234 发表于 2013-3-31 16:39

[i=s] 本帖最后由 czjt1234 于 2013-3-31 16:40 编辑 [/i]

[code]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[/code]没测试，你试试看

522235677 发表于 2013-3-31 16:59

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=128450&ptid=23359]4#[/url] [i]czjt1234[/i] [/b]


    非常感谢。好的

查看完整版本: [已解决]vbs怎样读取文本发送多行内容的邮件？