I am new to marco's, and this is the first one I have ever tried to build. I need a macro, that when I click a button, it opens a new email and attaches a specified file to it. I have gotten the code to open a new outlook message window, but can't get it to attach a file, nor fill out the subject, and body area. Here is my code. Can someone tell me what it is that I am doing wrong?

Private Sub CommandButton2_Click()

Dim ol As Outlook.Application
Set ol = CreateObject("Outlook.Application")

Dim newMessage As Outlook.MailItem
Set newMessage = ol.CreateItem(olMailItem)
newMessage.Display

With EmailItem
.Subject = "Marketing Material"
.Body = "Attached is the information you requested. "
.Importance = olImportanceNormal
.Attachments.Add "C:\Documents and Settings\jtewell\My Documents\authorization letter.pdf"

End With
End Sub

Thanks