在“退出”按钮的Clicked事件中加入下列代码:
MyMail.mailLogoff() //结束邮件会话 Destroy MyMail //销毁会话对象 |
至此,一个简单的邮件应用程序就编好了,它虽然还不足以和FoxMail、Outlook相媲美,但已经具备了它们最基本的功能。
例子中的程序在PB6.5中调试通过,大部分代码可以直接利用。
//---------------------------------------------
//Function f_get_GUID//得到全球唯一码
//Argument: of_guid //全球唯一码
//Return: [None]
//Create by 泥草鞋 2004-03-10
//----------------------------------------------
oleObject PBObject
long ll_result
PBObject = CREATE oleObject
ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")
IF ll_result < 0 THEN
messagebox(gs_message,"连接失败:与PowerBuilder.Application连接出错!")
return
ELSE
ll_result = PBObject.GenerateGUID(REF of_guid)
END IF
IF ll_result < 0 THEN
messagebox(gs_message,"生成GUID失败:不能获得GUID!")
return
END IF
of_guid = mid(of_guid,2,len(of_guid) - 2)
//End of Fuction
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/7178747/viewspace-161508/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/7178747/viewspace-161508/