Visual Basic 6.0 Requires Chilkat v11.0.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