Question

我想将邮件移动到不同的文件夹，然后将链接返回到移动的邮件。如果没有移动它的工作原理为：

Dim objMail As Outlook.MailItem 
Dim sFrag As String 
Set objMail = Application.ActiveExplorer.Selection.Item(i_item) 
sFrag = "<a href='outlook:" + objMail.EntryID + "'>" + objMail.Subject + "</a>"" 

在这里有串sFrag在适当的超级链接提供了一个有效的Outlook元素。如果我点击一个包含此属性的超链接，该元素将在Outlook中打开。

但是，如果我这样扩大到：

Dim objMail As Outlook.MailItem 
Dim sFrag As String 
Dim oOlApp As Outlook.Application 
Dim targetFolder As folder 

Set objMail = Application.ActiveExplorer.Selection.Item(i_item) 
Set oOlApp = Outlook.Application 
Set objNmSpc = oOlApp.GetNamespace("MAPI") 
Set targetFolder = objNmSpc.PickFolder 
objMail.Move targetFolder 
sFrag = "<a href='outlook:" + objMail.EntryID + "'>" + objMail.Subject + "</a>" 

后，在sfrag链接失败。如果我想打开此链接，Outlook-Windows将显示Operation failed。似乎objMail.EntryID在objMail.Move命令后未正确更新。

为什么？如何解决这个问题？

Answer 1

移动是一个函数，而不是一个子 - 它retruns新项目：

set objMail = objMail.Move(targetFolder)