Set OutApp = CreateObject("Outlook.Application") - Runtime error 429
i tried
Private Sub Form_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine ("This is a test.")
a.Close
End Sub
which worked...?
|