Hi There,

 

I download a script ( http://www.iloire.com/vbscript/online_photo_catalog_vbscript.asp - http://www.iloire.com/vbscript/online_photo_catalog_vbscript.asp ) and installed it. It works great for me, except for one thing.

It should mail comments to me, but it does that using CDONTS. I don't have that installed on my server. I do have W3 Jmail, so I thought about rewriting the mail procedure.

 

Original script:

'lets send an email using CDONTS (be sure you have installed it in your server)
 Dim objCDO
 Set objCDO = Server.CreateObject("CDONTS.NewMail")
 objCDO.To = cAdminEmail
 objCDO.From = cAdminEmail
 objCDO.Subject = "Simple online photo catalogue comment"
 objCDO.Body = "Author: " & author & vbcrlf & _
 "Email: " & email & vbcrlf &  _
 "Comments: " & text & vbcrlf & _
 "Picture: " & vbcrlf & picturelink & _
 vbcrlf & "--" & vbcrlf & cPageTitle
 objCDO.Send
 Set objCDO = Nothing

 

Rewritten W3 Jmail script:

'lets send an email using w3Jmail (be sure you have installed it in your server)
 Dim objJMail
 Set objJMail = Server.CreateObject("JMail.SMTPMail")
 objJMail.ServerAdress = "smtp.onderwijs.casematelecom.nl:25"
 objJMail.Sender= cAdminEmail
 objJMail.SenderName = "Leko's Wereld Fotoalbum"
 objJMail.AddRecipient cAdminEmail
 objJMail.Subject = "Opmerking bij foto..."
 objJMail.Body = "Van: " & author & vbcrlf & _
 "E-mail: " & email & vbcrlf &  _
 "Opmerking: " & text & vbcrlf & _
 "Foto: " & vbcrlf & picturelink & _
 vbcrlf & "--" & vbcrlf & cPageTitle
 objJMail.Priority = 3
 objJMail.Execute
 Set objJMail = Nothing

 

Unfortunately it doesn't work. Other scripts (like the journal from this site) work fine. Does anyone know what the problem is?

Any help would be appriciated.

 

Greetings,

 

Koen

I don't get any errormessage. But I don't get any mail as well.

As said other scripts using w3 Jmail work fine.

So my question mostly is: Is the code to send e-mail correct?

If so it must be some other problem.

Could I easily make a routine to output its result?

Something like response.write(succesfull) or responsewrite(unsuccesfull)? And what would that look like? I have no asp-experience.

The correct script turned out to be:

'lets send an email using w3Jmail (be sure you have installed it in your server)
 Dim objJMail
 Set objJMail = Server.CreateObject("JMail.Message")
 objJMail.From= cAdminEmail
 objJMail.FromName = "Your albumname"
 objJMail.AddRecipient cAdminEmail
 objJMail.Subject = "Comment with photo"
 objJMail.Body = "From: " & author & vbcrlf & _
 "E-mail: " & email & vbcrlf &  _
 "Comment: " & text & vbcrlf & _
 "Picture: " & vbcrlf & picturelink & _
 vbcrlf & "--" & vbcrlf & cPageTitle
 objJMail.Priority = 3
 objJMail.Send ("yoursmtp.server.com")
 Set objJMail = Nothing

 

Thanks for thinking with me.