PDA

View Full Version : Automated Email Response on Send Mail

dhtmlhelp
07-24-2002, 12:30 AM
Hi,

i am using an asp script to receive the emails of subscribers.

Do you know of any script that, on receipt of an email automatically sends a reply (a preset html email), including 'Dear Name,' (if the email is name@domain.com) where specified -
maybe with the [NAME] tag?

all comments are greatly appreciated.

DHTMLHELP
Mhtml
07-24-2002, 06:51 AM
You mean an auto-responder type thing.
dhtmlhelp
07-24-2002, 07:56 AM
Correct.

If for example a user submits his email (hisname@hisdomain.com) to orders@mydomain.com he receives an automated reply (a custom html email) in the form of:

Dear Hisname,

etc.


if the emails is sent to apples@mydomain.com, Hisname would receive apple.html, write to oranges@mydomain.com and you would receive oranges.html.


is this something that has been done before (without the oranges and apples maybe :p).

DHTMLHELP
Mhtml
07-24-2002, 10:18 AM
Ok lol, I see hmm... Well I'm only new to asp but I imagine that it would got a little like:


<html>
<head>
</head>
<body>
<% if request.QueryString("domain") = "apples" then
autoresponse = "apples"

else if request.QueryString("domain") = "oranges" then
autoresponse = "oranges"

dim EmailText
EmailText = "Dear & hisname &"
dim SendEmail
SendEmail = autoresponse
dim EmailFrom
EmailFrom = " & autoresponse & @mydomain.com"
dim myMail

If SendEmail = autoresponse then
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = EmailFrom
myMail.To = Request.Form("FruitForm")
myMail.Subject = autoresponse

myMail.Body = EmailText
myMail.Send
Set myMail = Nothing
end if
end if
end if %>
</body>
</html>
oracleguy
07-24-2002, 06:19 PM
Originally posted by Mhtml

<html>
<head>
</head>
<body>
<% if request.QueryString("domain") = "apples" then
autoresponse = "apples"

else if request.QueryString("domain") = "oranges" then
autoresponse = "oranges"

dim EmailText
EmailText = "Dear " & hisname
dim SendEmail
SendEmail = autoresponse
dim EmailFrom
EmailFrom = autoresponse & "@mydomain.com"
dim myMail

If SendEmail = autoresponse then
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = EmailFrom
myMail.To = Request.Form("FruitForm")
myMail.Subject = autoresponse

myMail.Body = EmailText
myMail.Send
Set myMail = Nothing
end if
end if
end if %>
</body>
</html>
[/B]

I tweaked it a tad. And fixed some syntax errors.
dhtmlhelp
07-25-2002, 01:39 AM
well I feel a little more confused, but I guess it's a very good sign.

On my site a visitor has the option to order each product by simply imputing their email address. Each submit form is run by an asp script I have included at the end of this post.

My question is how can I integrate what you posted with this script, or can I customise the script I am currently using to send an automated email to the submitter?

DHTMLHELP



<%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True

'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user


'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = "sales@domain.com"

'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------

strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail

'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------

strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail

'-----------------------------------------------------------------------------------------------------


'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")


'Initialse strBody string with the body of the e-mail
strBody = "<h2>Test Header</h2>"
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If


'Send the e-mail

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strReturnEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Test Title"

'Set the main body of the e-mail
objCDOMail.Body = strBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing
%>
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Test</title>

</head>


<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<br>

</body>


</html>
oracleguy
07-25-2002, 09:35 PM
Hmmm, doesn't that script work?
dhtmlhelp
07-25-2002, 10:27 PM
Hi Oracleguy,

it does work but it doesn't do everything I would like it to do.

The script I have posted sends me an email with the email address of the person requesting the product and the item desired.

What i would also like the script to do is automatically send a reply to the submitter with details on how to complete the transaction; this without having to setup an autoresponder.

Is this possible.

DHTMLHELP
Mhtml
07-26-2002, 05:32 AM
I'll have a go at combining them but I can't promise anything because as I said before I've only been learning for a week. :)
Mhtml
07-26-2002, 06:24 AM
But from what I can see it would go a little like this:


<%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True

'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
Dim strAutoEmailAddress 'Holds e-mail address of the user for Auto Responder

