Готовый код #include %occStatus
 #include %msql
 
  #dim m,mAlt,mTiff,mPlain,mHtml As %Net.MIMEPart
  #dim ex As %Exception.AbstractException
  
  try{

    d $zf(-1,"openssl asn1parse -inform der -in C:\Temp\smime.p7m -strparse 52 -noout -out C:\Temp\mime.txt")
    
    s t=##class(%Net.MIMEReader).%New()
    $$$ThrowOnError(t.OpenFile("C:\Temp\mime.txt"))
    $$$ThrowOnError(t.ReadMIMEMessage(.m))
    
    s mAlt=m.Parts.GetAt(1)
    s mTiff=m.Parts.GetAt(2)

    s mPlain=mAlt.Parts.GetAt(1)
    s mHtml=mAlt.Parts.GetAt(2)

    s file=##class(%Stream.FileBinary).%New()
    s file.Filename="C:\Temp\plain.txt"
    d file.CopyFromAndSave(mPlain.Body)
    s file.Filename="C:\Temp\html.html"
    d file.CopyFromAndSave(mHtml.Body)
    s file.Filename="C:\Temp\tiff.tiff"
    d file.CopyFromAndSave(mTiff.Body)
    
  }catch(ex){
    w "Error ",ex.DisplayString(),!
  }