Question

我下载了通过电子邮件发送的符合给定条件的Excel文件。

如果没有附件，我需要抓取电子邮件的正文，并将其粘贴到Excel文档中。

如何检测我是否仅发送了非Excel附件 - 例如，如果有人附加了PDF。

我想计算包含字符串“.xls”的附件数量，如果我的结果超过0，则处理下载。否则，刮掉电子邮件正文。

我找到了：

1）如何计算附件

oOlItm.Attachments.Count <> 0

2）如何检查任何给定的附件是否包含给定的字符串

(InStr(oOlAtch.FileName, ".xls") > 0)

Answer 1

这样的事情会起作用：

For Each oOlItm In oOlAtch.attachments
    If InStr(1, oOlItm.filname, ".xls") > 1 Then cnt = cnt + 1
Next oOlItm 
if cnt > 0 then ...

Answer 2

For Each oOlAtch In oOlItm.Attachments

            ExcelAttachmentNumber = 0

                 If (InStr(oOlAtch.FileName, ".xls") > 0) Then
                    ExcelAttachmentNumber = ExcelAttachmentNumber + 1
                    Else
                    End If
Next

计算Excel附件的数量

2 个答案: