Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Send Mail

Status
Not open for further replies.

Mattprd

IS-IT--Management
Mar 12, 2002
11
0
0
GB
Having trouble sending a workbook by email, the only way that I can insert a message into the email is by using the code below. Unfortunately, under the message is a routing message that I don't want. Is there any way that I can send a mail and include a message without any other system messages being included. Hope someone can help.

Thanks

Matt


Sub sendmail()

ActiveWorkbook.HasRoutingSlip = True

With ActiveWorkbook.RoutingSlip

.Recipients = "test@test.co.uk"
.Subject = "Test"
.Message = "This is a Test!"

End With
ActiveWorkbook.Route
End Sub
 
Important factor - I'm using groupwise
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top