Problems with Command Button with VBA code

[Laurie]

Hello,

I created a form in Word. It is saved as a read-only template and it's
protected so that users can only change the form fields.

There is a command button called "E-Mail Document" that users can click and
the document is e-mailed to a specific address. The form is meant to be used
over and over again.

I've tested the form repeatedly and the control button always works.
However, my users are reporting that it is not working. When I go into the
forms they are sending back, the VBA code is gone. How is this happening??

My code is below.

Thank you!
---------------------------------------------------------------------------------------------

Private Sub EMailDocument_Click()

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next

If Len(ActiveDocument.Path) = 0 Then
MsgBox "Document needs to be saved first"
Exit Sub
End If

Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
.To = "REDACTED"
.Subject = "Site Visit Document"
'Add the document as an attachment, you can use the .displayname property
'to set the description that's used in the message
.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
DisplayName:="Document as attachment"
.Send
End With

If bStarted Then
oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub

 

[Doug Robbins - Word MVP]

Are you sure that the code is in the template that you are distributing to
the users and not somewhere else on your machine. Also, are they saving the
template in a trusted location?

See the article "Distributing macros to other users" at:

http://www.word.mvps.org/FAQs/MacrosVBA/DistributeMacros.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[old man]

Hi,

Are you sending a Word Document with code attached? Are you sure the users
are getting the code which is stored in the document If you email the Word
Document many email servers will strip away all VBA code.

Old Man

 

[Laurie]

Thank you both for your replies. I am e-mailing the templates to folks to
save to their computers. I will try asking them to access the document on the
network.

Thanks!

 

[quietlee2021]

Just a quick thought - you might want to make sure you are not adding the
code module to your Normal.dot document - that you are adding the code module
to the document that you are sending out.

It it's in your Normal.dot file, it'll only work for you. That was probably
the same point Old Man was also trying to make...