Problem with submitting a word form via email.

gmayor · #3 02-13-2019, 09:51 PM

If you are using late binding to Outlook you need to change two lines

Code:

Set EmailItem = OL.CreateItem(0)

and

Code:

.Importance = 1    'Or olImportanceHigh (2) Or olImportanceLow (0)

Word doesn't recognize Outlook specific commands and you must use the numeric equivalents.
If you want to keep the signature or edit the message body directly, you will need to use the following - note the comment at the top

Code:

Private Sub CommandButton1_Click()
'Use the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'To open Outlook correctly or this won't work
Dim OL As Object
Dim EmailItem As Object
Dim olApp As Object
Dim olInsp As Object
Dim Doc As Document
Dim wdDoc As Object
Dim oRng As Object

    Application.ScreenUpdating = False
    Set OL = OutlookApp()
    Set EmailItem = OL.CreateItem(0)
    Set Doc = ActiveDocument

    With EmailItem
        .Subject = "Hello"
        .to = "acas-media@media.co.uk"
        .Importance = 1    'Or olImportanceHigh (2) Or olImportanceLow (0)
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        oRng.Collapse 1
        oRng.Text = "Insert message here or just send"
        .Attachments.Add Doc.FullName
        .Display
    End With

    Application.ScreenUpdating = True

    Set Doc = Nothing
    Set OL = Nothing
    Set EmailItem = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Set olInsp = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Pulling info from an email into a form on Word	jlamx	Word	1	07-07-2017 08:24 PM
Adding email button to Word form	leilers	Word	5	01-09-2012 03:21 PM
Submitting HTML form data in Outlook 2010	ramen	Outlook	0	12-15-2011 02:29 PM
Word Form Problem	firewatch	Word	1	11-08-2011 02:23 AM
MS Word form - email button	floydwood	Word VBA	0	05-10-2009 04:11 PM