'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = "sales@domain.com"

'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------

strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail

'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------

strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail

'-----------------------------------------------------------------------------------------------------


'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")


'Initialse strBody string with the body of the e-mail
strBody = "<h2>Test Header</h2>"
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If

'---------------------------------Auto Response Information Added by Mhtml-------------------------
'Set the users e-mail address
strAutoEmailAddress = strReturnEmailAddress

'set auto response body
strAutoBody = "Thank you for you order.<br><font color=(ff0000)>This is an automated response please do not reply to this e-mail</font>"
'----------------------------------------------END AUTO RESPONSE---------------------------------

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strReturnEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Test Title"

'Set the main body of the e-mail
objCDOMail.Body = strBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing

'-------------------------------------------------------AUTO RESPONDER ADDED BY Mhtml------------

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strMyEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strAutoEmailAddress


'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Auto Response to order submission"

'Set the main body of the e-mail
objCDOMail.Body = strAutoBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing



%>
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Test</title>

</head>


<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<br>

</body>


</html>


I think this should work.
PS: You can see where I have put in the exrta code, you can remove the added by Mhtml ifyou want, I just put it there so that you can see where I did stuff.
dhtmlhelp
07-26-2002, 01:31 PM
Hi Mhtml,

thank you so much, i will test it immediately. If oracleguy you get a chance to read this post could you doublecheck Mhtml's work?


thank you,

DHTMLHELP
oracleguy
07-26-2002, 06:05 PM
It should work for ya. I didn't see anything wrong with it.
dhtmlhelp
07-28-2002, 09:08 PM
Hi,

it doesn't seem to work, I get the following message:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strAutoBody'

/asp/test.asp, line 50


DHTMLHELP
Mhtml
07-29-2002, 08:32 AM
oh ok, I see the prob. I didn't declare the variable strAutoBody.

I have fixed it. <%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True

'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
Dim strAutoEmailAddress 'Holds e-mail address of the user for Auto Responder
Dim strAutoBody 'Body for Auto Response
'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = "sales@domain.com"

'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------

strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail

'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------

strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail

'-----------------------------------------------------------------------------------------------------


'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")


'Initialse strBody string with the body of the e-mail
strBody = "<h2>Test Header</h2>"
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If

'---------------------------------Auto Response Information Added by Mhtml-------------------------
'Set the users e-mail address
strAutoEmailAddress = strReturnEmailAddress

'set auto response body
strAutoBody = "Thank you for you order.<br><font color=(ff0000)>This is an automated response please do not reply to this e-mail</font>"
'----------------------------------------------END AUTO RESPONSE---------------------------------

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strReturnEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Test Title"

'Set the main body of the e-mail
objCDOMail.Body = strBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing

'-------------------------------------------------------AUTO RESPONDER ADDED BY Mhtml------------

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strMyEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strAutoEmailAddress


'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Auto Response to order submission"

'Set the main body of the e-mail
objCDOMail.Body = strAutoBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing



%>
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Test</title>

</head>


<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<br>

</body>


</html>
dhtmlhelp
07-30-2002, 12:00 AM
It's working great now, thanks MHTML.

One last thing, how can I personalise the Autoresponse. For example if joe@domain.com submits his email how can I get the automated reply to read:

Hi Joe,

etc.

DHTMLHELP
oracleguy
07-30-2002, 06:33 AM
Well, either you have a form element that has the user enter their name in. Or you get the mailbox name from their email address. So like someuser@domain.com, you extract the 'someuser' part with this code:


<%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True

'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
Dim strAutoEmailAddress 'Holds e-mail address of the user for Auto Responder
Dim strAutoBody 'Body for Auto Response
Dim strCustomerName 'The username part of their email
'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = "sales@domain.com"

'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------

strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail

'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------

strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail

'-----------------------------------------------------------------------------------------------------


'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")

'------------------------Added by OracleGuy ----------------------
strCustomerName=Mid(strReturnEmailAddress,1,(InStr(strReturnEmailAddress,"@")-1))
'----------------------End Ammendment---------------------------


'Initialse strBody string with the body of the e-mail
strBody = "<h2>Test Header</h2>"
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If

