Lianja

Transition from MailMan.GetSmtpSslServerCert to MailMan.GetServerCert

Provides instructions for replacing deprecated GetSmtpSslServerCert method calls with GetServerCert. Lianja

llSuccess = .F.

loMailman = createobject("CkMailMan")

// ...
// ...

// ------------------------------------------------------------------------
// The GetSmtpSslServerCert method is deprecated:

loCertObj = loMailman.GetSmtpSslServerCert()
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
endif

// ...
// ...

release loCertObj

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

// We want the SMTP email server certificate..
llUseSmtp = .T.

loCertOut = createobject("CkCert")
llSuccess = loMailman.GetServerCert(llUseSmtp,loCertOut)
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    release loCertOut
    return
endif



release loMailman
release loCertOut