VBScript

Get a To Recipient's Address Only

Demonstrates the Chilkat Email.GetToAddr method, which returns only the address part (not the friendly-name part) of the Nth To recipient. The index is zero-based. This example adds two To recipients and prints each one's address.

Background: When you need the machine-usable part of a recipient — the actual user@domain — GetToAddr returns it without the surrounding display name. This is what you want for validating addresses, removing duplicates, or checking against an allow/deny list, since the display name is free-form text and unreliable for identity.

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 GetToAddr method, which returns only the address part (not the friendly
'  name) of the Nth To recipient.  The index is zero-based.

set email = CreateObject("Chilkat.Email")
email.Subject = "GetToAddr 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 & " address: " & email.GetToAddr(i))
Next

outFile.Close