vba - 文本文档 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 Object

比Open sPath, #FileNo舒服得多。您需要使用“工具 -> 引用”将 FSO 添加到您的项目中，如 MSDN 中所述。