Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL oEmail
LOCAL n
LOCAL i

//  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.

oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "Hello FIRST_NAME"
oEmail:Body := "Dear FIRST_NAME, welcome to CITY."

oEmail:SetReplacePattern("FIRST_NAME", "John")
oEmail:SetReplacePattern("CITY", "Denver")

n := oEmail:NumReplacePatterns

FOR i := 0 TO n - 1
    ? oEmail:GetReplacePattern(i) + " -> " + oEmail:GetReplaceString(i)
NEXT

oEmail:destroy()