ProductCart E-Commerce Solutions Homepage
Forum Home Forum Home > ProductCart > Customizing ProductCart
  New Posts New Posts RSS Feed - Problem editing the customer registration email.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Problem editing the customer registration email.

 Post Reply Post Reply Page  <12
Author
Message
Greg Dinger View Drop Down
Certified ProductCart Developers
Certified ProductCart Developers
Avatar

Joined: 23-September-2006
Location: United States
Status: Offline
Points: 238
Post Options Post Options   Thanks (0) Thanks(0)   Quote Greg Dinger Quote  Post ReplyReply Direct Link To This Post Posted: 26-December-2008 at 8:46pm
At the beginning of /includes/sendmail.asp, you will see this statement.
if session("News_MsgType")="1" Then
 
That is the indicator that designates the need for an HTML e-mail to be issued.
 
You may find it wise to capture the value of that setting before you force a value into it, then restore the value after using it, in order to prevent having adverse affects elsewhere.
 
So, something like this:
dim saveMsgTyle
saveMsgType = session("News_MsgType")
session("News_MsgType")="1"
call sendmail (parameters here)
session("News_MsgType")=saveMsgType
 
Hope that helps.
Back to Top
JWL View Drop Down
Senior Member
Senior Member


Joined: 15-August-2008
Status: Offline
Points: 0
Post Options Post Options   Thanks (0) Thanks(0)   Quote JWL Quote  Post ReplyReply Direct Link To This Post Posted: 27-December-2008 at 10:11am
All the email components have a line like that "session("News_MsgType")="1" except the If CDO section.

if scEmailComObj="CDO" then
    'on error resume next %>
    <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
    <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
    <%
    Const cdoSendUsingPort = 2
    Set objMail = Server.CreateObject("CDO.Message")
    Set iConf = Server.CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    With Flds
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        if scSMTP<>"" then
            .Item(cdoSMTPServer) = scSMTP
        else
            .Item(cdoSMTPServer) = "mail-fwd"
        end if
        .Item(cdoSMTPServerPort) = 25
        .Item(cdoSMTPconnectiontimeout) = 10
        'Only used if SMTP server requires Authentication
        if scSMTPAuthentication="Y" then
            .Item(cdoSMTPAuthenticate) = cdoBasic
            .Item(cdoSendUserName) = scSMTPUID
            .Item(cdoSendPassword) = scSMTPPWD
        end if
Back to Top
Greg Dinger View Drop Down
Certified ProductCart Developers
Certified ProductCart Developers
Avatar

Joined: 23-September-2006
Location: United States
Status: Offline
Points: 238
Post Options Post Options   Thanks (0) Thanks(0)   Quote Greg Dinger Quote  Post ReplyReply Direct Link To This Post Posted: 27-December-2008 at 10:31am

Ask EI for an updated version of your script.  I'm looking at a 3.5 version of the code and it does appear to support HTML mode.

Back to Top
 Post Reply Post Reply Page  <12
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.078 seconds.