赎回-Outlook VBA脚本，用于从特定发件人移动带有附加消息文件的邮件

Question

我正在尝试用救赎为Outlook编写一个VB脚本。我的任务如下：

null

Sub GetAttachmentInfo()
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olNS As Outlook.NameSpace
Set olNS = olApp.GetNamespace("MAPI")
Dim FolderSrc As MAPIFolder
Set FolderSrc = CreateObject("Outlook.Application"). _
              GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

Dim oRDOSession As Redemption.RDOSession
Set oRDOSession = CreateObject("Redemption.RDOSession")
oRDOSession.MAPIOBJECT = olNS.Application.Session.MAPIOBJECT

Set Inbox = oRDOSession.GetDefaultFolder(olFolderInbox)

Set Mail = olApp.ActiveExplorer.Selection.Item(1)
Debug.Print "EntryID: " & Mail.EntryID
Set Mail = oRDOSession.GetMessageFromID(Mail.EntryID)
For Each Msg In FolderSrc.Items
    For Each att In Mail.Attachments
    Debug.Print "Sender: " & att.EmbeddedMsg.SenderEmailAddress
    Debug.Print "Embedded Msg Subject: " & att.EmbeddedMsg
    Next
Next
End Sub

Sub subjectLine()
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim Folder As Object
Dim olNS As Outlook.NameSpace
Set olNS = olApp.GetNamespace("MAPI")
Dim oRDOSession As Redemption.RDOSession
Set oRDOSession = CreateObject("Redemption.RDOSession")
oRDOSession.MAPIOBJECT = olNS.Application.Session.MAPIOBJECT


Set Folder = Session.GetDefaultFolder(olFolderInbox)
For Each Msg In Folder.Items
  Debug.Print (Msg.Subject)
Next
End Sub

For Each Mail in Inbox.Items    
    If Mail.Attachment >0
         If attachment.sender = "whoever"
             Move to "Specific Folder"
         End If
    End If 
Next

Answer 1

在您的第一个脚本中，您已经遍历了收件箱中的所有项目，但您从未接触它们--您正在持续处理所选邮件的附件。在队伍中

 For Each att In Mail.Attachments

将邮件替换为MSG。您还需要确保正在触摸嵌入的邮件附件。在我的头顶上：

For Each Msg In FolderSrc.Items
    For Each att In Msg .Attachments
      if att.Type = 5 Then 'olEmbeddedItem
        set embeddedMsg = att.EmbeddedMsg
        Debug.Print "Sender: " & embeddedMsg.SenderEmailAddress
        Debug.Print "Embedded Msg Subject: " & embeddedMsg.Subject
      End If
    Next
Next