用Outlook发送邮件的问题

时间:2022-09-24 08:39:16

在AX中有两种发送邮件的方式,一种是使用类SysMailer通过CDO.Message组件发送,另一种是通过SysINetMail这个类使用AX封装的MAPI这个类去发送邮件,其中后者实际上是调用Outlook的COM组件实现的,当然会把已经发送的邮件保存在客户端的Outlook中,本文主要讨论使用后者所遇到的问题.
我们在使用批处理发送邮件的功能时会出现一个对话框让点击确定,批处理发送邮件的功能是通过BatchRun的sendMail方法实现的,简化一下其代码,核心代码如下:

用Outlook发送邮件的问题static   void  SendMail(Args _args)
用Outlook发送邮件的问题用Outlook发送邮件的问题
{
用Outlook发送邮件的问题    SysINetMail     mail 
= new SysINetMail();
用Outlook发送邮件的问题    ;
用Outlook发送邮件的问题    mail.sendMail(
"wanglai@126.com","Hello Outlook Mail","SendMail By Outlook Test",false);
用Outlook发送邮件的问题
用Outlook发送邮件的问题}

可以看出是通过SysINetMail去实现的,sendMail会调用一系列的方法,当调用到SysINetMail的
用Outlook发送邮件的问题receiver  =  _mapi.resolveName(name, #MAPI_DIALOG);

这一行时,会出现如下对话框:
用Outlook发送邮件的问题
这样每次都要点这个玩意确实比较痛苦.问题的原因是AX的MAPI这个类被Outlook认为是一个不安全.其实AX中已经有解决这个问题的办法了,只要使用MAPIEX这个类就可以了,搞不清楚微软为什么不改造一下SysINetMail这个类使用MAPIEX,或许觉得让全世界人民都点这个Allow按钮比较酷吧,呵呵.
可以看一下类 SmmOutlookEMailsendEMail方法,简化一下代码如下:
用Outlook发送邮件的问题static   void  ExtendedMAPISendMail(Args _args)
用Outlook发送邮件的问题用Outlook发送邮件的问题
{
用Outlook发送邮件的问题    MapiEx mapiEx;
用Outlook发送邮件的问题    MapiExMail mapiExMail;
用Outlook发送邮件的问题    boolean mapiInitialised;
用Outlook发送邮件的问题    COM outlookNameSpace;
用Outlook发送邮件的问题    COM outlook;
用Outlook发送邮件的问题    COM folder;
用Outlook发送邮件的问题    COM item;
用Outlook发送邮件的问题    str entryId;
用Outlook发送邮件的问题    str storeId;
用Outlook发送邮件的问题    InteropPermission permission;
用Outlook发送邮件的问题    
用Outlook发送邮件的问题    
#define.outlookapplication("outlook.application")
用Outlook发送邮件的问题    
#define.mapi("mapi")
用Outlook发送邮件的问题    #smmMSOutlook2002ObjectModelConstants;
用Outlook发送邮件的问题 
用Outlook发送邮件的问题    permission 
= new InteropPermission(InteropKind::ComInterop);
用Outlook发送邮件的问题    permission.assert();
用Outlook发送邮件的问题    
用Outlook发送邮件的问题    outlook 
= new COM (#outlookapplication);
用Outlook发送邮件的问题    outlookNameSpace 
= outlook.getNameSpace(#mapi);
用Outlook发送邮件的问题 
用Outlook发送邮件的问题    outlookNameSpace.logon();
用Outlook发送邮件的问题    folder 
=outlookNameSpace.getDefaultFolder(#olFolderInbox);
用Outlook发送邮件的问题    storeId 
= folder.storeId();
用Outlook发送邮件的问题    item 
= outlook.createItem(#olMailItem);
用Outlook发送邮件的问题
用Outlook发送邮件的问题    
if(item)
用Outlook发送邮件的问题用Outlook发送邮件的问题    
{
用Outlook发送邮件的问题        item.subject(
"Hello Outlook");
用Outlook发送邮件的问题        item.body(
"Send Mail By Outlook");
用Outlook发送邮件的问题 
用Outlook发送邮件的问题        item.saveSentMessageFolder(outlookNameSpace.getDefaultFolder(#olFolderSentMail));
用Outlook发送邮件的问题        item.save();
用Outlook发送邮件的问题        entryId 
= item.entryId(); 
用Outlook发送邮件的问题 
用Outlook发送邮件的问题        mapiEx 
= new MapiEx();
用Outlook发送邮件的问题        
if(mapiEx && mapiEx.mapiInitialised())
用Outlook发送邮件的问题用Outlook发送邮件的问题        
{
用Outlook发送邮件的问题            mapiInitialised 
= true;
用Outlook发送邮件的问题            
if (!mapiEx.logon("","",0|| !mapiEx.openMessageStore(storeId))
用Outlook发送邮件的问题用Outlook发送邮件的问题            
{
用Outlook发送邮件的问题                mapiInitialised 
= false;
用Outlook发送邮件的问题                mapiEx.logout();
用Outlook发送邮件的问题                mapiEx.finalize();
用Outlook发送邮件的问题                
return;
用Outlook发送邮件的问题            }

用Outlook发送邮件的问题
用Outlook发送邮件的问题            mapiExMail 
=mapiEx.getMailFromEntryId(entryId);
用Outlook发送邮件的问题            
if (mapiExMail)
用Outlook发送邮件的问题用Outlook发送邮件的问题            
{
用Outlook发送邮件的问题                mapiExMail.addRecipient(
'wanglai@126.com',"",#olTo);
用Outlook发送邮件的问题            }

用Outlook发送邮件的问题
用Outlook发送邮件的问题            mapiExMail.send();
用Outlook发送邮件的问题            mapiExMail.close();
用Outlook发送邮件的问题        }

用Outlook发送邮件的问题    }

用Outlook发送邮件的问题    
if (mapiInitialised)
用Outlook发送邮件的问题用Outlook发送邮件的问题    
{
用Outlook发送邮件的问题        mapiEx.logout();
用Outlook发送邮件的问题        mapiEx.finalize();
用Outlook发送邮件的问题    }

用Outlook发送邮件的问题}

用Outlook发送邮件的问题        
这样就不会弹出那个框了.