pb调用jmail.dll自动发邮件
来源:互联网 发布:微分销 源码 编辑:程序博客网 时间:2024/05/22 01:58
项目中的实例应用:
1、注册jmail.dll 方法:在运行中输入: regsvr32 路径\jmail.dll
string ls_charset
ls_charset='GB2312'
oleobject jmail
Jmail = Create OLEObject
Jmail.ConnectToNewObject("JMail.Message")
Jmail.Charset = ls_charset //中文用 “GB2312”
Jmail.ISOEncodeHeaders = True
Jmail.silent = True
Jmail.Logging = True
Jmail.From = Parent.sle_from.text //发件人邮箱
Jmail.FromName =gstr_globle.user_name //发件人
Jmail.Subject =Parent.sle_zt.text //邮件主题
Jmail.MailServerUserName =ls_user //发件邮箱登录账户
Jmail.MailServerPassword =ls_pwd //发件邮箱用户密码
Jmail.Priority = 3 //优先级
Jmail.AddRecipient(Trim( Parent.sle_to.text )) //收件人邮箱
Jmail.Body =Parent.mle_rn.text + "~r~n" //邮件内容
IF Jmail.Send(ls_host) THEN //ls_host为发件邮箱服务器
If ProFileString("mana_setdisplay.ini","otherset","savepwd",'')='1' Then
SetProFileString("mana_setdisplay.ini","otherset","user",ls_user)
SetProFileString("mana_setdisplay.ini","otherset","mm",ls_pwd)
SetProFileString("mana_setdisplay.ini","otherset","email",sle_from.text)
SetProFileString("mana_setdisplay.ini","otherset","server",ls_host)
End If
messagebox('提示',"发送成功!")
Jmail.Close()
Destroy Jmail
Close(Parent)
ELSE
// If ProFileString("mana_setdisplay.ini","otherset","savepwd",'')='1' Then
// SetProFileString("mana_setdisplay.ini","otherset","savepwd",'0')
// messagebox('提示',"发送失败,密码已取消自动保存!")
// Jmail.Close()
// Destroy Jmail
// Return
// End If
messagebox('提示',"发送失败!")
Jmail.Close()
Destroy Jmail
END IF
- pb调用jmail.dll自动发邮件
- pb jmail发邮件
- pb邮件-jmail.dll
- asp.net调用jmail自动发邮件
- pb下调用mymail.dll自动发送邮件 经验谈
- jMAIL使用,发邮件
- JMail发邮件
- jMail发邮件
- delphi jmail 发邮件
- JMAIL发邮件
- jmail发邮件程序
- ASP+JMAIL实现自动发邮件功能(转)
- 自动发邮件代码 asp asp.net jmail
- jmail发邮件的例子
- asp用jmail发邮件
- jmail发邮件的代码
- asp Jmail发邮件类
- VC++用JMail发邮件
- WP开发常见问题
- 一个 fork 的面试题
- 解析:清肠排毒的8种食物
- android camera 摄像头切换
- 两个Activity间传递list<bean>对象
- pb调用jmail.dll自动发邮件
- Thread
- C/C++中的memcpy
- (MSOA)微型面向服务架构中服务管理者和服务提供者的松散关系
- WindowsPhone 7 Dev. 心得体会
- WP独立存储的实现
- android mediaPlayer 设置播放次数
- hdu4329-MAP-Multi-University Training Contest 3-题解
- 给出洗牌的一个算法,并将洗好的牌存储在一个整形数组里