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



Re: Automatically send attachment in email with a submit command button in word

duck thing


What errors are you seeing







Re: Automatically send attachment in email with a submit command button in word

Desperately need help

Its not coming up with any errors its just not working at all. im not even getting the email up.




Re: Automatically send attachment in email with a submit command button in word

ADG

Hi

Did you remeber to send the mail item in your code