说明：  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)