引用共享收件箱帐户

本文介绍了引用共享收件箱帐户的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

在共享收件箱帐户中，如果电子邮件未读，我想运行脚本.

On a shared inbox account, I would like to run a script if the email is unread.

我试过了:

Sub UnreadMail() Dim myEmail As Object Dim myNamespace As Object Dim myFolder As Folder Set myNamespace = Application.GetNamespace("MAPI") Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) For Each myEmail In myFolder If (myEmail.UnRead) Then Call SaveAttachToDisk End If Next End Sub

推荐答案

你差不多明白了，尝试使用 GetSharedDefaultFolder 看 MSDN GetSharedDefaultFolder 方法

You almost got it, Try using GetSharedDefaultFolder Look at MSDN GetSharedDefaultFolder Method

Option Explicit Sub UnreadMail() Dim olNameSpace As Outlook.NameSpace Dim olShareName As Outlook.Recipient Dim olShareInbox As Outlook.Folder Dim olItem As Outlook.MailItem Set olNameSpace = Application.GetNamespace("MAPI") Set olShareName = olNameSpace.CreateRecipient("Om3r@Email") 'address Set olShareInbox = olNameSpace.GetSharedDefaultFolder(olShareName, olFolderInbox) 'Inbox For Each olItem In olShareInbox.Items If (olItem.UnRead) Then 'Call SaveAttachToDisk Debug.Print olItem '// Print UnRead Item to Immediate window End If Next End Sub