Word Routing Slip

D

Dale Levesque

I'm using the following code to send a word document to a recipient. It just
seems to sit in the outbox though. Any suggetstions?

Dale

If ai_Output = dyEmail Then
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Custom Pricing Quote " & lblQuote.Caption
.AddRecipient gas_Emails(1, gi_Email_ID)
.Delivery = wdAllAtOnce
.Message = "Please see attached."
End With
ActiveDocument.Route
Else
.ActiveDocument.PrintOut Background:=False
End If
 
Top