Tcl

Transition from Imap.FetchBundleAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchBundleAsMime method calls with FetchSingleBd. Tcl

load ./chilkat.dll

set success 0

set imap [new_CkImap]

# ...
# ...

set mset [new_CkMessageSet]

set success [CkImap_QueryMbx $imap "FROM joe@example.com" 1 $mset]
# ...
# ...

# ------------------------------------------------------------------------
# The FetchBundleAsMime method is deprecated:

# saObj is a CkStringArray
set saObj [CkImap_FetchBundleAsMime $imap $mset]
if {[CkImap_get_LastMethodSuccess $imap] == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkMessageSet $mset
    exit
}

# ...
# ...

delete_CkStringArray $saObj

# ------------------------------------------------------------------------
# Do the equivalent using FetchSingleBd.

CkImap_put_AutoDownloadAttachments $imap 1

set bdMime [new_CkBinData]

set bUid [CkMessageSet_get_HasUids $mset]
set numEmails [CkMessageSet_get_Count $mset]
set i 0
while {$i < $numEmails} {
    set success [CkImap_FetchSingleBd $imap [CkMessageSet_GetId $mset $i] $bUid $bdMime]
    # ...
    # ...

    set i [expr $i + 1]
}

delete_CkImap $imap
delete_CkMessageSet $mset
delete_CkBinData $bdMime