Question

Outlook中用vba下载附件if判断不起作用，求解！

vba代码如下：If InStr(Split(vItem.FileName, ".")(1), "rar") > 0 Or InStr(Split(vItem.FileName, ".")(1), "zip") > 0 Then If InStr(MyFileName, "量化多空3号") = 0 Or _ InStr(MyFileName, "量化多空2号") = 0 Then '//判断是否包含该月份的文件夹，有则保存在文件夹 ，无则创建文件 Folder = "E:\outlook\" & Format(Date, "YYYYMMdd") '//判断月份 vItem.SaveAsFile Folder & "\" & vItem.FileName '//保存附件路径 If Not Fso.FolderExists(Folder) Then '//无则创建文件夹 Fso.CreateFolder (Folder) End If Else vItem.SaveAsFile "E:\outlook\down\" & vItem.FileName '//保存到根目录文件夹 End If End If图片画圈这个if判断不起作用，前面那句就起作用了，结果是所有的rar和zip文件都下载了，我是想下载含有特定关键词的文件的，为什么会不起作用呢？求解！

Answer 1

这个很简单,不用excel VBA, 用outlook VBA,编写代码获取某个文件夹里面的邮件对象,然后获取相关信息,之后用createobject创建excel实例,添加新sheet,把得到的邮件信息写入,ok

Answer 2

我写具体文件截图说明

Answer 3

设置宏的安全性，启用所有宏，试试!