Отправка вложения из универсального приложения со следующим кодом не работает, почему?

        Dim emailMessage As New EmailMessage()
        emailMessage.[To].Add(New EmailRecipient("[email protected]"))
        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