Send link to File via Email

I am looking for a tool wichs give me the option to send a link to a file when right clicking on it. Is there anything like the send to... option in the context menu?

My users keep sending each other files via Exchange, producing large mailboxes. I need a simple way for them to send links to the files.
Who is Participating?
Grizzly072000Connect With a Mentor Commented:
Update: Pressing CTRL+SHIFT while using SendTo will send a link to and not the file.
Chris JamesCommented:
Would it be possible to send a shortcut to the file instead of the actual file?
You could install Send To Toys 2.5 (Free at
It allows you to define a folder to send a file or a shortcut to the file. The shortcut feature is not as direct as the file, though...
The destination folder could be a share on the network. Even if the users send files, it will free your mailboxes.
Free tool for managing users' photos in Office 365

Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!

Update: The above trick works with Mail Recipient, too. However, you'll have to make sure the link is accessible to the recipient....
Shift-3Connect With a Mentor Commented:
Paste the script below into a text file with a .vbs extension.  Create a shortcut to it named Email Link To File and place the shortcut in %userprofile%\SendTo.  This will allow the user to right-click any file or folder, go to Send To, and select Email Link To File.  Outlook will open a new email message containing a hyperlink to the file.  An advantage of this method is that it works even if .lnk attachments are blocked.

To mass-deploy it you could create a shortcut pointing to %userprofile%\scriptname.vbs and then use a logon script to copy the script file to %userprofile% and the shortcut to %userprofile%\SendTo.

Const olMailItem = 0
Const olFolderInbox = 6
If WScript.Arguments.Count = 0 Then
End If
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_Process Where Name = 'outlook.exe'")
If colItems.Count = 0 Then
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
End If
strFile = WScript.Arguments.Item(0)
Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(olMailItem)
objItem.HTMLBody = "<A HREF=" & Chr(34) & "file://" & strFile & Chr(34) & ">" & strFile & "</A>"

Open in new window

TRITEC-kuenAuthor Commented:
Great! I didn´t knew about the CTRL+Shift feature already implemented by MS. But with the script mass-deployed to the desktops every user can use this feature intuitively.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.