Excel 2007 VBA - include the contents of a cell in a email subject line

[andyg66]

Hi,
I have the following code that attaches my file to and email but i want it to include the contents of three cells in the subject line and possibly in the main body. One cell is a number wich includes the / symbol (10/0) one cell is a number (098) and the third is a company name all different numbers each time, i want the subject to read "10/0098 Company Name Event Form" and the main body to read "Please find attached company name event fom, ref 10/0098" Bold text to show the cells not needed in the email.

Sub Mail_Workbook_1()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Event Form"
.Body = "Please find attached a new or updated event form"
.Attachments.Add ActiveWorkbook.FullName
' You can add other files by uncommenting the following line.
'.Attachments.Add ("C:\test.txt")
' In place of the following statement, you can use ".Send" to
' display the mail.
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[xld]

.Subject = Range("A1").Text & Range("A2").Text & " " & Range("A3").Text & " Event Form"

 

[xld]

Oops, and the other bit

.Body = "Please find attached " & Range("A3").Text & " event form, ref " & Range("A1").Text & Range("A2").Text

 

[andyg66]

You are a star, it works perfectly yeh !!!