Email attachment when someone else has it open

  • Thread starter Thread starter nockam
  • Start date Start date
N

nockam

I have windows task scheduler setup to run some VBS code for me to send
out some reports automatically ever night for me. However some people
have started to figure out if they leave the file open the report will
not send. I have looked all over and cannot figure out how to do this.
Can anyone tell me what I need to do in order to make it so that if
someone has the file opened it will still send the attachment?



Set objemail = CreateObject("CDO.Message")
objemail.From = "(e-mail address removed)"
objemail.To = "(e-mail address removed)"
objemail.cc = "(e-mail address removed)"
objemail.Subject = "Subject"
objemail.Textbody = "Body"
objemail.AddAttachment "file path"
objemail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objemail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"mailserver.domain.com"
objemail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
objemail.Configuration.Fields.Update
objemail.Send
 
If you can control the file ?
If the file is open use SaveCopyAs to save a copy and send that one
 
Can you try giving it a different file name

That way it shouldn't intefere
 
Back
Top