大神们得进来看看.....

yangfusheng · 发表于 2014-1-4 20:34:51

您需要登录才可以下载或查看，没有帐号？立即注册

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

复制代码

怎么发不出去？请教~是哪里错了嘛？

yangfusheng · 发表于 2014-1-4 20:54:40

接口函数

string BCC()
var BCC(string )
string CC()
var CC(string )
string FollowUpTo()
var FollowUpTo(string )
string From()
var From(string )
string Keywords()
var Keywords(string )
bool MimeFormatted()
var MimeFormatted(bool )
string Newsgroups()
var Newsgroups(string )
string Organization()
var Organization(string )
unknown ReceivedTime()
string ReplyTo()
var ReplyTo(string )
unknown DSNOptions()
var DSNOptions(unknown )
unknown SentOn()
string Subject()
var Subject(string )
string To()
var To(string )
string TextBody()
var TextBody(string )
string HTMLBody()
var HTMLBody(string )
var Attachments()
string Sender()
var Sender(string )
var Configuration()
var Configuration(unknown )
var Configuration(unknown )
bool AutoGenerateTextBody()
var AutoGenerateTextBody(bool )
var EnvelopeFields()
var TextBodyPart()
var HTMLBodyPart()
var BodyPart()
var DataSource()
var Fields()
bool MDNRequested()
var MDNRequested(bool )
var AddRelatedBodyPart(string URL, string Reference, unknown ReferenceType, string UserName, string Password)
var AddAttachment(string URL, string UserName, string Password)
var CreateMHTMLBody(string URL, unknown Flags, string UserName, string Password)
var Forward()
var Post()
var PostReply()
var Reply()
var ReplyAll()
var Send()
var GetStream()
unknown GetInterface(string Interface)

复制代码

zxw445 · 发表于 2014-1-4 22:39:05

= =，什么事？

yangfusheng · 发表于 2014-1-5 00:48:47

zxw445 发表于 2014-1-4 22:39
= =，什么事？

编辑问题都编辑掉了。。。郁闷~就是发邮箱的问题，不知道是哪里错了，发不出去~

[问题] 大神们得进来看看.....

帐号		自动登录	找回密码
密码			立即注册