Word Submit button

Question

I am trying to create a form with a submit button.  My customer does not have outlook and and the way I have the submit button macros set up it makes them have to have outlook.  I think they have gmail.  here is my code:

Private Sub CommandButton1_Click()

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 = "Insert Subject Here"

    .Body = "Please fill out Service Order"

    .To = "******@outlook.com"

    .Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow

    .Attachments.Add Doc.FullName

    .Send

End With

Application.ScreenUpdating = True

Set Doc = Nothing

Set OL = Nothing

Set EmailItem = Nothing

End Sub

Answer 1

You cannot do what you would like to do.  Instead, you will just have to request that the user complete and return the form to you.