Mailer.FromAddress Error? 2

danielh68 · Dec 20, 2002

Hi,

I created an ASP form for my company and it works fine. I copied the code so that I could create my own form for my personal site. I emailed my provider and asked them specific info regarding:

1.)Set Mailer = Server.CreateObject ("?????&quot

2.)Mailer.RemoteHost = "?????"
3.) Mailer.FromAddress = "?????"

They gave me the informatin for these objects, however I have received a runtime error when testing. Below is the exact error:

-------------------------------------------------------
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Mailer.FromAddress'

/proto/vision2020_form.asp, line 597
--------------------------------------------------------

I've actually tried removing the 'Mailer.FromAddress' from the code, but it naturally failed as well. Anyhow, I would like to get some feedback before I contact them again. Your help is much appreciated.

Thanks,
DanH

Falcon99 · Dec 21, 2002

Is this CDONTS?

Dim objCDOMail

Set objCDOMail = Server.CreateObject("CDONTS.NewMail&quot

objCDOMail.From = "<youremail@yourmailserver.com>"

Syntax could be your problem.
I've never heard of the remotehost property. Could it be you're confusing it with ServerVariables?

HTH

Tarwn · Dec 21, 2002

If the object is the ASPMail object than it the methods you are using are correct, otherwise double check which object you are using.
Here are examples of the first few attributes for three common objects:
ASPMail:

Code:

Set objASPMail = Server.CreateObject(&quot;SMTPsvg.Mailer&quot;)
objASPMail.FromName   = &quot;YourNameHere&quot;
objASPMail.FromAddress= &quot;YourEmail@YourHost.com&quot;
objASPMail.AddRecipient &quot;ToPersonName&quot;, &quot;ToPerson@TheirDomain.com&quot;
objASPMail.RemoteHost = &quot;mailhost.YourSmtpServer.net&quot;

JMail:

Code:

Set objJMail = Server.CreateObject(&quot;JMail.SMTPMail&quot;) 
objJMail.Sender = &quot;YourEmail@YourHost.com&quot; 
objJMail.AddRecipient &quot;ToPerson@TheirDomain.com&quot;
objJMail.ServerAddress = &quot;mailhost.YourSmtpServer.net&quot;

CDONTS

Code:

Set objCDONTS = Server.CreateObject(&quot;CDONTS.Newmail&quot;)
objCDONTS.From = &quot;YourEmail@YourHost.com&quot; 
objCDONTS.To = &quot;ToPerson@TheirDomain.com&quot;
'cannot specify SMTP address with CDONTS

Those are the three most common mail objects and the first few fields. If you let us know which one your host has we could probably help you find resources.

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
No more vacation for me

FAQ FAQ20-2863
= new Forums.Posting.General.GettingAnswers()

danielh68 · Dec 21, 2002

Hi, thanks everyone for your responses. I've decided to cut and paste my brief correspondance with my provider so I don't leave out something important:
--------------------------------------------------
Me:
I wish to move an ASP form from another site (& provider) to my FlareHosting
site. Anyhow, I reviewed the code and I believe these snippets need to
be changed in order to work at Flare. Here they are:

1.)<form name="form1" method="post" action="">

2.)Set Mailer = Server.CreateObject ("SMTPsvg.Mailer&quot

3.)Mailer.RemoteHost = "mail-fwd.verio-web.com"
4.) Mailer.FromAddress = "support@verio-hosting.net"

Provider:

1. I do not think it needs to be changed.

2. see here for a sample code of the email component we support,

http://www.aspemail.com/codesample.html

3. host is "mail.blitzdesign.net"

4. from address is "user@blitzdesign.net"
----------------------------------------------------------

