CMS_MakeEnvDataFromString

Create an encrypted CMS enveloped-data object using data directly from a string instead of a file.

VB6/VBA

Debug.Print "Testing CMS_MakeEnvDataFromString ..."
' This should return 1 (indicating one successful recipient)
nRet = CMS_MakeEnvDataFromString("cmsalice2bob1.p7m", _
    "This is some sample content.", "BobRSASignByCarl.cer", "", 0, 0)
Debug.Print "CMS_MakeEnvDataFromString returns " & nRet

Output

Testing CMS_MakeEnvDataFromString ...
CMS_MakeEnvDataFromString returns 1

VB.NET

Console.WriteLine("Testing CMS_MakeEnvDataFromString ...")
Dim nRet As Integer
' This should return 1 (indicating one successful recipient)
nRet = Cms.MakeEnvDataFromString("cmsalice2bob1.p7m", _
    "This is some sample content.", "BobRSASignByCarl.cer", 0)
Console.WriteLine("CMS_MakeEnvDataFromString returns " & nRet)

[Contents]