Nesox Email Marketer Help
Buy Now
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 %>
2002-2011 (c) Copyright Nesox Solutions. All Rights Reserved.