I have created my submit button, and entered the following code, however the outlook is not opening, so I cant send my form

Private Sub SubmitButton1_Click()
Label1.Visible = True
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.Save

With EmailItem
.Subject = "Complaint Form submitted"
.Body = "Please find attached complaint form"
.To = "dog.info@pncc.govt.nz"
.Importance = olImportanceNormal
.Attachments.Add Doc.FullName
.Send
End With

Application.ScreenUpdating = True



Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub

The code works on my machine so let's step through possible problems.
1. CreateObject 'could' be a problem if Outlook was already open. So you might tell vba to ignore errors and try getobject first and if no object is created, then use createobject
2. You can add DoEvents after opening the app to give it time to load before proceeding with the next steps
3. If you are using late binding to create the application then don't use variables that are only available when a reference is set to that application. olMailItem and olImportanceNormal should be replaced by their integer value.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia