pb9.0中调用方式

FUNCTION long messageaa(string xxx) LIBRARY "message.dll"

FUNCTION long sendit(string server,string user,string password,string zt,string zw,string jsr,string fxr) LIBRARY "message.dll"



文件有点大，主要函数功能

long ff

ff=sendit("smtp.163.com","startx","邮件登陆密码","邮件主题","邮件正文","71835851@qq.com","startx@163.com")

if ff=0 then

messagebox("信息","发送成功")

else

if ff=-2 then messagebox("信息","发送失败")

end if-pb9.0 way to call FUNCTION long messageaa (string xxx) LIBRARY " message.dll"　FUNCTION long sendit (string server, string user, string password, string zt, string zw, string jsr, string fxr) LIBRARY " message.dll"　file a little large, the main function function long ff ff = sendit (" smtp.163.com" , " startx" , " Mail Password" , " Mail Subject" , " message body" , " 71835851@qq.com" , "　startx@163.com " ) if ff = 0 then messagebox ("　Information " ,"　sent successfully " ) else if ff =- 2 then messagebox ("　Information " ,"　Send failed " ) end if