Текстовые документы Outlook 2007

Question

Мне было интересно, есть ли какой-нибудь способ считывания информации из текстового файла с помощью VBA в Outlook 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 Объект

Намного удобнее, чем Open sPath, #FileNo. Вам нужно добавить FSO в ваш проект с помощью «Инструменты -> Ссылки», как это описано в MSDN.