是否可以从我已移至共享邮箱中的文件夹的电子邮件中更改flagstatus?
示例:我收到一封新邮件,并用红色标记标记它。然后,当作业完成时,我将邮件移至“已完成”文件夹。
将邮件移动到此文件夹后,我希望flagstatus为“ olflagComplete”(绿色标记),并且每次打开Outlook时,代码都应检查带有红色标记的邮件文件夹(例如,从手机中移动的邮件)并将其设置为绿色标记。
我尝试了以下操作,但是在打开的Outlook中什么也没发生。
希望有人可以帮助我。
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olNameSpace As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Set olNameSpace = Application.GetNamespace("MAPI")
Set olFolder = olNameSpace.Folders("name@company.com")
Set olFolder = olFolder.Folders("Completed")
Set Items = olFolder.Items
End Sub
Private Sub Items_ItemChange(ByVal Item As Object)
Dim olNameSpace As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim Mail As MailItem
Set olNameSpace = Application.GetNamespace("MAPI")
Set olFolder = olNameSpace.Folders("name@company.com")
Set olFolder = olFolder.Folders("Completed")
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.flagStatus = olflagMarked Then
'Set ItemCopy = Item.Copy ' Copy flagged item
'ItemCopy.Move olFolder ' Move Copied item
Set Mail.flagStatus = olflagComplete
End If
Set Item = Nothing
'Set ItemCopy = Nothing
End If
End Sub