Visual Basic 6.0

Transition from Email.GetSignedByCertChain to Email.LastSignerCert

Provides instructions for replacing deprecated GetSignedByCertChain method calls with LastSignerCert. Visual Basic 6.0

Dim success As Long
success = 0

Dim email As New ChilkatEmail

' ...
' ...

' ------------------------------------------------------------------------
' The GetSignedByCertChain method is deprecated:

Dim certChainObj As ChilkatCertChain
Set certChainObj = email.GetSignedByCertChain()
If (email.LastMethodSuccess = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' ...
' ...

' ------------------------------------------------------------------------
' Do the equivalent using LastSignerCert to get the signing certificate,
' then build the cert chain from the signing certificate object.

Dim signerCert As New ChilkatCert
success = email.LastSignerCert(0,signerCert)
If (success = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' Get the certificate chain from the signer certificate.
Dim certChain As New ChilkatCertChain
success = signerCert.BuildCertChain(certChain)
If (success = 0) Then
    Debug.Print signerCert.LastErrorText
    Exit Sub
End If