Tcl

Get a Mail-Merge Replacement String by Index

Demonstrates the Chilkat Email.GetReplaceString method, which returns the replacement string for the Nth previously-defined pattern/replacement pair (a mail-merge feature). The index is zero-based and corresponds to the same index used by GetReplacePattern. This example defines two pairs and prints each pattern with its replacement.

Background: Pairing GetReplacePattern (the token to find) with GetReplaceString (the text to substitute) at the same index lets you walk the full mail-merge table. Retrieving a replacement by its position is handy when enumerating all substitutions; to look one up by its pattern instead, use GetReplaceString2.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

#  Demonstrates the GetReplaceString method, which returns the replacement string for the
#  Nth previously-defined pattern/replacement pair (a mail-merge feature).  The index is
#  zero-based and corresponds to the same index used by GetReplacePattern.

set email [new_CkEmail]

CkEmail_put_Subject $email "Hello FIRST_NAME"
CkEmail_put_Body $email "Dear FIRST_NAME, welcome to CITY."

CkEmail_SetReplacePattern $email "FIRST_NAME" "John"
CkEmail_SetReplacePattern $email "CITY" "Denver"

set n [CkEmail_get_NumReplacePatterns $email]

for {set i 0} {$i <= [expr $n - 1]} {incr i} {
    puts [CkEmail_getReplacePattern $email $i] -> [CkEmail_getReplaceString $email $i]
}

delete_CkEmail $email