| 标题 | VBS中用CDO.Message发送邮件的实现代码 |
| 范文 | 使用CDO.Message对象就可以实现，示例代码演示的是gmail发送纯文本并带附件的邮件，至于其他的电子邮箱，需要修改代码中对应的smtp服务器和端口，原理也是一样的，就不举例了。贴出来的代码没有写注释，需要看注释的请下载源码。 代码如下: Const Email_From = "still.demon@gmail.com" Const Password = "password" Const Email_To = "380401911@qq.com" Set CDO = CreateObject("CDO.Message") CDO.Subject = "From Demon" CDO.From = Email_From CDO.To = Email_To CDO.TextBody = "Hello world!" cdo.AddAttachment = "C:\hello.txt" Const schema = "http://schemas.microsoft.com/cdo/configuration/" With CDO.Configuration.Fields .Item(schema & "sendusing") = 2 .Item(schema & "smtpserver") = "smtp.gmail.com" .Item(schema & "smtpauthenticate") = 1 .Item(schema & "sendusername") = Email_From .Item(schema & "sendpassword") = Password .Item(schema & "smtpserverport") = 465 .Item(schema & "smtpusessl") = True .Item(schema & "smtpconnectiontimeout") = 60 .Update End With CDO.Send 详细注释版: 代码如下: 'Date: 2010/6/18 'Author: Demon 'QQ: 380401911 'E-mail: still.demon@gmail.com 'Website: http://demon.tw Const Email_From = "ddd@163.com" '发件人邮箱 Const Password = "password" '发件人邮箱密码 Const Email_To = "380401911@qq.com" '收件人邮箱 Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象 CDO.Subject = "From Demon" '邮件主题 CDO.From = Email_From '发件人地址 CDO.To = Email_To '收件人地址 CDO.TextBody = "Hello world!" '邮件正文 cdo.AddAttachment = "C:\hello.txt" '邮件附件文件路径 Const schema = "http://schemas.microsoft.com/cdo/configuration/" '规定必须是这个，我也不知道为什么 With CDO.Configuration.Fields '用with关键字减少代码输入 .Item(schema & "sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器 .Item(schema & "smtpserver") = "smtp.gmail.com" 'SMTP服务器地址 .Item(schema & "smtpauthenticate") = 1 '服务器认证方式 .Item(schema & "sendusername") = Email_From '发件人邮箱 .Item(schema & "sendpassword") = Password '发件人邮箱密码 .Item(schema & "smtpserverport") = 465 'SMTP服务器端口 .Item(schema & "smtpusessl") = True '是否使用SSL .Item(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间 .Update '更新设置 End With CDO.Send '发送邮件 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。