- 博客(0)
- 资源 (4)
- 收藏
- 关注
pb邮件发送 不必配置outlook
pb9.0中调用方式 全局外部函数(确保dll在软件根目录)
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"
sendit 返回值 0 成功 -1 连接失败 -2 发送失败
参数说明 server smtp服务器地址 user登陆用户 password 登陆密码 zt 主题,zw 正文,jsr 接收人 ,fxr 发送人邮件地址(要求与user用户相同,现在邮箱不支持匿名发送了)
文件有点大,主要函数功能
long ff
ff=sendit("smtp.163.com","startx","邮件登陆密码","邮件主题","邮件正文","[email protected]","[email protected]")
if ff=0 then
messagebox("信息","发送成功")
else
if ff=-2 then messagebox("信息","发送失败")
end if
确保邮箱登陆名称和发信人地址要一致,现在邮箱都要求不能匿名发送了
原帖信息:
http://www.wacxy.com/show.asp?id=5178
要求邮箱必须有smtp功能!
附件中包含pb例程pb9版本!
2010-06-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人