'---------------------------------Auto Response Information Added by Mhtml-------------------------
'Set the users e-mail address
strAutoEmailAddress = strReturnEmailAddress

'set auto response body
'--------------Modified by OracleGuy----------------
'Original:
'strAutoBody = "Thank you for you order.<br><font color=(ff0000)>This is an automated response please do not reply to this e-mail</font>"
'New:
strAutoBody = "Hello, " & strCustomerName & ",<BR>Thank you for you order.<br><font color=(ff0000)>This is an automated response please do not reply to this e-mail</font>"
'-------------------END Modification---------------------
'----------------------------------------------END AUTO RESPONSE---------------------------------

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strReturnEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Test Title"

'Set the main body of the e-mail
objCDOMail.Body = strBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing

'-------------------------------------------------------AUTO RESPONDER ADDED BY Mhtml------------

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = "<" & strMyEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strAutoEmailAddress


'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Auto Response to order submission"

'Set the main body of the e-mail
objCDOMail.Body = strAutoBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing



%>
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Test</title>

</head>


<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<br>

</body>


</html>



Notice the new variable being defined in blue.

Okay?:thumbsup:
dhtmlhelp
07-30-2002, 10:33 AM
Hi Oracleguy,

thank you for all your help. I am getting this now:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/asp/test.asp, line 34

strCustomerName=Mid(strReturnEmailAddress,1,(InStr
--------------------------------------------------^


DHTMLHELP
oracleguy
07-30-2002, 07:28 PM
Okay, for some reason its making this line:


strCustomerName=Mid(strReturnEmailAddress,1,(InStr
(strReturnEmailAddress,"@")-1))

two lines, it should all be on the same line.

And then it might generate an error saying:

Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Mid'
/opcv6/testmail.asp, line 34


That means that there isn't any text in strReturnEmailAddress, so move that block down below your email verification code. Thats what i ment to do in the first place but didn't.


'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")

'Initialse strBody string with the body of the e-mail
strBody = "<h2>Test Header</h2>"
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If

'------------------------Added by OracleGuy ----------------------
strCustomerName=Mid(strReturnEmailAddress,1,(InStr(strReturnEmailAddress,"@")-1))
'----------------------End Ammendment---------------------------
dhtmlhelp
07-31-2002, 05:48 PM
Hi,

it works now but I think there is a limit in number of characters for the automated reply. I get the following message.

Expected end of statement

/asp/test.asp, line 68

strAutoBody = "<div align=(center)><table border=(1) cellpadding=(3) cellspacing=(0) style=(border-collapse: collapse) bordercolor=(#111111) width=(695)><tr><td bgcolor=(#FFFFFF) align=(center)><center><br><br><font size=(2) face=(Tahoma)><b>Hello " & strCustomerName & "</b>,<p>and blah blah <b>blah blah blah blah blah blah blahb blah blahblahblah [blah blah blah] blah blah blah blah</b>.<p>blah blahb lahj bòlah blah blah blah <a href=(http://www.domain.com) target=(_blank)>www.domain.com</a>. blah blah blah blah blah bl


and the message is blocked even if it is all on one line. Is there any way of overriding this limitation.

DHTMLHELP
oracleguy
07-31-2002, 08:50 PM
Hmm that shouldnt be the case. Can you post your code for that section?

According to the MSDN database, a variant can hold the same amount as a string can, which is up to 2 billion characters, so that shouldn't be a problem.... Perhaps it is a syntax error?
whammy
07-31-2002, 11:26 PM
You probably have some double quotes in there... which you can comment out like:

name=""whatever""

with another double quote
Mhtml
08-01-2002, 07:47 AM
No worries dhtmlhelp , I actually can't quite believe that I helped as much as I have.;)
whammy
08-02-2002, 02:47 AM
Er, I just reread that post... and I've never seen HTML like that before.....

What is blah=(blah) ? I'm fairly sure that's not valid HTML - anyway... if you do it something like this it should work:


strAutoBody = "<div align=""center""><table border=""1"""
strAutoBody = strAutoBody & " cellpadding=""3"""
strAutoBody = strAutoBody & " cellspacing=""0"" style=""border-collapse: collapse"""

etc...