PB发Email的问题,以下是我写的代码,但执行时总是弹出一个Outlook的对话框提示说是否要发送

lovePeter 2003-10-20 09:48:51
/*传入的参数
a_s_subject //主韪
a_s_notetext //内容
/*
///以下为函数的内容,实现PB发Email的功能
mailSession m_mail_session
mailReturnCode m
mailMessage m_message
mailFileDescription m_attach

m_mail_session = CREATE mailSession

m = m_mail_session.MailLogon(mailNewSession!) //启动MAIL程式

CHOOSE CASE m
CASE mailReturnSuccess!
///////////////////////////////////////[成功连启动邮箱]///////////////////////////////////////
// MessageBox('邮件', '成功连接到邮件箱!', StopSign!)
/***********************************指定具体的地址************************************/
m_message.Recipient[1].name = 'zhbkwwl@163.com'
//***********************************************************************************/
m_message.Subject = a_s_subject //主韪
m_message.NoteText = a_s_notetext //内容
m_attach.FileType = mailAttach!
// m_attach.PathName = a_s_attach_name
// m_attach.FileName = a_s_attach_name
m_attach.Position = len(m_message.notetext) - 1
// m_message.AttachmentFile[1] = m_Attach //附件

m = m_mail_session.mailSend(m_message) //发送邮件

CHOOSE CASE m
CASE mailReturnSuccess!
// MessageBox('邮件', '邮件已成功发送!', StopSign!)
return TRUE
CASE mailReturnFailure!
MessageBox('邮件', '函数执行失败!', StopSign!)
return FALSE
CASE mailReturnInsufficientMemory!
MessageBox('邮件', '内存不足!', StopSign!)
return FALSE
// CASE mailReturnLogFailure!
// MessageBox('邮件', '登录失败!', StopSign!)
// return FALSE
CASE mailReturnUserAbort!
MessageBox('邮件', '用户终止了继续操作!', StopSign!)
return FALSE
CASE mailReturnDiskFull!
MessageBox('邮件', '磁盘已满!', StopSign!)
return FALSE
CASE mailReturnTooManySessions!
MessageBox('邮件', '邮件会话太多!', StopSign!)
return FALSE
CASE mailReturnTooManyFiles!
MessageBox('邮件', '文件太多!', StopSign!)
return FALSE
CASE mailReturnTooManyRecipients!
MessageBox('邮件', '收件人太多!', StopSign!)
return FALSE
CASE mailReturnUnknownRecipient!
MessageBox('邮件', '未知收件人!', StopSign!)
return FALSE
CASE mailReturnAttachmentNotFound!
MessageBox('邮件', '未找到指定的附着文件!', StopSign!)
return FALSE
END CHOOSE
m_mail_session.MailLogoff()
///////////////////////////////////////[启动邮箱失败]///////////////////////////////////////
CASE mailReturnLoginFailure!
MessageBox('邮件', '会话登录失败!', StopSign!)
return FALSE
CASE mailReturnInsufficientMemory!
MessageBox('邮件', '内存不足!', StopSign!)
return FALSE
CASE mailReturnTooManySessions!
MessageBox('邮件', '会话数量太多!', StopSign!)
return FALSE
CASE mailReturnUserAbort!
MessageBox('邮件', '用户终止了继续操作!', StopSign!)
return FALSE
END CHOOSE
DESTROY m_mail_session
...全文
357 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lovePeter 2003-10-24
  • 打赏
  • 举报
回复
builderman(软件民工)
哈哈,这分归你啦
888888888888 2003-10-24
  • 打赏
  • 举报
回复
我记的PB7的一本书里有个关于发送邮件的例子.你可以去书店看看
qqjj7758 2003-10-24
  • 打赏
  • 举报
回复
没用过
学习
builderman 2003-10-24
  • 打赏
  • 举报
回复
这个问题其实不是PB的问题,应该是你的outlook设置的问题.

你把outlook中的安全属性中的[当别的程序用你的名义发送邮件时提示]的一项去掉就没事啦.
只限于outlook6,5好像没有这个问题.

740

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 脚本语言
社区管理员
  • 脚本语言社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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