文本文档 Outlook 2007

Question

我想知道是否有任何方法可以在 Outlook 2007 中使用 VBA 从文本文件中读取信息。

感谢您的关注

Answer 1

  Private Sub Command1_Click()
    'Declare variables.
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    'Open file.
    Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")
    'Loop while not at the end of the file.
    Do While Not ts.AtEndOfStream
      Debug.Print ts.ReadLine
    Loop
    'Close the file.
    ts.Close
  End Sub

来自 MSDN FSO 对象

比 Open sPath, #FileNo< 更舒服/代码>。您需要使用“工具 -> 参考”将 FSO 添加到您的项目中，就像 MSDN 中所描述的那样。