I posted the subject question earlier and the following reply was received. It works great. Thanks a lot for the post.

Private Sub CommandButton1_Click()

ActiveWorkbook.SendMail Recipients:="christopher_hart@hotmail.com", Subject:="ClaimsForm", ReturnReceipt:=True
MsgBox "The Claims Form has been sent", , "Claims Form"

Now, I would like know how can I attach an existing file or files from the hard disk, rather than sending the active workbook as the attachment and also how can I define more than one recepient.