Framework EDI Reference. Methods and Properties
mailMessage. PrepareSignedData

Signs the message to a Cryptographic Message Syntax (CMS) SignedData format.

Syntax:

• <lRetVal> = object.PrepareSignedData()

Returns:

Returns 1 if the operation is successful; otherwise returns 0 if the operation fails.

Remarks:

Signs the entire message -- header and body -- to a SignedData format.  The resulting signed data replaces the body of the message, and the following new set of headers replace the old set:

• MIME-Version: 1.0
• Date: <Current Date>
• Content-Type: application/pkcs7-mime; smime-type=signed-data; name=smime.p7m
• Content-Disposition: attachment; filename=smime.p7m

For alternate security settings, apply different parameters on the ediSecurity object that can be accessed using the GetSecurity method.

Example:

Dim oEdiDoc As Fredi.ediDocument
Dim oMailDocument As Fredi.mailDocument
Dim oMessage As Fredi.mailMessage
Dim oSecurity As Fredi.ediSecurity
Dim oSecurities As Fredi.ediSecurities

' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument

' Get securities.
Set oSecurities = oEdiDoc.GetSecurities

' Set the default certificate store
oSecurities.DefaultCertSystemStoreName = ksCertStoreName ' Case sensitive

' Set the default certificate store location
oSecurities.DefaultCertSystemStoreLocation = ksCertStoreLocation

' Get internet mail document object
Set oMailDocument = oEdiDoc.GetMailDocument

' Disable auto-processing so that message can be secure as is.
oMailDocument.Option(MailDocOpt_Auto) = 0

' Load the mail document
oMailDocument.Load App.Path & "\SampleMail.TXT"

' Get the message.
Set oMessage = oMailDocument.GetMessage

' Get the security, and specify certificate used to encrypt.
Set oSecurity = oMessage.GetSecurity
oSecurity.CertificateSignerName = ksCertSubjectName

' Encrypt message.
oMessage.PrepareSignedData

oMessage.Save App.Path & "\SignedDataOutput.TXT"

MsgBox "Done"

Sample

M_PrepareSignedData.zip

 

See Also.

RFC 2630 - Cryptographic Message Syntax