VB/VBS 发送邮件代码代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 VB/VBS 发送邮件代码

作者:Dezai.CN / 发布于2012/7/16/ 1200

<div>
<div>NameSpace = "<a href="http://schemas.microsoft.com/cdo/configuration/">http://schemas.microsoft.com/cdo/configuration/</a>"
Set Email = CreateObject("CDO.Message")
Email.From = "<a href="mailto:coc_zero@sohu.com">Benio_Guo@sohu.com</a>"
Email.To ="<a href="mailto:coc_zero@126.com">Benio_Guo@126.com</a>"
Email.Subject = "say hello"
Email.Textbody = "　test body "
Email.AddAttachment ""
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.sohu.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "benio_guo"
.Item(NameSpace&"sendpassword") = "q1w2e3"
.Update
End With
Email.Send</div>
<div></div>
<div></div>
<div>下面是　ｖｂ版</div>
<div>
Private Sub Form_Load()
Dim NameS As String
Dim Email As Object

NameS = "<a href="http://schemas.microsoft.com/cdo/configuration/">http://schemas.microsoft.com/cdo/configuration/</a>"

Set Email = CreateObject("CDO.Message")
Email.From = "<a href="mailto:coc_zero@sohu.com">Benio_Guo@sohu.com</a>"
Email.To = "<a href="mailto:coc_zero@126.com">Benio_Guo@126.com</a>"
Email.Subject = "say hello"
Email.Textbody = "test body"
Email.AddAttachment "C:\test.txt"
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fieds.Item(NameS & "smtpserver") = "smtp.sohu.com"
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "benio_guo"
Email.Configuration.Fields.Item(NameS & "sendpassword") = "q1w2e3"
Email.Configuration.Fields.Update
Email.Send
End Sub
</div>
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　发送邮件代码　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)