那位兄弟有mymail.dll以及说明？万分感谢！

圣殿骑士18 2003-08-23 07:25:30

谢谢

...全文

44 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

dotnba 2003-08-24

打赏
举报

回复

关注

圣殿骑士18 2003-08-24

打赏
举报

回复

昨天我在google上找了一天！
郁闷中...

圣殿骑士18 2003-08-24

打赏
举报

回复

thanks why0302(why)!

why0302 2003-08-24

打赏
举报

回复

http://www.cpb.cn/code_info.asp?codetype=1&codeid=2
这网站上有，或者请教作者：hjd_cw

mah1212 2003-08-24

打赏
举报

回复

mymail.dll是什么?有何用?

rogery 2003-08-23

打赏
举报

回复

我去www.baidu.com上都没有找不到，帮不了你了。。。

klbt 2003-08-23

打赏
举报

回复

帮你顶！

申明Local External Functions： function int MyUtil_SMTP_Connect(string host,int port,string UserId,string PassWord) library "MyMail.dll" function int MyUtil_SMTP_Disconnect() library "MyMail.dll" function int MyUtil_SMTP_Msg_Init() library "MyMail.dll" function int MyUtil_SMTP_Msg_SetInfo(int i_type,int i_sub_type,string as_text) library "MyMail.dll" function int MyUtil_SMTP_Msg_Send() library "MyMail.dll" 发送代码： //使用例程： string ls_host,ls_user,ls_pwd,ls_mail_to,ls_mail_cc,& ls_subject,ls_text,ls_mail_fr,ls_attach int li_port,li_ret ls_host=trim(sle_host.text) //服务器名 ls_user=trim(sle_user.text) //发件人登陆发件服务器时的用户名 ls_pwd=trim(sle_password.text) //发件人登陆发件服务器时的密码 li_port=integer(sle_port.text) //发送服务器的smtp端口号，没改的话一般是25 ls_mail_to=trim(sle_mail_to.text)//接收人email地址 ls_mail_cc=trim(sle_mail_cc.text)//抄送，好像有点问题，我没有成功 ls_subject=sle_subject.text //主题 ls_mail_fr=trim(sle_mail_fr.text) //发件人 ls_text=mle_text.text //正文 ls_attach=trim(sle_attach.text) //附件，多个的话要分开 setpointer(hourglass!) //邮件初始化： if MyUtil_SMTP_Msg_Init()<0 then MessageBox("info","初始化失败!!!"); end if if MyUtil_SMTP_Msg_SetInfo(1,1,ls_mail_fr)<0 then MessageBox("info","设置发送者信息出错!!!") end if if MyUtil_SMTP_Msg_SetInfo(1,2,ls_user)<0 then MessageBox("info","设置发送者名称出错!!!") end if if MyUtil_SMTP_Msg_SetInfo(2,1,ls_mail_to)<0 then MessageBox("info","设置接收者地址出错!!!") end if //if MyUtil_SMTP_Msg_SetInfo(2,1,ls_mail_cc)<0 then //MessageBox("info","设置接收者地址出错!!!") //end if if MyUtil_SMTP_Msg_SetInfo(3,1,ls_subject)<0 then MessageBox("info","设置主题出错!!!") end if if MyUtil_SMTP_Msg_SetInfo(5,1,ls_text)<0 then MessageBox("info","设置正文失败!!!") end if if MyUtil_SMTP_Msg_SetInfo(6,1,ls_attach)<0 then MessageBox("info","设置附件名称出错!!!") end if if MyUtil_SMTP_Connect(ls_host,li_port,ls_user,ls_pwd)<0 then messageBox("info","连接失败！") end if if MyUtil_SMTP_Msg_Send()<0 then MessageBox("info","发送失败！") else Messagebox('Info','发送成功!') FileDelete ( ls_attach ) end if if MyUtil_SMTP_Disconnect()<0 then MessageBox("info","断开失败!!!") end if setpointer(arrow!)

网上找到的mymail.dll，可以在vf中自动给人发送邮件

PB发送邮件链接库，含函数说明的TXT文档。很好用！

通过手机发送邮件,电脑端接收后处理并反馈给发送方,支持同时接收多个邮件并逐个反馈回去,不会漏反馈,全代码添加了异常捕捉机制,不会死机掉线等.

pb利用myMAIL自动Mail发送,不需注册DLL，并在程式中调用OLEOBJECT即可

680

社区成员

4,762

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章