VBScript

Get a Mail-Merge Replacement String by Pattern

Demonstrates the Chilkat Email.GetReplaceString2 method, which returns the replacement string for a previously-defined pattern/replacement pair, looked up by the pattern itself (a mail-merge feature). This example defines two pairs and looks up the replacement for one pattern by name.

Background: Where GetReplaceString fetches a replacement by its numeric position, GetReplaceString2 fetches it by the pattern — convenient when you already know the token (say FIRST_NAME) and just want its configured substitution without scanning the whole list.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

'  Demonstrates the GetReplaceString2 method, which returns the replacement string for a
'  previously-defined pattern/replacement pair, looked up by the pattern itself (a
'  mail-merge feature).

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

success = email.SetReplacePattern("FIRST_NAME","John")
success = email.SetReplacePattern("CITY","Denver")

'  Look up the replacement for a specific pattern.
repl = email.GetReplaceString2("FIRST_NAME")
outFile.WriteLine("FIRST_NAME -> " & repl)

outFile.Close