如何在VBA中打开excel文件的附件并在文件内部验证seva之前在outlook中确定的文件夹中的消息？

Question

我收到带有附加excel文件的确定电子邮件，我需要知道此电子邮件是否属于某个流程的一部分，然后再将其移至确定的文件夹。

1. 当电子邮件到达时，宏会启动。
2. 宏验证电子邮件是否具有Excel附件。
3. 如果它是Excel文件，宏会验证文件中第一个单元格是否包含单词＆＃34; process＆＃34;。
4. 如果是，则宏将电子邮件移动到Outlook中的确定文件夹。

我可以执行第一步和第二步，但我不知道是否可以打开Excel文件附件并验证第一个单元格。

Answer 1

从规则中调用。

Sub TEST1(o As Outlook.MailItem)

    Dim xl As Excel.Application

    If InStr(1, o.Attachments(1), ".xls") > 0 Then

        Set xl = New Excel.Application
        xl.Visible = 1
        '    Save the attachment here as strAttachmentName
        xl.Workbooks.Open strAttachmentName
        If xl.ActiveWorkbook.Worksheets(1).Range("a1").Value = "Processing" Then
            o.Move Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
        End If

    End If

End Sub