Dear friends,

I am desperately trying to figure out how to send an e-mail with updated
worksheet to individual field officers without having to type in the
"SUBJECT" and "MESSAGE or BODY" in the e-mail. (i.e. built-in Heading and
Message)

The only possibility I've found so far is when using a "Routing Slip".
Which is as shown below:

Workbooks("salpietro.xls").HasRoutingSlip = True
With Workbooks("salpietro.xls").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Thomas Windsor", "Silvia Seizt", "Bernard Teuchner")
.Subject = "The Completed Workprogramme"
.Message = "Here is the completed Workprogramme. What do you think?"
End With
Workbooks("salpietro.xls").Route

This works fine as a Routing Message, however, this is not exactly what I
want. I need to send different Worksheets to individual Responsible Officers
and therefore, I do not need to "Routing Slip" function.

===========================

THIS IS WHAT I HAVE PREPARED:

Sub SendMail2()

'Extract and Save Individual WorkSheet in the Public Folder and then Send to
Responsible Officer their individual files separately:

Sheets("Salpietro").Select
Sheets("Salpietro").Copy
ActiveWorkbook.SaveAs Filename:="V:\current tables\Salpietro.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
With Workbooks("Salpietro.xls")
.SendMail Recipients:="David Campbell"
.Subject = "Art 7 Contracts"
.Message = "Here is the Workbook for you. What do you think?"
End With
ActiveWorkbook.Close
Windows("Art7-Update 29Dec04.xls").Activate
End Sub

When I run the macro, I am however, still prompted to provide the e-mail
address, the Subject and the Message. Once I've done that I do receive the
the e-mail but without the "Subject" and the "Message".

Could you please, please help me solve this problem.

Many thanks in advance,
Prabha