Not Possible with SendMail

See the Outlook object model examples on my mail page if you use Outlook
http://www.rondebruin.nl/sendmail.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"chrisnsmith" wrote in message ...
I'm using Ron de Bruin's email code to send my active workbook. I'd like to
be able to send a document saved to my desktop along with this code. Can
anyone tell me what I need to add?

Ron's code:

Sub Mail_workbook_1()
'Working in 97-2007
Dim wb As Workbook
Set wb = ActiveWorkbook

If Val(Application.Version) = 12 Then
If wb.FileFormat = 51 And wb.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file, there will" &
vbNewLine & _
"be no VBA code in the file you send. Save the" &
vbNewLine & _
"file first as xlsm and then try the macro again.",
vbInformation
Exit Sub
End If
End If

On Error Resume Next
wb.SendMail ", _
"This is the Subject line"
On Error GoTo 0
End Sub