DataFlex

Transition from Email.GetLinkedDomains to Email.LinkedDomains

Provides instructions for replacing deprecated GetLinkedDomains method calls with LinkedDomains. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    Variant vSa
    Handle hoSa
    Variant vSt
    Handle hoSt
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    // ...
    // ...

    // ------------------------------------------------------------------------
    // The GetLinkedDomains method is deprecated:

    Get ComGetLinkedDomains Of hoEmail To vSa
    If (IsComObject(vSa)) Begin
        Get Create (RefClass(cComCkStringArray)) To hoSa
        Set pvComObject Of hoSa To vSa
    End
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Send Destroy of hoSa

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

    Get Create (RefClass(cComChilkatStringTable)) To hoSt
    If (Not(IsComObjectCreated(hoSt))) Begin
        Send CreateComObject of hoSt
    End
    Get pvComObject of hoSt to vSt
    Get ComLinkedDomains Of hoEmail vSt To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure