Inline Personalization Script Examples

A Simple Example

<%
For i = 1 To 100
	Body.WriteLine i & vbCrLf
Next
%>

Show all attributes of the User

<%
For i = 0 To User.PropertyCount - 1
	Body.WriteLine i & ":" & User.Properties(i)
Next
%>

Recipients of the domain "xyz.com" receive an included text from a file

<%
If InStr(1, User("Email"), "@xyz.com", vbTextCompare) <> 0 Then
	Body.LoadFromFile "d:\mails\abc.txt" ' path must be changed
Else
%>
	Standard Text or HTML
<%
End If
%>

Those interested in the product "xyz" receive a file attachment

<%
If User("InterestXYZ") = True Then
	Message.Attachments.Add "d:\productinformation\productxyz.pdf" ' path must be changed
End If
%>

* This assumes your database contains an attribute field "InterestXYZ" in boolean type.

Congratulations to recipients whose birthday is today

<%
If IsDate(User("birthday")) Then
	Dim dtBirthDay
	dtBirthDay = CDate(User("birthday"))

	If Month(dtBirthday) = Month(Now) And Day(dtBirthday) = Day(Now) Then
		Message.Subject = Message.Subject & " (Happy birthday!)"
		' Insert a card file with congratulation
		Body.LoadFromFile "d:\birthday.txt" ' path must be changed
	End If
End If
%>