pb中用mymail来进行收发邮件-实例与经验谈

最新推荐文章于 2019-08-13 10:17:27 发布

永生天地

最新推荐文章于 2019-08-13 10:17:27 发布

阅读量9.5k

点赞数

分类专栏： [Sybase] - [pb] 文章标签： library string 服务器邮件服务器网络 web

本文链接：https://blog.csdn.net/xys_777/article/details/4438960

版权

[Sybase] - [pb] 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

mymail这个不用做过多介绍，网上可以随便下载，而且他本身自带函数说明。这里我只讲讲我在使用中的感受：

1、pb中定义mymail的函数，pb10以上的需要加类似这样的定义 alias for "MyUtil_POP3_Connect;ansi"，其版本可以去掉

2、收web页面邮件（类似126,sina等)的时候会出现程序死在那里，问题可能是出在解析附件的名字上（我的猜测），实际上并没有确定。

3、发送邮件一定要将邮件信息组织完整，特别是发件人地址要写正确，我就在这地方吃了不少亏，随便写的，结果总是发送失败，但是非web页面的邮件却没有问题（我们公司的邮件服务器），这个可能是服务器的验证设置不同。

4、MyUtil_GetLastError(ref ls_error) 要在函数出错的时候调用，否则其他函数执行后error信息就抓不出来了。

5、用mymail接收邮件是要指定接收内容的长度

附1：函数定义

