AX 2009 实现outlook发送邮件并带多个附件
做过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*(+(\.\w+)*@([\w-]+\.)+\w{2,3})\s*$/"); reg = new System.Text.RegularExpressions.Regex("^+(/.+)*@+(/.+)+$");
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添加附件，才慢慢摸索出来的。
页:
[1]