Cannot attach the text file to email

[arpan]

Hi Guys,

I'm having trouble trying to attach a file to an email. Following is the script and error message i'm getting when i run it. I close all the processes and restarted the machine and still getting this error.

Code:

Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\test.txt", 2, True)

f.WriteLine("Testing Script) & vbcrlf

strSMTPFrom = "abc@xyz.com"
strSMTPTo = "abc@xyz.com"
strSMTPRelay = "mail.xyz.com"
strTextBody = "Testing."
'strSubject = "Testing"
strAttachment = "C:\test.txt"
Set oMessage = CreateObject("CDO.Message")
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMessage.Configuration.Fields.Update

oMessage.Subject = strSubject
oMessage.From = strSMTPFrom
oMessage.To = strSMTPTo
oMessage.TextBody = strTextBody
oMessage.AddAttachment strAttachment <--- Getting Error
oMessage.Send

Error Message:

The process cannot access the file because it is being used by another process.

Code:

Line (25): "oMessage.AddAttachment strAttachment".

Any help will be appreciated.

Thanks
Arpan

[ssvali]

Try this...

Save the text file and close it and then send the mail with attachment

[arpan]

Thanks ssvali. It worked. Really appreciate your help.