请教：EasyMail Objects 5.0 问题

[KenjiSato]

邮件服务器不使用 Esmtp没问题，使用 ESMTP功能出现 ERR 7，V6.0版本也一样，该如何解决？谢谢！

Private Sub SendMail()
Dim xx
Dim SMTP As Object
Set SMTP = CreateObject("EasyMail.SMTP")
SMTP.LicenseKey = "Takeshi/S19I500R1AX70C0Rc200"

SMTP.MailServer = "88mail.com.cn"
SMTP.FromAddr = "[e-mail]"
SMTP.AddRecipient "Kenji", "[e-mail]", 1
SMTP.Charset = "ISO-8859-*" 'ISO-8859-86
SMTP.Priority = 1 '优先权

SMTP.ESMTP_AuthMode = 1
SMTP.ESMTP_Account = "aaa"
SMTP.ESMTP_Password = "888888"


SMTP.Subject = "Easy邮件测试" 'strSubject '
SMTP.BodyText = "邮件正文！"
xx = SMTP.Send
If xx = 0 Then
Text1.SelText = "信息发送成功！" & vbCrLf
Else
Text1.SelText = "There was an error sending your message. Error: " & CStr(xx) & vbCrLf
End If
Set SMTP = Nothing
End Sub

[xiaohuangtao]

我自己写了个sock类，因为WINSOCK不支持引用（做成安装盘有问题，并且不支持多线程）

超OUTLOOK软件，提供源代码
楼主： 本软件是我在业余时间完成,我的目标是将它做成国内一流的客户端邮件软件.现在初具模型

.正在修改中.它有一下特点:
1. 基于SDK模式开发
2. 大量源代码:软件中用到的所有组件,包括每一个按钮,均是自己所写.形成了自己风

格的完整的一套组件库.他们包括:列表,文件管理,菜单等
所有代码均参照标准协议写成

3. 由以下功能模块组成:邮件;新闻组;FTP;任务及其在之基础上的相应管理.如文件管

理等.
4. 合作方式:转让经营权;根据你们需要提供技术支持;作为贵公司产品发布等,我们可

以详细谈.我的联系方式是:[e-mail] 13062323245

一下为该软件部分运行界面图:


安装盘下：ftp://[e-mail]/SmartMai_Setup.EXE

代码下：ftp://[e-mail]/SmartMail_Code.rar

ftp密码：uploads

建议大家先下安装盘，因为比较新，

[xiaohuangtao]

对不起,以前安装盘有点问题,上传了一个新的
安装盘下：ftp://[e-mail]/SmartMail_Setup.rar

[xiaohuangtao]

运行演示图:
http://bbs.2ccc.com/uploads/huangtao/picture.jpg
安装盘下：ftp://[e-mail]/SmartMai_Setup.EXE
代码下：ftp://[e-mail]/SmartMail_Code.rar
ftp密码：uploads