CMS_MakeEnvData[2]

Create an encrypted CMS enveloped-data object for one or more recipients using their X.509 certificates.

VB6/VBA

Debug.Print "Testing CMS_MakeEnvData ..."
' This should return 2 (indicating two successful recipients)
nRet = CMS_MakeEnvData("cms2bobandcarl.p7m", "excontent.txt", _
    "BobRSASignByCarl.cer;CarlRSASelf.cer", "", 0, 0)
Debug.Print "CMS_MakeEnvData returns " & nRet

Output

Testing CMS_MakeEnvData ...
CMS_MakeEnvData returns 2

VB.NET

Console.WriteLine("Testing CMS_MakeEnvData ...")
Dim nRet As Integer
' This should return 2 (indicating two successful recipients)
nRet = Cms.MakeEnvData("cms2bobandcarl.p7m", "excontent.txt", _
    "BobRSASignByCarl.cer;CarlRSASelf.cer", 0)
Console.WriteLine("CMS_MakeEnvData returns " & nRet)

[Contents]