☰

“发送至：邮件收件人”上下文菜单不起作用

tag-icon • tag-icon file-association windows-8
“发送至：邮件收件人”上下文菜单不起作用

我已经设置了来自 Microsoft 的邮件应用（WinRT）作为邮件的默认应用程序默认程序。但是，当我右键单击某个文件并选择Send to>时Mail recipient，出现一个消息框，提示：
There is no email program associated to perform the requested action. Please install an email program or, if one is already installed, create an association in the Default Programs control panel.

有没有办法让这个操作与邮件一起运行？

答案1

使用Send to ... Mail Recipient关联MAPI\Send Mail，或者发送邮件命令。

在此处输入图片描述

Microsoft Mail 应用程序仅包含协议的关联MAILTO，因此您无法将其设置为发送邮件命令的收件人。

在此处输入图片描述

答案2

如果您和我一样，在尝试将照片从桌面资源管理器发送到 Windows 8.1/Office 365 中的 Outlook 收件人时遇到此问题。请使用此链接，但一定要使用“Joseph 的脚本”，这是一个简单的修复方法。希望这对某些人有帮助。

感谢 Slipstick Systems 让我免去再花一天时间在论坛上寻找答案的时间。

http://www.slipstick.com/outlook/create-a-custom-send-to-shortcut/

约瑟夫的方法使用 Windows 脚本，允许您选择多个文件并将其附加到新消息，同时保留您的签名和文具设置。

要使用，请打开记事本，然后复制此代码并将其粘贴到记事本中。将其保存为 SendToMailRecipient.vbs。您可以将其保存在 SendTo 文件夹中，也可以将其保存在其他位置并为其创建快捷方式以放置在 SendTo 文件夹中。

Option Explicit
Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem
Dim a, oAttachments, subjectStr, olFormatHTML
olMailItem = 0
olFormatHTML = 2
Set objArgs = WScript.Arguments 'gets paths of selected files
Set OutApp = CreateObject("Outlook.Application") 'opens Outlook
Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email
For a = 0 to objArgs.Count - 1
Set oAttachments = oEmailItem.Attachments.Add(objArgs(a))
subjectStr = subjectStr & Right(objArgs(a),Len(objArgs(a))-(InStrRev(objArgs(a),"\"))) & ", " 'recreates the default Subject e.g. Emailing: file1.doc, file2.xls
Next
If subjectStr = "" then subjectStr = "No Subject "
oEmailItem.Subject = "Emailing: " & Left(subjectStr, (Len(subjectStr)-2))
oEmailItem.BodyFormat = olFormatHTML
oEmailItem.Display

顺便说一下，按下 Windows 键 + R 并输入“shell：sendto”直接带您到您需要保存文件的文件夹，请确保使用正确的文件扩展名（不是 txt），所有内容都在上面的链接中的说明中。

答案3

疯狂的想法：我想知道这是否是 Metro 应用无法从桌面使用的情况。

如果是这种情况，您将需要另一个邮件客户端。

答案4

您是否已将其设置为默认程序？

  • 单击开始->默认程序。
  • 然后选择设置程序访问和计算机默认值。
  • 然后单击自定义并选择您的默认电子邮件。

相关内容