文本文档的Outlook 2007

Question

我想知道是否有什么办法可以从Outlook与VBA文本文件中读取信息了2007年

感谢关注

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中描述的那样。