你是怎么创建的??创建的时候最好不要直接创建com对象,也就是File->New->Others->ActivexLibrary,然后File->New->Others->ActiveX server object.不要直接加com object 因为vb里面的不存在虚方法表,所以可以通过这样的方法创建一个asp可以调用的.
http://hubdog.csdn.net/Download/dlIndex.htm基于Indy的Email发送组件源码 [下载] 用法示意如下: <%@LANGUAGE="VBSCRIPT"%> <% 'option explicit dim DbConn,connstr,db 'Email配置信息 dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW SmtpHost="smtp.263.net" AdminEmail="[email protected]" NeedAuth=true '是否需要认证 EmailAccount="hubdog" EmailPW="XXXX" AdminName="管理员" '发送email function SendMail(Email, Subject, Body) set MailSender=Server.CreateObject("IndyMail.MailSender") MailSender.SetBody Body MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">" MailSender.SetHost SmtpHost MailSender.SetAuth NeedAuth MailSender.SetSenderName EmailAccount MailSender.SetSenderPW EmailPW MailSender.SetSubject Subject MailSender.SetTo Email SendMail=MailSender.Send end function %>
因为vb里面的不存在虚方法表,所以可以通过这样的方法创建一个asp可以调用的.
用法示意如下:
<%@LANGUAGE="VBSCRIPT"%>
<%
'option explicit
dim DbConn,connstr,db
'Email配置信息
dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW
SmtpHost="smtp.263.net"
AdminEmail="[email protected]"
NeedAuth=true '是否需要认证
EmailAccount="hubdog"
EmailPW="XXXX"
AdminName="管理员"
'发送email
function SendMail(Email, Subject, Body)
set MailSender=Server.CreateObject("IndyMail.MailSender")
MailSender.SetBody Body
MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">"
MailSender.SetHost SmtpHost
MailSender.SetAuth NeedAuth
MailSender.SetSenderName EmailAccount
MailSender.SetSenderPW EmailPW
MailSender.SetSubject Subject
MailSender.SetTo Email
SendMail=MailSender.Send
end function
%>