Email Copy and File Not Found Message
 

We have an excel file that has a code that many of us use were the code
sets up an email and attaches a file to the email. The file has been
working fine for quite a while, but we now have two users were the file
gets the following message:

File not found: 'C:DOCUME~1\username.DSR\LOCALS~1\Temp\VB1C1.temp'

We also get a debug at the following code:

(Highlighted on this line) Sheets("Tasks").Copy
ActiveWorkbook.SaveAsFilename:="S:\Info\blanks\Tas kfiles.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False


On my system and many others, the file works fine, but on two users is
were the problem is. We tried using a system that the file works on
using the username of the person that the file doesn't and we have the
same problem. Any help would be greatly appreciated.

Email Copy and File Not Found Message
 

Is the S: drive is a network drive you may want to use it's name instead.
Oftentimes users don't map to the same drive letter. So instead of
S:\Info\blanks\Taskfiles.xls use \\network name\Info\blanks\Taskfiles.xls.

Try that. If it doesn't work try posting the code preceding the highlighted
line so we can get an idea as to what it's doing

"Lankchevy" wrote:

We have an excel file that has a code that many of us use were the code
sets up an email and attaches a file to the email. The file has been
working fine for quite a while, but we now have two users were the file
gets the following message:

File not found: 'C:DOCUME~1\username.DSR\LOCALS~1\Temp\VB1C1.temp'

We also get a debug at the following code:

(Highlighted on this line) Sheets("Tasks").Copy
ActiveWorkbook.SaveAsFilename:="S:\Info\blanks\Tas kfiles.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False


On my system and many others, the file works fine, but on two users is
were the problem is. We tried using a system that the file works on
using the username of the person that the file doesn't and we have the
same problem. Any help would be greatly appreciated.

Email Copy and File Not Found Message
 

We updated the system that's not working to Excel 2003 and I replaced
the S:\ with the network name and it works fine on my system, but we
still get the same errors with the other system. Any other ideas?

Email Copy and File Not Found Message
 

Can you post more of the code? I have a suspiscion that it's trying to email
the temp file instead of the one you have saved.

JNW

"Lankchevy" wrote:

We updated the system that's not working to Excel 2003 and I replaced
the S:\ with the network name and it works fine on my system, but we
still get the same errors with the other system. Any other ideas?

Email Copy and File Not Found Message
 

The following is one we have used for a while, but the names have been
changed to protect the innocent.

Darrell

Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

j = Range("From").Text


'save form as ffff.xls

Sheets("form").Copy
ActiveWorkbook.SaveAs FileName:="\\test-fs\File
Share\bids\ffff.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
_
CreateBackup:=False
'convert to values
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
'delete objects
ActiveSheet.DrawingObjects.Select
Selection.Delete
Application.DisplayAlerts = False
'delete range names
For Each r In Names
r.Delete
Next r
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close

msg = "Mary," & Chr(13) & Chr(13)
msg = msg & "The attached excel file shows a new job that needs to be
setup." & Chr(13)
msg = msg & "Please inform Fred of the Job number." & Chr(13) & Chr(13)
msg = msg & " Thanks," & Chr(11)
msg = msg & " " & j

addee = "
CC = "

With objMail
.To = addee
.CC = CC
.Subject = "New job"
.Attachments.Add "\\test-fs \File Share\bids\ffff.xls"
.Body = msg
.Display
'.Send

End With
Set objMail = Nothing
Set objOL = Nothing

Kill "\\test-fs \File Share\bids\ffff.xls"


'MsgBox "File has been e-mailed to " & addee (Removed because of
Security option in Outlook)

End Sub

Email Copy and File Not Found Message
 

After further investigation, I have found that the problem exists when
we open the file using a shortcut, icon, or xla shortcut.
When I open the file by opening excel first and then open the file by
using the path file/open etc., the code works fine.
It seems for some reason that it can't figure out what the correct path
is without opening excel that way first.
The 2 guys with the problem can open the file that way, but I would
still like for them to use their shortcut or xla shortcut.
Any ideas?

Email Copy and File Not Found Message
 

Problem solved.
I went to Tools, Options, General and changed the Default file location
to match the network drive location and that fixed the problem.
The default file location originally was set to C:\.
I wouldn't have thought something as simple as that would have fixed
the problem, but it seems to have worked.