Fixing a macro that creates a template in Outlook 2007

[kbuyle]

I know almost nothing about writing code in VBA. I copy and pasted the following code to open a template.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate("C:\Users\folder\template.oft")
newItem.Display
Set newItem = Nothing
End Sub


It works well except that every time I send the completed email it opens up VBA and displays the following error "Compile error: Expected End Sub" Does anybody know how I could fix this?

**edit**

This error message not only pops up when running the macro to send an email, but whenever I send any email.

[kbuyle]

I could really use some help on this one. It seems like such a simple fix but I don't have the time to learn VB in order to fix it.

[VBA FTW]

What are you trying to do? Did you put that code in Outlook or Excel? If you put it in Outlook, I'm of no help. But if you're trying to run a macro out of Excel, let me know what you're trying to accomplish and I might be able to help you get it sorted. Please provide specifics

[kbuyle]

It is in Outlook. I am trying to get outlook to pull up a template so I can just start the macro, paste in a reference number and send the finished email out.