So, this is what I have now:
mailTo= Request.Form("mailTo&quot

& "myname@sierratel.com"


Set Mailer = Server.CreateObject ("SMTPsvg.Mailers&quot

Mailer.FromAddress = "myname@sierratel.net"


Mailer.RemoteHost = "mail.blitzdesign.net"

That's it. Your expertise is greatly appreciated.

Thanks,
Daniel
__________________________________________________________

onpnt · Dec 21, 2002

could you post the entire script?
one thing noticable is the mailTo variable.
without a , between the name and address a error will arise.
so it would be benificial to do
Mailer.AddRecipient Request.Form("mailTo&quot

, "myname@sierratel.com"

in your case instead of the variable declaration

this line is wrong.
Set Mailer = Server.CreateObject ("SMTPsvg.Mailers&quot

the Mailer is not Mailers
should be
Set Mailer = Server.CreateObject("SMTPsvg.Mailer&quot

---------------------------------------
{ str = "sleep is good for you. sleep gives you the energy you need to function";
ptr = /sleep/gi;Nstr = str.replace(ptr,"coffee&quot

;alert(Nstr); }

http://www.onpntwebdesigns.com

danielh68 · Dec 21, 2002

Thanks Onpnt,

Here's the code:

<%
newform = Request.Form("submit&quot

if newform <> "Submit" then
%>



<%
else
mailTo= Request.Form("mailTo&quot

& "danielh68@sierratel.com"
Name= Request.Form("name&quot

Title= Request.Form("title&quot

Company= Request.Form("company&quot

Address1= Request.Form("address1&quot

Address2= Request.Form("address2&quot

City= Request.Form("city&quot

State= Request.Form("state&quot

Postal_Code= Request.Form("postal&quot

Country= Request.Form("countries&quot

Telephone= Request.Form("telephone&quot

Ext= Request.Form("extension&quot

Email= Request.Form("email&quot

Website= Request.Form("website&quot

Set Mailer = Server.CreateObject ("SMTPsvg.Mailer&quot

Mailer.FromName = "Tech Support"
Mailer.FromAddress = "danielh68@sierratel.net"
Mailer.Subject = "IDS-3940799 - " & Subject
Mailer.BodyText = "Name: " & Name & vbcrlf
Mailer.BodyText = "Title: " & Title & vbcrlf
Mailer.BodyText = "Company: " & Company & vbcrlf
Mailer.BodyText = "Address1: " & Address1 & vbcrlf
Mailer.BodyText = "Address2: " & Address2 & vbcrlf
Mailer.BodyText = "City: " & City & vbcrlf
Mailer.BodyText = "State: " & State & vbcrlf
Mailer.BodyText = "Postal_Code: " & Postal_Code & vbcrlf
Mailer.BodyText = "Country: " & Country & vbcrlf
Mailer.BodyText = "Telephone: " & Telephone & vbcrlf
Mailer.BodyText = "Ext: " & Ext & vbcrlf
Mailer.BodyText = "Email: " & Email & vbcrlf
Mailer.BodyText = "Website: " & Website & vbcrlf

Mailer.RemoteHost = "mail.blitzdesign.net"

Mailer.AddRecipient "dan", "danielh68@sierratel.com"

if Mailer.SendMail then
' Message sent sucessfully
response.write "Your message was sent to " & mailTo
else
' Message send failure
response.write "Your message was not sent.<br>"
response.write "The error was: " & Mailer.Response & "<br>"
end if

end if
%>

onpnt · Dec 21, 2002

how about we do some debugging.

first, get rid of all those Mailer.BodyText and do this
bodytxt = "Name: " & Name & vbcrlf & "Title: " & Title & vbcrlf
bodytxt = bodytxt & "Company: " & Company & vbcrlf & "Address1: " & Address1 & vbcrlf
bodytxt = bodytxt & "Address2: " & Address2 & vbcrlf & "City: " & City & vbcrlf
bodytxt = bodytxt & "State: " & State & vbcrlf & "Postal_Code: " & Postal_Code & vbcrlf
bodytxt = bodytxt & "Country: " & Country & vbcrlf & "Telephone: " & Telephone & vbcrlf
bodytxt = bodytxt & "Ext: " & Ext & vbcrlf & "Email: " & Email & vbcrlf
bodytxt = bodytxt & "Website: " & Website & vbcrlf

then one bodytext
Mailer.BodyText = bodytxt

big reason is it's cleaner and we can test the body text for correct information by writing it to the screen. although I know that is not a error it's a good practice.

Biggy.. I just went to see what it is you posted in the link for supported components and it's AspEmail which is different
so to convert do
<%
Set Mail = Server.CreateObject("Persits.MailSender&quot

Mail.Host = "smtp.smtp-server.com"
you need to know this' Specify a valid SMTP server
which more then likely is just smtp.blitzdesign.net
Mail.From = "danielh68@sierratel.net"
Mail.FromName = "Tech Support"

Mail.AddAddress "danielh68@sierratel.com", "dan"
Mail.AddReplyTo "danielh68@sierratel.com"

Mail.Subject = "IDS-3940799 - " & Subject
Mail.Body = bodytxt

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
---------------------------------------
{ str = "sleep is good for you. sleep gives you the energy you need to function";
ptr = /sleep/gi;Nstr = str.replace(ptr,"coffee&quot

;alert(Nstr); }

http://www.onpntwebdesigns.com

Tarwn · Dec 21, 2002

Ok, the mailer.RemoteHost was set correctly according to the email above. Anothe rpossible problem is if they went out of their way to specify for you to use your local email account as the from account, it means they may be doing filtering and not passing on messages that don't have have a from address originating on that domain.
I believe RemoteHost is the appropriate method if your using the SMTPsvg.Mailer object, go with onpnts code if you use the Persists.MailSender.

So in this case the .Host should be "mail.blitzdesign.net".

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
No more vacation for me

FAQ FAQ20-2863
= new Forums.Posting.General.GettingAnswers()

danielh68 · Dec 21, 2002

Thanks for your help everyone.

Here's the code again with Onpnt's suggestions. I tried both smtp.blitzdesign.net and mail.blitzdesign.net. Here's the error I received:

http://www.blitzdesign.net/proto/vision2020_form.asp

Code:
<%
' else send the email
else
mailTo= Request.Form("mailTo&quot

& "danielh68@sierratel.com"
Name= Request.Form("name&quot

Title= Request.Form("title&quot

Company= Request.Form("company&quot

Address1= Request.Form("address1&quot

Address2= Request.Form("address2&quot

City= Request.Form("city&quot

State= Request.Form("state&quot

Postal_Code= Request.Form("postal&quot

Country= Request.Form("countries&quot

Telephone= Request.Form("telephone&quot

Ext= Request.Form("extension&quot

Email= Request.Form("email&quot

Website= Request.Form("website&quot

Set Mail = Server.CreateObject("Persits.MailSender&quot

Mail.Host = "mail.blitzdesign.net"
Mail.From = "admin@blitzdesign.net"
Mail.FromName = "Just a test"
Mail.Subject = "Just a test" & Subject
bodytxt = "Name: " & Name & vbcrlf & "Title: " & Title & vbcrlf
bodytxt = "Company: " & Company & vbcrlf & "Address1: " & Address1 & vbcrlf
bodytxt = bodytxt & "Address2: " & Address2 & vbcrlf & "City: " & City & vbcrlf
bodytxt = bodytxt & "State: " & State & vbcrlf & "Postal_Code: " & Postal_Code & vbcrlf
bodytxt = bodytxt & "Country: " & Country & vbcrlf & "Telephone: " & Telephone & vbcrlf
bodytxt = bodytxt & "Ext: " & Ext & vbcrlf & "Email: " & Email & vbcrlf
bodytxt = bodytxt & "Website: " & Website & vbcrlf

Mailer.BodyText = bodytxt


Mailer.RemoteHost = "mail.blitzdesign.net"

Mailer.AddRecipient "dan", "danielh68@sierratel.com"

if Mailer.SendMail then
' Message sent sucessfully
response.write "Your message was sent to " & mailTo
else
' Message send failure
response.write "Your message was not sent.<br>"
response.write "The error was: " & Mailer.Response & "<br>"
end if

end if
%>

onpnt · Dec 21, 2002

only one thing is backwards
Set Mail = Server.CreateObject("Persits.MailSender&quot

with mailer. needs to be
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer&quot

else use the exapmle I showed in the end of my other post using the AspEmail component. check tarwn's post for the differences with the addition of AspMail from mine.
that is why you are getting the Mailer error

---------------------------------------
{ str = "sleep is good for you. sleep gives you the energy you need to function";
ptr = /sleep/gi;Nstr = str.replace(ptr,"coffee&quot

;alert(Nstr); }

http://www.onpntwebdesigns.com

danielh68 · Dec 21, 2002

Thanks everyone. It's working now. Sorry I didn't respond earlier because I still had problems of a different nature. Syntax problems. Anyhow, much appreciation for your expertise!

--DanH

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Mailer.FromAddress Error? 2

danielh68

Technical User

Falcon99

Programmer

Tarwn

Programmer

danielh68

Technical User

onpnt

Programmer

danielh68

Technical User

onpnt

Programmer

Tarwn

Programmer

danielh68

Technical User

onpnt

Programmer

danielh68

Technical User

Similar threads

Part and Inventory Search

Sponsor