|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 yangfusheng 于 2014-1-5 00:47 编辑
- <div class="blockcode"><blockquote>function sendJEmail2(发件人地址,发件人地址密码,收件人地址,邮件主题,邮件内容,邮件附件)
- CDO =com("CDO.Message") //'创建CDO.Message对象
- CDO.Subject =邮件主题 //'邮件主题
- CDO.From = 发件人地址// '发件人地址
- CDO.To = 收件人地址 //'收件人地址
- CDO.TextBody = 邮件内容// '邮件正文
- //CDO.AddAttachment = 邮件附件// '邮件附件文件路径
- string schema = "http://schemas.microsoft.com/cdo/configuration/"// '规定必须是这个,我也不知道为什么
-
-
- CDO.Configuration.Fields(schema&"sendusing",2) //'使用网络上的SMTP服务器而不是本地的SMTP服务器
- CDO.Configuration.Fields(schema&"smtpserver","smtp.163.com")// 'SMTP服务器地址
- CDO.Configuration.Fields(schema&"smtpauthenticate",1) //'服务器认证方式
- CDO.Configuration.Fields(schema&"sendusername",发件人地址) //'发件人邮箱
- CDO.Configuration.Fields(schema&"sendpassword",发件人地址密码) //'发件人邮箱密码
- CDO.Configuration.Fields(schema&"smtpserverport",25) //'SMTP服务器端口
- CDO.Configuration.Fields(schema&"smtpusessl",true) //'是否使用SSL
- CDO.Configuration.Fields(schema&"smtpconnectiontimeout",60) // '连接服务器的超时时间
- CDO.Configuration.Fields.Update
- CDO.Send()
- CDO=null
- endfunction
复制代码 怎么发不出去?请教~是哪里错了嘛? |
|