ASP - Error send mail 'Invalid class string'

[sandh2008]

1- The code snippet in my post #61 adds the date automatically

2- When filling in the mail body text, I would put all the data into a separate string variable, and then send this to the mail body text:

dim myBody
for each x in request.form
   myBody = myBody & x & ": " & request.form(x) & vbNewLine
next
Mail.BodyText   = myBody

the rest of your code should work just fine.

Jared

sorry to but in unannounced, I am a newbie to this forum, thank you all for the enormous help this forum has already been and I am sure will continue to be.....

my question relates to send emails from a VBscript in asp.net. I have tried using the cod above and get the following error message:

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/leadqualifiers. co.uk/httpdocs/appshandlingBU. asp, line 185

line 185 is
185 [code]et Mail = Server.CreateOb ject("SMTPsvg.M ailer")[code]

does this variable require particular email component on the server ? or is my problem different ?

any ideas ?

[DrBunchman]

Hi sandh2008,

Welcome to Bytes.com! I hope you find the site useful. I've split your question into a new thread to save use from scrolling through 60 posts to get to it as that other thread was pretty long! :-)

I believe you are correct: you are missing the required dll to use this mail object. To try to fix this you could use CDOSYS instead by swapping the line above with this one:

 
Set Mail = Server.CreateObject("CDO.Message")
 

I'm not familiar with the syntax of the mail object you are using so don't know if there's any difference but the basic properties of CDOSYS are these:

 
Mail.Subject = "Subject"
Mail.From = "Me!"
Mail.To = "You!"
Mail.TextBody = "Hello World!
Mail.AddAttachment "MyPicture.jpg"
Mail.Send
 

And there's plenty more info in the www.

Let me know if this fixes your problem.

Dr B

[Jerry Winston]

CDOSYS works pretty well for me using these settings:

 
Set myMail=Server.CreateObject("CDO.Message")              
dim bodyText
myMail.From = "[e-mail]"
myMail.Subject = "My Subject Line"
myMail.To = "[e-mail]"
myMail.BCC = "[e-mail]"
 
 

      myMail.HTMLBody=bodyText  
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Drop"  
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
 
myMail.Configuration.Fields.Update        
myMail.Send       
set myMail=nothing