Forums: Sending templated email messages - Forums

Jump to content

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Sending templated email messages

#1 User is offline   admin 

  • Administrator
  • PipPipPip
  • Group: Admin
  • Posts: 16044
  • Joined: 03-February 03

Posted 04 May 2012 - 07:17 PM

Composing good looking HTML emails in your code is a tedious task. Luckily there is a better way to design your emails. Fire up your favorite HTML or text editor and compose your email there. Fill it with template variables like ##User_name##. Here is the sample "thank you for your order" email template.

<P><STRONG>Thanks for your order, ##User_name##!</STRONG> </P>
<P>If you need to check the status of your order or make changes, please visit our home page at ##Website_URL##, login and edit your orders. </P>
<P><STRONG>Personal info</STRONG> </P>
<P><STRONG>Email Address:</STRONG> ##User_email## </P>
<P><STRONG>Billing Address:</STRONG> ##Billing_address## <STRONG>Shipping Address:</STRONG> ##Shipping Address## </P>
<P><STRONG>Order Total:</STRONG> ##total## </P>
<P>Thanks again for shopping with us!</P>


We are going to save this template to order.txt file. Here is the code that loads template, replaces variables and sends the email:

' load email template '
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.OpenTextFile(Server.MapPath("order.txt")) 
email_message = wfile.ReadAll
wfile.close 
Set wfile=nothing 
Set fs=nothing

' replace variables '
email_message = Replace(email_message,"##User_name##","Next USA president")
email_message = Replace(email_message,"##User_email##","president@whitehouse.gov")
email_message = Replace(email_message,"##Billing_address##","1600 Pennsylvania Avenue")
email_message = Replace(email_message,"##Shipping Address##","1600 Pennsylvania Avenue")
email_message = Replace(email_message,"##Total##","123.56")
email_message = Replace(email_message,"##Website_URL##","http://mycoolwebsite.com")

' send HTML email '
set params = CreateObject("Scripting.Dictionary")
params("to")="president@whitehouse.gov"
params("subject")="Thank you for your order"
params("htmlbody")=email_message
params("charset")="UTF-8"
runner_mail(params)

Best regards,
Sergey Kornilov
0

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic