J
Jane
Hi,
I'm issuing a survey to my customers and would like to make it easy for them
to return it to me. I've created the form and want to create a macro and
assign it to the toolbar as a button they can press. Initially I recorded
the Macro, but entering my e-mail address in the send to field didn't work.
I found the following code somewhere, but it is crashing Word every time I
test it. I have zilch knowledge of VBA, and really just copied this code in.
Can any one pls suggest how to change it? Is there something wrong with it,
or with my Word in general? Where it says "filename" and "e-mail address" I
do have the correct info there.
Thanks,
Jane
-----------------------------
Sub ReturnSurvey()
'
' ReturnSurvey Macro
' Macro recorded 7/09/2006 by Jane
'
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "filename"
.AddRecipient "e-mail address"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub
I'm issuing a survey to my customers and would like to make it easy for them
to return it to me. I've created the form and want to create a macro and
assign it to the toolbar as a button they can press. Initially I recorded
the Macro, but entering my e-mail address in the send to field didn't work.
I found the following code somewhere, but it is crashing Word every time I
test it. I have zilch knowledge of VBA, and really just copied this code in.
Can any one pls suggest how to change it? Is there something wrong with it,
or with my Word in general? Where it says "filename" and "e-mail address" I
do have the correct info there.
Thanks,
Jane
-----------------------------
Sub ReturnSurvey()
'
' ReturnSurvey Macro
' Macro recorded 7/09/2006 by Jane
'
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "filename"
.AddRecipient "e-mail address"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub