email-attachments - 通过 UWP EmailManager 发送电子邮件附件不起作用

Question

使用以下代码从通用应用程序发送附件不起作用，为什么？

        Dim emailMessage As New EmailMessage()
        emailMessage.[To].Add(New EmailRecipient("a@b.com"))
        emailMessage.Subject = "Test"
        emailMessage.Body = "Hello World"

        Dim localAppFolder = Windows.Storage.ApplicationData.Current.LocalFolder
        Dim file = Await localAppFolder.CreateFileAsync("SomeFile.txt", Windows.Storage.CreationCollisionOption.ReplaceExisting)
        Await Windows.Storage.FileIO.WriteTextAsync(file, "aaaa")
        Dim fileRef = RandomAccessStreamReference.CreateFromFile(file)
        emailMessage.Attachments.Add(New EmailAttachment(file.Name, fileRef))
        Await EmailManager.ShowComposeNewEmailAsync(emailMessage)

收件人、主题和正文在 Outlook 中显示正常，但附件丢失:Outlook screenshot

Answer 1

我相信这是因为 Outlook 是一个桌面应用程序。据我了解， EmailManager.ShowComposeNewEmailAsync 使用 mailto: 协议(protocol)来启动邮件客户端应用程序并使用 share 来提供电子邮件内容。

如果您在选择默认应用程序对话框启动时选择邮件存储应用程序，您将能够看到如下附件:

如果您之前选择桌面 Outlook 应用程序作为 mailto 协议(protocol)的默认应用程序，则必须在控制面板中更改 mailto: 协议(protocol)关联的默认应用程序。

之前，ShowComposeNewEmailAsync仅适用于 Windows Phone 运行时应用程序。而且文档中它不是最新的，因为它不包括 win 10 支持。

在 Windows 10 移动版上，它运行良好，没有任何问题。但在 Windows 桌面上，您必须选择一个商店应用程序。