获取 S/MIME 签名邮件的附件

我正在尝试通过 microsoft-graph-api 获取签名邮件的附件。

I use a GET请求在这个网址上：

https://graph.microsoft.com/v1.0/me/messages/AAMkAG.../attachments

这应该返回指定邮件的对象列表。每个对象都包含元数据，例如“name" and "内容类型一个附件的“以及属性”内容字节“其中包含附件的内容作为base64-string.

如果邮件没有附件，则此列表为空。

到目前为止，对于每封未通过以下方式签名的邮件，这都可以正常工作S/MIME.
但是，如果邮件签名为S/MIME，我在响应列表中得到奇怪的结果。

无论邮件有多少个附件，响应列表都只包含一个元素。该元素的名称为“smime.p7m“和内容类型”多部分/签名" 而 contentBytes 属性几乎包含邮件的整个 MIME，而不是单个附件的内容。

我无法想象这是理想的行为，所以我问：

这是 microsoft-graph-api 中的错误还是我在请求中做错了什么，如果是这样，我该如何解决这个问题？

这可能与您的问题有点无关，但我花了 3 天尝试从已签名但未加密的电子邮件。希望这可以帮助处于类似情况的人。以下是在 vb.net 中对我有用的步骤：

1. Install Mimekit Nuget 包 https://www.nuget.org/packages/MimeKit/
2. 通过查看内容类型和附件名称来正确识别 S/Mime 签名的电子邮件（S/Mime 签名的电子邮件始终附加有 smime.p7m 文件）

If String.Equals(origMessage.Attachments.First.ContentType, "multipart/signed", 
StringComparison.OrdinalIgnoreCase) AndAlso
String.Equals(origMessage.Attachments.First.Name, "smime.p7m", StringComparison.OrdinalIgnoreCase) Then

3. 将 smime 文件加载为 EWS FileAttachment 并从中创建新的内存流。然后创建该流的 MimeKit.MimeEntity。现在你正在使用 MimeKit 库，它非常适合这个东西

Dim smimeFile As FileAttachment = origMessage.Attachments.First
smimeFile.Load()
Dim memoryStreamSigned As MemoryStream = New MemoryStream(smimeFile.Content)
Dim entity = MimeEntity.Load(memoryStreamSigned)

4. 迭代您的 MimeEntity 实例以获取所有附件

If TypeOf entity Is Cryptography.MultipartSigned Then
    Dim mltipart As Multipart = entity
    Dim attachments As MimeEntity = mltipart(0)
    If TypeOf attachments Is Multipart Then
        Dim mltipartAttachments As Multipart = attachments
        For i As Integer = 0 To mltipartAttachments.Count - 1
            If mltipartAttachments(i).IsAttachment Then
                **'BOOM, now you're looping your attachment files one by one**
                **'Call your decode function to read your attachment as array of Bytes**
            End If
        Next
    End If
End If

5. 将附件作为字节数组读取。在上一步的 for 中执行此操作。

'Read and decode content stream
Dim fileStrm = New MemoryStream()
mltipartAttachments(i).Content.DecodeTo(fileStrm)

Dim decodedBytes(0 To fileStrm.Length - 1) As Byte
fileStrm.Position = 0  'This is important because .DecodeTo set the position to the end!!
fileStrm.Read(decodedBytes, 0, Convert.ToInt32(fileStrm.Length))

现在您的附件文件已解码为字节数组，您可以保存它或执行任何您想要的操作:)希望这有帮助！