getting Error Expected ')' at Line - 20

[abhijit2610]

I have vbscript which will read text file and send mail of content but after running it getting error ----- Expected ')' line - 20


Sub CatchMe()

Dim outobj, mailobj
Dim strFileText
Dim objFileToRead
Set outobj = CreateObject("Outlook.Application")
Set mailobj = outobj.CreateItem(0)
strFileText = GetText("C:\Users\AH0667770\Desktop\New folder (2)\1.txt")
With mailobj
.To = "[email protected]"
.Subject = "Testmail"
.Body = strFileText
.Display
End With
'Clear the memory
Set outobj = Nothing
Set mailobj = Nothing
End Sub

Function GetText(sFile As String) As String
Dim nSourceFile As Integer, sText As String
nSourceFile = FreeFile
'Write the entire file to sText
Open sFile For Input As #nSourceFile
sText = Input$(LOF(1), 1)
Close
GetText = sText
End Function

[TMS]

Your code works fine for me. Suggest you post a sample workbook with the code in it and a copy of the text file you are reading.

[abhijit2610]

Please Login or Register  to view this content.

File - 1.txt

1

updated now showing error

Expected end of the statement at line 24

[cytop]

post a sample workbook

Stop taking the easy way out for yourself - spend a little time to help others who may help you.

[TMS]

What can I say? If you just keep providing the same information, you're just going to get the same answer. It worked for me with a text file I have in my downloads folder.

I can see the name of the file and its location in the code. If there is an error, I assume it relates to your file, because I don't get an error with mine.

[xlnitwit]

Hi,

If you are running this as VBScript, it will not work. You cannot use Open and Close- you will have to use the Scripting.Filesystemobject instead. Also, you cannot declare variable types or function return types in VBScript.