(Visual Basic 6.0) Transition from Email.GetSignedByCertChain to Email.LastSignerCert

Provides instructions for replacing deprecated GetSignedByCertChain method calls with LastSignerCert.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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
Dim success As Long
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