如何在OUTLOOK中阅读附件的第一行

Question

我在OUTLOOK中有一些VBA代码，根据文件名保存附件。我希望能够阅读附件的第一行（我希望就是全部），看看是否需要做任何其他事情，具体取决于报告名称。

我是VBA的新手，所以如何阅读附件的第一行????

Answer 1

您需要先将附件保存到文件系统（Attachment.SaveAsFile），Outlook不会让您直接读取附件数据。如果需要直接在内存中读取数据，Redemption会在其附件对象上公开AsText和AsArray属性。

更新： 要阅读文本文件，请使用以下内容。您可以阅读TextStream.ReadLine或TextStream.ReadAll。

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("c:\myfile.txt", fsoForReading)
strHTML = objTextStream.ReadAll