vba - attachments - excel macro to send email with excel attachment

Documentos de texto Outlook 2007

Question

Me preguntaba si hay alguna forma de leer información de un archivo de texto con VBA en Outlook 2007.

Gracias por la atención

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

Del objeto MSDN FSO

Open sPath, #FileNo más cómodo que Open sPath, #FileNo . Debe agregar FSO a su proyecto con "Herramientas -> Referencias", como se describe en MSDN.