Visual FoxPro

Transition from Email.CreateDsn to Email.ToDsn

Provides instructions for replacing deprecated CreateDsn method calls with ToDsn. Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL lcExplanation
LOCAL lcStatusFieldsXml
LOCAL lnHeaderOnly
LOCAL loEmailObj
LOCAL loDsnEmail

lnSuccess = 0

loEmail = CreateObject('Chilkat.Email')

* ...
* ...

lcExplanation = "..."
lcStatusFieldsXml = "..."
lnHeaderOnly = 0

* ------------------------------------------------------------------------
* The CreateDsn method is deprecated:

loEmailObj = loEmail.CreateDsn(lcExplanation,lcStatusFieldsXml,lnHeaderOnly)
IF (loEmail.LastMethodSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* ...
* ...

RELEASE loEmailObj

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

loDsnEmail = CreateObject('Chilkat.Email')
lnSuccess = loEmail.ToDsn(lcExplanation,lcStatusFieldsXml,lnHeaderOnly,loDsnEmail)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loDsnEmail
    CANCEL
ENDIF

RELEASE loEmail
RELEASE loDsnEmail