I get a 400 error or 1004 error depending on where I run the code

Hello, I am trying to get code for a spreadsheet to work. The code was working yesterday and now it does not! I checked the version of spreadsheet that I gave to a coworker to beta test and it still works for him, so I'm stumped. Any help would be greatly appreciated.

Here is the code below. It is based (heavily) on Ron de Bruin's code. Please forgive some of the comments, I do that to hang onto code I might still need later on.

Sub Email_link()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

thisfile = "RFQ for " & Range("h13").Value & " for " & Range("g11").Value _
& " " & Format(Now, "dd-mmm-yy")

'filepath = "o:\Quotes Folder\test run for new form\"

'"o:\Quotes Folder\" & Range("g11").Value & "\" & "RFQ for " & Range("h13").Value & " for " & Range("g11").Value _
& " " & Format(Now, "dd-mmm-yy") & ".xls"
'"t:\documents\my media\" & Range("g11").Value & "\" & "test" & Format(Now, hh - mm - ss)
'"RFQ for " & Range("h13").Value & " for " & Range("g11").Value _
& " " & Format(Now, "dd-mmm-yy hh-mm-ss")
'filepath = "\\aero-pdc\public\estimating\bids\test folder\"

'Application.Dialogs(xlDialogSaveAs).Show thisfile

ActiveWorkbook.SaveAs filename:="o:\Quotes Folder\test run for new form\" & thisfile & ".xls"

If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Please respond at your earliest convienence with your best pricing and delivery." _
& "<br><br>Best regards,<br>" & Range("g6").Value


On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
.HTMLBody = strbody
.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .Send'
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "The Activesheet does not have a path, Save the file first."
End If
End Sub

Many thanks,
Matt