用PB做了个发送邮件的功能,每次发送的邮件都只是放到outlook的发件箱里,并没有真正发出去,是怎么会事?
用PB做了个发送邮件的功能,每次发送的邮件都只是放到outlook的发件箱里,并没有真正发出去,我还得到outlook里再发送一次.但是如果是outlook express就可以直接发出去,是怎么会事呀?
具体代码如下:
mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mFd
// 创建邮件会话对象
mSes = create mailSession
//邮件登录
mRet = mses.maillogon(mailnewsession!) //
if mRet <> mailreturnsuccess! then
messagebox("Email login","login failed!")
return
end if
// 设置邮件消息对象的一些属性值
//mMsg.Recipient[1].Address = sle_address.text // 邮件接收人地址
mMsg.Recipient[1].name = sle_address.text
mMsg.Subject = sle_subject.text // 邮件主题
mMsg.NoteText = mle_note.text // 邮件正文
if trim(sle_path.text) <> '' then
mFd.Filename = sle_path.text // 设置附件的文件名
mfd.Pathname = sle_path.text // 设置附件的路径
mMsg.AttachmentFile[1] = mFd // 指明第一个附件
end if
mRet = mSes.mailaddress(mMsg)
if mRet <> mailreturnsuccess! then
messagebox("Mail address","Addressing failed!")
return
end if
// 发送邮件
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Sending mail failed!')
RETURN
END IF
//退出登录
mSes.maillogoff()//取消邮件会话
destroy mSes