AX 2009 实现outlook发送邮件并带多个附件

FXMAR

　　做过AX的人，对outlook发送邮件都应该非常熟悉，但是，要将AX中的附加图片和文档，一起附加到outlook并发送。我觉得还是值得一说的。
　　我还是以拿出代码和大家分享吧。
　　void sendEmail()
　　{   
　　COM                         outLook;   
　　COM                         item;   
　　COM                         attach;   
　　COM                         cc;   
　　System.Net.Mail.MailAddress adrSend;   
　　str                         subPath;   
　　str                         strSubject;   
　　str                         userid;   
　　int                         i;   
　　System.Text.RegularExpressions.Regex reg;   
　　EmplTable    emplTable;     ;   
　　userid = curuserid();   
　　emplTable = EmplTable::find(EmplTable::userId2EmplId(curuserid()));   
　　//reg = new System.Text.RegularExpressions.Regex("@^\s*([A-Za-z0-9_-]+(\.\w+)*@([\w-]+\.)+\w{2,3})\s*$/");     reg = new 　　　　　　　　           System.Text.RegularExpressions.Regex("^[/w-]+(/.[/w-]+)*@[/w-]+(/.[/w-]+)+$");   
　　if(!reg.IsMatch(emplTable.OutlookUserID))   
　　{        
　　throw error("Email format is error");   
　　}     //adrSend = new System.Net.Mail.MailAddress(emplTable.OutlookUserID);
　　adrSend = new System.Net.Mail.MailAddress("kui.ding@rogrand.com");   
　　outLook = new COM("OutLook.application");   
　　item = outLook.CreateItem(0);   
　　attach  = item.attachments();   
　　//item.to(emplTable.OutlookUserID);   
　　item.to("364991746@qq.com");   
　　//item.cc("kui.ding@rogrand.com;kimding@163.com");   
　　strSubject = strreplace(this.subjectText(),'\r\n','');   
　　item.subject(strSubject);     //item.body("testtesttest");   
　　for(i = 1;i<=conlen(this.attachPath());i++)   
　　{
　　if(winapi::fileExists(conpeek(this.attachPath(),i)))        
　　{            
　　attach.add(@""+conpeek(this.attachPath(),i));        
　　}        
　　else        
　　{            
　　info(strfmt("not exist %1",conpeek(this.attachPath(),i)));        
　　}   
　　}   
　　item.attachments();  
　　
　　//item.send(); //直接发送   
　　item.display(true);//显示outlook界面
　　}
　　刚开始做的时候，也很纠结，不知道多个附件该如何附加，后来是通过参考在.net当中outlook添加附件，才慢慢摸索出来的。