使用VBA在Outlook 2010中打开Excel附件

我想知道如何使用VBA代码在我的收件箱Outlook 2010中打开Excel附件 .

我想代码：

• 检查未更改的特定主题"Test"

• 检查该电子邮件是读取还是未读取，以及是否未读取该电子邮件

我有一个规则，根据主题将电子邮件存储在子文件夹中，但我可以将其更改为返回主收件箱

如果您能解释代码的作用，我将非常感激，因为我不熟悉Outlook连接位 .

这就是我从各个站点汇总的内容，包括stackoverflow，它完成了这项工作 .

• 似乎在10PM和5PM电子邮件的主题中运行具有RE的电子邮件 . 我明确地命名了两封电子邮件的主题 . 谁能帮我？

• 我不熟悉为Outlook对象声明变量 . 我是否正确地声明了变量？

• 我还想复制每个文件中的数据并将其粘贴到另一个工作簿中 . 我希望将数据粘贴到每个工作簿的第一个数据下面，这样就需要找到最后一行并将每个工作簿上每个数据最后一行下面的一行粘贴到打开的工作簿上，该工作簿存储在另一个路径中 .

.

Sub DownloadAttachmentFirstUnreadEmail()

    Const olFolderInbox = 6
    Const AttachmentPath As String = "C:\My Documents\Outlook Test\"

    Dim oOlAtch As Object

    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
    Set objFolder = objFolder.Folders("**CLIENT ISSUES**").Folders("*Daily Reports").Folders("1. Open Trade Report")

    Set colItems = objFolder.Items
    Set colFilteredItems1 = colItems.Restrict("[Unread] = True AND [Subject] = '10PM FXC Email notification for Martin Currie'")
    Set colFilteredItems2 = colItems.Restrict("[Unread] = True AND [Subject] = 'FXC Email notification for Martin Currie Funds'")

       '~~> Check if there are any actual unread 10PM FXC emails
    If colFilteredItems1.Count = 0 Then
        MsgBox "NO Unread 10PM Email In Inbox"
    Else
        '~~> Extract the attachment from the 1st unread email
        For Each colItems In colFilteredItems1
            '~~> Check if the email actually has an attachment
            If colItems.Attachments.Count <> 0 Then
                For Each oOlAtch In colItems.Attachments
                    '~~> save the attachment and open them
                    oOlAtch.SaveAsFile AttachmentPath & oOlAtch.Filename
                    Set wb = Workbooks.Open(Filename:=AttachmentPath & oOlAtch.Filename)
                Next oOlAtch
            Else
                MsgBox "10PM email doesn't have an attachment"
            End If
        Next colItems

    End If

           '~~> Check if there are any actual unread FXC Email emails
    If colFilteredItems2.Count = 0 Then
        MsgBox "NO Unread 5PM Email In Inbox"
    Else
        '~~> Extract the attachment from the 1st unread email
        For Each colItems In colFilteredItems2
            '~~> Check if the email actually has an attachment
            If colItems.Attachments.Count <> 0 Then
                For Each oOlAtch In colItems.Attachments
                    '~~> save the attachment and open them
                    oOlAtch.SaveAsFile AttachmentPath & oOlAtch.Filename
                    Set wb = Workbooks.Open(Filename:=AttachmentPath & oOlAtch.Filename)
                Next oOlAtch
            Else
                MsgBox "5PM email doesn't have an attachment"
            End If
        Next colItems

    End If

End Sub