VBScript

Get a To Recipient's Full Address

Demonstrates the Chilkat Email.GetTo method, which returns a To recipient's full email address (display name and address together) at a given zero-based index. This example adds two To recipients and enumerates them.

Background: The To list holds a message's primary recipients. GetTo returns the combined Display Name <address> form; use GetToAddr or GetToName for just the address or name. Iterate from 0 to NumTo - 1 to read the whole recipient 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 GetTo method, which returns a To recipient's full email address (name
'  and address) at the given zero-based index.

set email = CreateObject("Chilkat.Email")
email.Subject = "GetTo example"

success = email.AddTo("Joe Smith","joe@example.com")
success = email.AddTo("Jane Doe","jane@example.com")

n = email.NumTo

For i = 0 To n - 1
    outFile.WriteLine("To " & i & ": " & email.GetTo(i))
Next

outFile.Close