2020-09-10 17:30发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）尊敬的专家， 我使用Outlo... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
尊敬的专家，
我使用Outlook将电子邮件中的主题读入内部表中，并且工作正常！
最后，还有2个问题，我希望有人能帮助我：
1）我需要知道标准收件箱中的电子邮件数量。
2）我想将电子邮件从Standort-Inbox移到名为" NEW"的子文件夹中。
Microsoft说，Outlook具有" Count-"和" Move-Methods"。 但是如何在ABAP中使用这种方法？
最诚挚的问候，
马丁
对不起，我的错。
这是我在ABAP中需要的代码（在VBA中可以正常工作，早期绑定）：
子MoveItems（） 将OutlookApp调暗为Outlook.Application 设置OutlookApp =新的Outlook.Application 将myNamespace调暗为Outlook.NameSpace 设置myNamespace = OutlookApp.GetNamespace（" MAPI"） 将myFolder调暗为Outlook.MAPIFolder Dim destFolder作为Outlook.MAPIFolder 昏暗计数长，n长 将movItems设置为Outlook.Items Dim mItem作为对象 '源文件夹和目标文件夹的定义 设置myFolder = myNamespace.GetDefaultFolder（6）'默认收件箱 设置destFolder = myFolder.Folders（" NEW"）'默认收件箱的子文件夹 设置movItems = myFolder.Items 计数= movItems.count 对于n =计数到1步骤-1 movItems（n）。移动destFolder 下一个 结束子
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 学无止境啊~ 的问题《MS Outlook和OLE2》','https://www.easysap.com/answer/70297/196263.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
对不起，我的错。
这是我在ABAP中需要的代码（在VBA中可以正常工作，早期绑定）：
子MoveItems（） 将OutlookApp调暗为Outlook.Application 设置OutlookApp =新的Outlook.Application 将myNamespace调暗为Outlook.NameSpace 设置myNamespace = OutlookApp.GetNamespace（" MAPI"） 将myFolder调暗为Outlook.MAPIFolder Dim destFolder作为Outlook.MAPIFolder 昏暗计数长，n长 将movItems设置为Outlook.Items Dim mItem作为对象 '源文件夹和目标文件夹的定义 设置myFolder = myNamespace.GetDefaultFolder（6）'默认收件箱 设置destFolder = myFolder.Folders（" NEW"）'默认收件箱的子文件夹 设置movItems = myFolder.Items 计数= movItems.count 对于n =计数到1步骤-1 movItems（n）。移动destFolder 下一个 结束子一周热门 更多>