Sendmessage With Shortcut

I'm looking for a way to send an email from access that contains either a shortcut to this database(Product Change Database-CURRENT.mdb) or a hyperlink to it. I've tried using this sendmessage code, but it seems to only work for actual files and not shortcuts.

If I replace "C:TEMPREADME.TXT" with "C:TEMPShortcut to Product Change Database-CURRENT.mdb" it gives me a message "The system cannot find the file specified."

It would also be nice if it showed email to the sender(like in Sendobject) and let the user edit the email.... currently it immediately sends it.
Maybe there is another way to do this, any help would be great.



Code:Private Sub cmdEmailPCR_Click() Dim objOutlook As Outlook.ApplicationDim objOutlookMsg As Outlook.MailItemDim objOutlookRecip As Outlook.RecipientDim objOutlookAttach As Outlook.Attachment ' Create the Outlook session.Set objOutlook = CreateObject("Outlook.Application") ' Create the message.Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' Add the To recipient(s) to the message. Set objOutlookRecip = .Recipients.Add(johndoe@test.com) objOutlookRecip.Type = olTo ' Set the Subject, Body, and Importance of the message. .Subject = "New PCR" .Body = "Please review this new product change request. Thank you." & vbCrLf & vbCrLf ' Add attachments to the message. If Not IsMissing(AttachmentPath) Then Set objOutlookAttach = .Attachments.Add("C:TEMPREADME.TXT") End If ' Resolve each Recipient's name. For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve If Not objOutlookRecip.Resolve Then objOutlookMsg.Display End If Next .Send End WithSet objOutlookMsg = NothingSet objOutlook = Nothing End Sub