引用共享收件箱帐户

Question

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

我尝试这样做：

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 

Answer 1

你几乎得到了它，在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.com") '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 

尝试使用 GetSharedDefaultFolder看