Lianja

Transition from Email.FindIssuer to Cert.GetIssuer

Provides instructions for replacing deprecated FindIssuer method calls with Cert.GetIssuer. Lianja

llSuccess = .F.

loEmail = createobject("CkEmail")
loCert = createobject("CkCert")

// ...
// ...

// ------------------------------------------------------------------------
// The FindIssuer method is deprecated:

loCertObj = loEmail.FindIssuer(loCert)
if (loEmail.LastMethodSuccess = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    release loCert
    return
endif

// ...
// ...

release loCertObj

// ------------------------------------------------------------------------
// Do the equivalent using Cert.GetIssuer.
// Your application creates a new, empty Cert object which is passed 
// in the last argument and filled upon success.

loIssuerCert = createobject("CkCert")
llSuccess = loCert.GetIssuer(loIssuerCert)
if (llSuccess = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    release loCert
    release loIssuerCert
    return
endif



release loEmail
release loCert
release loIssuerCert