处理zip附件outlook vba脚本

Question

我需要在Outlook中创建一个宏来将一些电子邮件重定向到特定文件夹。

我必须区分加上10 MB的附件，但条件是应该处理zip中包含的文件，如果未压缩的内容大于10 MB，这些也应该考虑在内。

我想知道如何解压缩文件检查所有文件的大小，如果文件的总大小大于10MB发送到一个文件夹，否则发送另一个文件夹。

Answer 1

Attachment类提供Size属性，该属性返回Long，指示附件的大小（以字节为单位）。

要获得未压缩的大小，您需要将附加文件保存在磁盘上，然后提取内容。 Attachment类的SaveAsFile方法将附件保存到指定的路径。

$data = GET_POST_XML();

有关解压缩文件的代码，请参阅Unzip file(s) with the default Windows zip program (VBA)。