Use the following macro and assign it to the button.

Sub Test()
Dim x As Outlook.Application
Dim y As Outlook.MailItem
Set x = CreateObject("Outlook.Application")
Set y = oLapp.CreateItem(0)
With y
.Subject = ""
.CC = ""
.To =
.Body =""
.Attachments.Add '(path to the attachment,either hard coded or
variable)
.Display
End With
Set x = Nothing
Set y = Nothing
End Sub

You have to enable the Microsoft Outlook x(is the version) Library
from Tools-References in your VB Editor to be able to use this.