hur.cn - 华软网

 热门搜索

调用outlook发送邮件时的问题。

  作者:未知    来源:网络    更新时间:2017/9/29
用 MailSession.MailSend(MailMessage) 方法发送邮件,会弹出outlook发送邮件对话框。
  这时无论你是否中途退出发送或发送失败,该方法都会返回mailReturnSuccess! 报“邮件发送成功”,请问这个问题怎么解决啊?
  (用outlook!)
------华软网友回答------

------华软网友回复------
没用MailSession做过,帮顶
------华软网友回复------
再顶
------华软网友回复------
string ls_mail, ls_null
 ls_mail = "mailto:email address?subject='主題'&body=正文"
 setnull( ls_null )
long ll_return
ll_Return = ShellExecute( Handle(parent), 'open', ls_mail, ls_null, ls_Null, 0 )
不過好像不能發附件
------华软网友回复------
给你一个函数:
/************************************
 function:sent email by outlook
 paramdesc:as_email_add    :email
           as_email_title  :
  as_email_attach :
************************************/

mailSession    LmSes
mailReturnCode    LmRet
mailMessage       LmMsg
mailFileDescription LmAttach
string    Ls_ret
int                     Li_send

LmSes = Create mailSession
LmRet = LmSes.mailLogon ( mailNewSession! )
If LmRet <> mailReturnSuccess! Then
MessageBox ("Mail Logon", 'Return Code <> mailReturnSuccess!' )
LmSes.maillogoff()
destroy LmSes
return 1
End If

LmMsg.Subject = as_email_title
LmMsg.notetext = ' '
LmMsg.Recipient[1].name=as_email_add

LmAttach.FileType = mailAttach!
LmAttach.PathName = as_email_attach
LmAttach.FileName = as_email_attach
Li_send=Li_send+1
LmMsg.AttachmentFile[1] = LmAttach

LmRet = LmSes.mailsend ( LmMsg )
if LmRet<>mailReturnSuccess! then
LmSes.maillogoff()
destroy LmSes
return 1
end if
LmSes.maillogoff()
destroy LmSes
return 1
------华软网友回复------
这个也可去试试:
mailsession mses
mailmessage mmsg
mailreturncode mreturn//产生邮件会话对象mses
mses = create mailsession

//邮件登录
mreturn = mses.maillogon(mailnewsession!)
if mreturn <> mailreturnsuccess! then
messagebox("邮件登录","邮件登录失败!")
return
end if

//弹出邮件地址窗口,获取邮件接收者的地址。地址及名字是放在mmsg中的一 个结构数组

mreturn = mses.mailaddress(mmsg)
if mreturn <> mailreturnsuccess! then
  messagebox("邮件地址","邮件地址出错!")
  return
end if

//把窗口w_mai1上的多行编辑器mle_1中的内容放到mmsg的notetext字段中
mmsg.notetext = 'is_errortext'//发送邮件
mreturn = mses.mailsend(mmsg)
if mreturn <> mailreturnsuccess! then
  messagebox("邮件发送","邮件发送失败!")
  return
else
messagebox("邮件发送","邮件发送成功!")
end if
//退出登录
mses.maillogoff()//取消邮件会话
destroy mses
------华软网友回复------
函数我知道,但是现在只要调用outlook 成功了,不论是否真的“发送成功”,都会返回mailreturnsuccess! 这是怎么回事啊?
------华软网友回复------
一定要能发送附件才行
------华软网友回复------
可以利用第三方dll發送,我就是用mymail.dll做的,可以完全脫離outlook.
------华软网友回复------
项目一直使用outlook,现在不好改了。
outlook中通过什么配置可以使pb程序调用它时不弹出outlook自己的发送对话框?      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。