//1.
function int MyUtil_POP3_Connect(string host,int port,string UserId,string PassWord,string AttachPath) library "MyMail.dll" alias for "MyUtil_POP3_Connect;ansi"
/*
功能 : 连接POP3服务器
参数 : host          服务器名或地址
       port          端口(110)
       UserId        帐号
       PassWord      密码
       AttachPath    保存附件的目录名
返回 : <0            失败
       >=0           当前邮箱里的邮件数量
*/
//2.
function int MyUtil_POP3_Msg_Count(string host,int port,string UserId,string PassWord) library "MyMail.dll" alias for "MyUtil_POP3_Msg_Count;ansi"
//功能 : 直接查询当前邮箱里的邮件数量
//参数 : host          服务器名或地址
//       port          端口(110)
//       UserId        帐号
//       PassWord      密码
//返回 : <0            失败
//       >=0           当前邮箱里的邮件数量
//3.
Function int MyUtil_POP3_Disconnect() library "MyMail.dll"
//功能 : 切断与POP3服务器的连接
//返回 : <0            失败
//       >0            成功
//4.
Function int MyUtil_POP3_GetMail(int MailID ) library "MyMail.dll" alias for "MyUtil_POP3_GetMail;ansi"
//功能 : 从邮件服务器获取MailID所指定的邮件信息,保存在一个邮件对象(该对象对用户不可见)中
//参数 : MailID        邮件的序号
//返回 : <0            失败
//       >0            成功
//5.
Function int MyUtil_POP3_GetMailFromFile(string filename,string AttachPath) library "MyMail.dll" alias for "MyUtil_POP3_GetMailFromFile;ansi"
//功能 : 从filename指定的邮件文件中获取邮件信息,保存在一个邮件对象(该对象对用户不可见)中
//参数 : filename      邮件文件的全路径
//       AttachPath    保存附件的目录名(以/结尾)
//返回 : <0            失败
//       >0            成功
//6.
Function int MyUtil_POP3_DeleteMail( int MailID ) library "MyMail.dll" alias for "MyUtil_POP3_DeleteMail;ansi"
//功能 : 从邮件服务器删除MailID所指定的邮件
//参数 : MailID        邮件的序号
//返回 : <0            失败
//       >0            成功
//7.
Function int MyUtil_POP3_Msg_GetInfo(int i_type,int i_sub_type, ref string as_text) library "MyMail.dll" alias for "MyUtil_POP3_Msg_GetInfo;ansi"
//功能 : 在从服务器或文件接收指定邮件后,根据i_type和i_sub_type获取邮件的各项信息,并输出到as_text
//参数 : i_type        信息类型
//       i_sub_type    i_type的附加信息
//       as_text       输出信息
//返回 : <0            失败
//       >0            成功
//说明 : i_type = 1          获取邮件发送者信息
//         i_sub_type = 1    发送者邮件地址
//         i_sub_type = 2    发送者名称
//         i_sub_type = 3    发送者名称+地址
//
//       i_type = 3          获取邮件主题(SUBJECT)
//         i_sub_type = x    (忽略)
//
//       i_type = 4          获取邮件发送时间
//         i_sub_type = x    (忽略)
//
//       i_type = 5          获取邮件正文信息
//         i_sub_type = 0    函数返回邮件正文的总行数
//         i_sub_type = n    由as_text输出邮件正文第n行信息
//
//       i_type = 6          获取邮件附件信息
//         i_sub_type = 0    函数返回邮件附件的总数
//         i_sub_type = n    由as_text输出第n个附件的绝对路径信息
//
//**************************************************
//***                                            ***
//***               SMTP发邮件                   ***
//***                                            ***
//**************************************************
//1.
function   int   MyUtil_SMTP_Connect(string   host,int   port,string   UserId,string   PassWord)   library   "MyMail.dll"   alias for "MyUtil_SMTP_Connect;ansi"
//Function MyUtil_SMTP_Connect(host:pchar;port:integer;UserId,PassWord:pchar): integer;stdcall;
//功能 : 连接SMTP服务器
//参数 : host          服务器名或地址
//       port          端口(25)
//       UserId        帐号
//       PassWord      密码
//返回 : <0            失败
//       >=0           成功
//2.
function   int   MyUtil_SMTP_Disconnect()   library   "MyMail.dll"
//Function MyUtil_SMTP_Disconnect(): integer;StdCall;
//功能 : 切断与SMTP服务器的连接
//返回 : <0            失败
//       >0            成功
//3.
function   int   MyUtil_SMTP_Msg_Init()   library   "MyMail.dll"
//Function MyUtil_SMTP_Msg_Init():integer;stdcall;
//功能 : 初始化待发送邮件结构对象
//返回 : <0            失败
//       >0            成功
//4.
function   int   MyUtil_SMTP_Msg_SetInfo(int   i_type,int   i_sub_type,string   as_text) library   "MyMail.dll"   alias for "MyUtil_SMTP_Msg_SetInfo;ansi"
//Function MyUtil_SMTP_Msg_SetInfo(i_type,i_sub_type:integer;as_text:pchar):integer;stdcall;
//功能 : 根据i_type和i_sub_type组织邮件的各项信息,由as_text传入
//参数 : i_type        信息类型
//       i_sub_type    i_type的附加信息
//       as_text       传入信息
//返回 : <0            失败
//       >0            成功
//说明 : i_type = 1          设置邮件发送者信息
//         i_sub_type = 1    发送者邮件地址
//         i_sub_type = 2    发送者名称
//         i_sub_type = 3    发送者名称+地址
//
//       i_type = 2          设置邮件接收者地址
//         i_sub_type = x    (忽略)
//
//       i_type = 3          设置邮件主题(SUBJECT)
//         i_sub_type = x    (忽略)
//
//       i_type = 5          追加一行信息到邮件正文
//         i_sub_type = x    (忽略)
//
//       i_type = 6          追加一个附件,由as_text传入追加附件的绝对路径信息
//         i_sub_type = x    (忽略)
//5.
function   int   MyUtil_SMTP_Msg_Send()   library   "MyMail.dll" alias for "MyUtil_SMTP_Msg_Send;ansi"
//Function MyUtil_SMTP_Msg_Send():integer;stdcall;
//功能 : 通过SMTP服务器发送已经组织好的邮件
//返回 : <0            失败
//       >0            成功
//6.
//Function MyUtil_SMTP_Msg_SendToFile(FileName :pchar):integer;stdcall;
//功能 : 发送已经组织好的邮件到一个本地文件(FileName)
//返回 : <0            失败
//       >0            成功
//**************************************************
//***                                            ***
//***              QP或BASE64解码                ***
//***                                            ***
//**************************************************
//1.
//Function MyUtil_QB_Decode(s_in:pchar;out s_out : ShortString):integer;stdcall;
//功能 : 对邮件中的信息(如 SUBJECT、SENDERNAME、中文附件名称等)进行QB 或 BASE64 解码
//参数 : s_in          输入的字符串
//       s_out         输出的字符串
//返回 : <0            失败
//       >0            成功
//**************************************************
//***                                            ***
//***              获取错误信息                  ***
//***                                            ***
//**************************************************
//1.
Function int MyUtil_GetLastError(ref string msg )   library "MyMail.dll" alias for "MyUtil_GetLastError;ansi"
//功能 : 在收发邮件的过程中,如有错误发生,可立即调用该函数获取相关错误信息,并由msg返回
//参数 : msg           用于返回相关错误信息
//返回 : <0            失败
//       >0            成功
//**************************************************
//***                                            ***
//***              使用说明                      ***
//***                                            ***
//**************************************************
//1.通过网络发邮件
// (1) MyUtil_SMTP_Msg_Init
// (2) MyUtil_SMTP_Msg_SetInfo
// (3) MyUtil_SMTP_Connect
// (4) MyUtil_SMTP_Msg_Send
// (5) MyUtil_SMTP_Disconnect
//2.发邮件到本地文件
// (1) MyUtil_SMTP_Msg_Init
// (2) MyUtil_SMTP_Msg_SetInfo
// (3) MyUtil_SMTP_Msg_SendToFile
//3.通过网络收邮件
// (1) n = MyUtil_POP3_Connect
// (2) for i = 1 to n
//      MyUtil_POP3_GetMail
//      MyUtil_POP3_Msg_GetInfo
//      MyUtil_POP3_DeleteMail
// (3) MyUtil_POP3_Disconnect
//4.从文件接收邮件
// (1) MyUtil_POP3_GetMailFromFile
// (2) MyUtil_POP3_Msg_GetInfo
//