SET msg1=##class(%Net.MIMEPart).%New()
  	set msg1.ContentType="application/pkcs7-signature; name=smime.p7s; smime-type=signed-data"
  	do msg1.SetHeader("Content-Type", "application/pkcs7-signature; name=smime.p7s; smime-type=signed-data")
  	do msg1.SetHeader("Content-Disposition", "attachment; filename=""smime.p7s""")
  	set msg1.ContentTransferEncoding="base64"
  	SET msg1.Body=##class(%GlobalBinaryStream).%New()
  	DO msg1.Body.CopyFrom(stream)

  	SET msg1=##class(%Net.MIMEPart).%New()
        set msg1.ContentType="application/pkcs7-mime; name=smime.p7m; smime-type=enveloped-data"
  	do msg1.SetHeader("Content-Type", "application/pkcs7-mime; name=smime.p7m; smime-type=enveloped-data")
  	do msg1.SetHeader("Content-Disposition", "attachment; filename=""smime.p7m""")
  	do msg1.SetHeader("Content-Description", "S/MIME Cryptographic Signature")
  	set msg1.ContentTransferEncoding="base64"
  	SET msg1.Body=##class(%GlobalBinaryStream).%New()
  	DO msg1.Body.CopyFrom(stream)