#Region "cmdMailPost"
    Public Shared Function CreateBodyContent(ByVal sTxt As String) As Byte()
        Dim content As ContentInfo
        Dim cms As EnvelopedCms
        Dim collection As CmsRecipientCollection
        Dim cert As X509Certificate2
 
        Try
            content = New ContentInfo(ASCIIEncoding.ASCII.GetBytes(sTxt))
 
            cms = New EnvelopedCms(content, New AlgorithmIdentifier(New Oid( _
              "2.16.840.1.101.3.4.1.2")))
            collection = New CmsRecipientCollection()
 
            collection.Add(New CmsRecipient(CertInfo.ReadCertificate( _
              Application.StartupPath & "\My.cer")))
 
            cms.Encrypt(collection)
            Return cms.Encode()
        Catch
            MsgBox(Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, _
              sAppname)
        End Try
    End Function