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