如何将mailItem从一个商店移动到另一个商店

本文关键字：一个 移动 另一个 mailItem | 更新日期: 2023-09-27 18:15:21

我正在尝试使用Outlook 2010和c#将邮件项目从一个存储移动到另一个存储

我已经走了很远，但不确定我如何执行"移动"。我假设它是saveas然后删除

我的尝试(代码大大减少)

         foreach (var mail in folder.Items)
           {
            //I am in the correct folder, and all I want to do is move all items to the 'inbox' of the store. I have already gotten the destination store and saved it as a variable called store
              Microsoft.Office.Interop.Outlook.MailItem mailItem = (Microsoft.Office.Interop.Outlook.MailItem)mail; //got the item
             mailItem.SaveAs(store.FilePath, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG); // throws exception
             mailItem.Delete();
           }

我不确定这是否是最好的方法，但是mailItem.SaveAs(store.FilePath, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG);行抛出了一个异常:

操作失败

我只看到

如何将mailItem从一个商店移动到另一个商店

savea方法将Microsoft Outlook项目保存到指定的路径并以指定的文件类型的格式保存。如果未指定文件类型，则使用MSG格式(. MSG)。因此，该方法用于将项目保存在磁盘上，而不是Outlook中的其他存储。

可以使用MailItem类的Move方法将Microsoft Outlook项目移动到新文件夹中。例如:

Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Personal Mail") 
 Set myItem = myItems.Find("[SenderName] = 'Eugene'") 
 While TypeName(myItem) <> "Nothing" 
  myItem.Move myDestFolder 
  Set myItem = myItems.FindNext 
 Wend 
End Sub
相关文章：