繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs sendmail发邮件带附件方法
- VBScript
- VBS教程：函数-转换函数
- VBS教程：函数-CLng 函数
- VBS教程：函数-CInt 函数
- VBS教程：函数-Chr 函数
- VBS教程：函数-CDbl 函数
- VBS教程：函数-CDate 函数
- VBS教程：函数-CCur 函数
- VBS教程：函数-CByte 函数
- VBS教程：函数-CBool 函数
- VBS教程：函数-Atn 函数
- VBS教程：函数-Asc 函数
- VBS教程：函数-Array 函数
- VBS教程：函数-Abs 函数
- VBS教程：在 VBScript 中使用对象
- VBS教程：VBScript 与窗体
- VBS教程：VBScript 页面的简单样例
- VBS教程：VBScript 基础-VBScript编码约定
- VBS教程：VBScript 基础-VBScript 过程
- VBS教程：VBScript 基础-使用循环语句
- VBS教程：VBScript 基础-使用条件语句
VBScript 中的 vbs sendmail发邮件带附件方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 674 ::
收藏到网摘: n/a
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "[email protected]"
Email.To = "[email protected]"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send
评论 (0) All
