这是您的VBA代码和ABAP代码之间的等效项：

 Sub MoveItems（）FORM moveitems。

     将OutlookApp调暗为Outlook.Application数据outlookapp类型ole2_object。
     将myNamespace设置为Outlook.NameSpace DATA mynamespace TYPE ole2_object。
     将myFolder设置为Outlook.MAPIFolder DATA myfolder TYPE ole2_object。
     Dim destFolder作为Outlook.MAPIFolder DATA destfolder TYPE ole2_object。
     Dim count As Long，n作为Long DATA count TYPE i。
     将movItems设置为Outlook.Items DATA movitems类型ole2_object。
     Dim mItem作为对象DATA模式ole2_object。

     设置OutlookApp =新的CREATE OBJECT outlookapp
 Outlook.Application'Outlook.Application'。

     设置myNamespace = Outlookapp的调用方法'GetNameSpace'=
 OutlookApp.GetNamespace（" MAPI"）mynamespace导出#1 ='MAPI'。

     设置myFolder =调用mynamespace的方法
 myNamespace.GetDefaultFolder（6）''GetDefaultFolder'= myfolder导出#1
 默认收件箱= 6。

     设置destFolder = myfolder的调用方法'Folders'=
 myFolder.Folders（" NEW"）'destfolder导出#1的子文件夹='NEW'。
 默认收件箱

     设置movItems = myFolder.Items获取myfolder'Items'= movitems的属性。

     count = movItems.count获取movitems的属性'Count'=计数。

     对于n = count To 1 Step-1，请计算TIMES。

         movItems（n）。移动destFolder myfolder'Items'= mitem的调用方法
                                                导出#1 = sy-index。
 
模仿"移动"导出#1的呼叫方法
                                                =解除文件夹。

     下一个ENDDO。

 结束子ENDFORM。