PB发Email的问题,以下是我写的代码,但执行时总是弹出一个Outlook的对话框提示说是否要发送
/*传入的参数
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