Desperately need help
I have a huge problem if anyone out there is able to help; I have tried to create a submit command button to email off a document as soon as the user hits submit; however i am new to this and my macro does not seem to be working. Does anyone know where i have gone wrong and if possible can you please help rectify the problem. Thank you
Sub CommandButton1_Click()
Dim Email As Object
Dim Attachment As String
Set Email = CreateObject("Outlook.Application") 'Assign Outlook application to variable
With Email.CreateItem(olMailItem)
.to = "<>" 'email address
.Subject = "Incident Report" 'Something for the subject Field
.body = ActiveDocument
.Display = Attachment
Options.SendMailAttach = True
End With