I have found how to put int he Hyperlink of the file. Now I need to
know how to add a routing slip to this email. Any help will be
greatly appreciated. Code Below.

Thanks,
Jay

Sub CreateEmail()

Dim rcp, hlink, msg, subj
rcp = "
subj = "Please review this file"
msg = "Please review file located at: " & _
"%0A%0A" & "<file://" & ThisWorkbook.FullName & ""
hlink = "mailto:" & rcp & "?"
hlink = hlink & "subject=" & subj & "&"
hlink = hlink & "body=" & msg
ActiveWorkbook.FollowHyperlink (hlink)

End Sub