在PowerBuilder发送电子邮件 在PowerBuilder发送电子邮件 2007-8-10 作者： 编辑：WOOD 点击进入论坛 1.定义函数f_sendmailfile&#58//function f_senmailfile&#58//return : booleanfile&#58//arguments : string a_s_recipient 收件人// string a_s_subject 主题// string a_s_notetext 内容mailSession m_mail_sessionmailReturnCode mmailMessage m_message m_mail_session = CREATE mailSession m = m_mail_session.MailLogon() IF m <> mailReturnSuccess! THEN DESTROY m_mail_session MessageBox(''Mail'', ''Could not connect to the mail program. Make sure the mail program is running.'', StopSign!) return FALSEEND IF // Populate the mailMessage structure m_message.Recipient[1].name = a_s_recipientm_message.Subject = a_s_subjectm_message.NoteText = a_s_notetext // create the mail message m = m_mail_session.mailSend(m_message) IF m <> mailReturnSuccess! THEN m_mail_session.MailLogoff() DESTROY m_mail_session MessageBox(''Mail'', ''There was an error sending the mail message.'', StopSign!) return FALSEEND IF m_mail_session.MailLogoff() DESTROY m_mail_session return TRUE // success 2.在程序中调用函数f_sendmailf_sendmail("xhe@990.net","Thank you!","") 相关文章 轻松掌握用PowerBuilder 来做分布计算 轻松掌握在PowerBuilder中动态调用函数 解析：PowerBuilder运行库以及ODBC接口 教你轻松掌握PowerBuilder究竟是什么？ 带你轻松了解 PowerBuilder的主要特点 轻松了解 PowerBuilder与数据库的连接 在PB中实现ftp传输 用PB编写邮件应用程序[组图] pb实用代码集(全有例程) 在自己的pb程序中动态改变屏幕分辨率 API函数keybd_event的应用模拟按下Shift和Tab键 OCX控件注册 -->