Outlook CopyTo错误

问题描述

 设置oStores = Application.GetNamespace（" MAPI"）。商店



 设置oStore = oStores（" ismael.magma @ outlook.es"）



 设置oFolder = oStore.GetRootFolder





 设置myCal = Application.GetNamespace（" MAPI"）。GetDefaultFolder（FolderType：= olFolderCalendar）

 设置oExplorer = myCal.GetExplorer



 设置oItems = myCal.Items



$
 对于每个oItemOriginal In oItems

      MsgBox oItemOriginal.ConversationTopic

 下一步

  For i = 1 To oItems.Count

     设置oItemOriginal = oItems（i）

  &NBSP;   oItemOriginal.CopyTo（oFolder，copyoptions：= olCopyAsAccept）  &NBSP; &NBSP; &NBSP;  < - 错误预期：=

 结束

我做错了什么？

         &NBSP; &NBSP;&NBSP; &NBSP;   

解决方案

 Set oStores = Application.GetNamespace("MAPI").Stores

 Set oStore = oStores("[email protected]")

 Set oFolder = oStore.GetRootFolder


 Set myCal = Application.GetNamespace("MAPI").GetDefaultFolder(FolderType:=olFolderCalendar)
 Set oExplorer = myCal.GetExplorer

 Set oItems = myCal.Items


 For Each oItemOriginal In oItems
     MsgBox oItemOriginal.ConversationTopic
 Next

 For i = 1 To oItems.Count
     Set oItemOriginal = oItems(i)
     oItemOriginal.CopyTo(oFolder, copyoptions:=olCopyAsAccept)          <-- Error Expected :=
 End

What am I doing wrong?

                  

解决方案

这篇关于Outlook CopyTo错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！