(Tcl) Transition from Imap.FetchBundleAsMime to Imap.FetchSingleBd
Provides instructions for replacing deprecated FetchBundleAsMime method calls with FetchSingleBd. Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll
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
|
