Use Microsoft Word to edit e-mail messages (1 Viewer)

[Dina01]

I create a little template in word, which has pop up forms and then the last form you have the choice to send the document automatically to a specific recipient by outlook, but the problem is that when the program opens outlook, by default everyone has the "Use Microsoft Word to edit e-mail messages" check.

I was able to find this on the microsoft website...
**********************************************
http://support.microsoft.com/default.aspx?scid=KB;en-us;q237338

When you are using Microsoft Word to edit e-mail messages (in Microsoft Outlook 2000, on the Tools menu, click Options and then click the Mail Format tab) and you try to automate Word from another program, you may encounter problems processing some Word commands. For example, you may receive Automation errors such as "This method or property is not available" or other errors.

This article describes how to check whether WordMail is running when using Automation to automate Word from another program.
*************************************************

This is the code I have in my function to send the document in Outllook.


Public Function SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.mailitem
Dim objOutlookRecip As Outlook.recipient
Dim objOutlookAttach As Outlook.attachment

'Create the outlook session.
Set objOutlook = CreateObject("Outlook.Application")
'Create the message
Set objOutlookMsg = objOutlook.createItem(olMailItem)
With objOutlookMsg
'Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("mtlserrurerie")
objOutlookRecip.Type = olTO
'Set the subject, Body,and Importance of the message
.Subject = "Demande de clé"
.body = ""
.importance = olimportancehigh 'High Importance
'Add attachment to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
'Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
'Should we displaythe message before sending?
If DisplayMsg Then
.Display
Else
.Save
.send
End If
End With
Set objOutlook = Nothing

End Function
************************


I was wondering if I can code the form to remove the check mark from the Option in Outllook.

I am using OfficeXP