Sample code for 30+ languages & platforms
Tcl Requires Chilkat v11.0.0+

Transition from MailMan.LoadXmlEmail to Email.SetFromXmlText

Provides instructions for replacing deprecated LoadXmlEmail method calls with Email.SetFromXmlText.

Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

set mailman [new_CkMailMan]

#  ...
#  ...

set xmlFilePath "c:/test/example.xml"

#  ------------------------------------------------------------------------
#  The LoadXmlEmail method is deprecated:

# emailObj is a CkEmail
set emailObj [CkMailMan_LoadXmlEmail $mailman $xmlFilePath]
if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

#  ...
#  ...

delete_CkEmail $emailObj

#  ------------------------------------------------------------------------
#  Do the equivalent using Email.SetFromXmlText.

set sb [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sb $xmlFilePath "utf-8"]
if {$success == 0} then {
    puts [CkStringBuilder_lastErrorText $sb]
    delete_CkMailMan $mailman
    delete_CkStringBuilder $sb
    exit
}

set email [new_CkEmail]

set success [CkEmail_SetFromXmlText $email [CkStringBuilder_getAsString $sb]]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkMailMan $mailman
    delete_CkStringBuilder $sb
    delete_CkEmail $email
    exit
}


delete_CkMailMan $mailman
delete_CkStringBuilder $sb
delete_CkEmail $email