I have found how to put it in the 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 :
Code:
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
Bookmarks