cdosys mail response on update form (Full Version)

All Forums >> [Web Development] >> ASP and Database



Message

mjmtravel -> cdosys mail response on update form (2/26/2008 20:48:15)

Well after totally wasting mine and everyone's time I figured out I have cdosys instead of cdonts. I received the code from my host but can't quite make it work yet either. Does anyone see what I'm doing wrong. I do have the page protected with the spooky log in.

thanks in advance

<%=FP_FieldVal(fp_rs,"Birthdate1")%></td>
</tr>
<tr>
<td width="210"><b>Birthdate2:</b></td>
<td>
<%=FP_FieldVal(fp_rs,"Birthdate2")%></td>
</tr>
<%

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = "info@travelbuff.net"
objMessage.From = "webmaster@travelbuff.net"
objMessage.To = "recipient@test.com"
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.*****.net"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****@******"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update
objMessage.Send

%>
</table>



Spooky -> RE: cdosys mail response on update form (2/26/2008 20:57:15)

Can you try using the script in isolation first - dont use it within the DRW.
Use it on a new page to ensure it works first.

No error is created when you do this?



mjmtravel -> RE: cdosys mail response on update form (2/28/2008 19:31:40)

Spooky, I cannot get it to work on its own page either. I'm having my web host take a look and I will let you know.



mjmtravel -> RE: cdosys mail response on update form (2/29/2008 20:19:49)

Well here is what my host said. Apparently it does work through their test, but not for me. In fact I did get a email from them using there test, what ever that was. I did notice I have the recipient wrong and changed that also. Still nothing. Any ideas would be a great help. Remeber this is a spooky log protected page.

Thanks

"I just have checked with a few tests and found that CDOSYS is working fine from your domain; and issue seems to be causing due to some coding issue.

Can you please recheck for any coding issues; as upon submitting the form, the page isn't generating the 'action' with no email in the mail queue."




Spooky -> RE: cdosys mail response on update form (2/29/2008 20:33:27)

Did they give you the code they tested with or perform the test on your site?



mjmtravel -> RE: cdosys mail response on update form (2/29/2008 20:34:43)

Unfortunately no and I do not get any errors either.



Spooky -> RE: cdosys mail response on update form (2/29/2008 22:38:14)

You could try this script, but it would be best to have a script with the settings we know work 
<%

strServer = "mail.yourserver.com"
sendusername = "Valid@emailaccount.com"
sendpassword = "Your Email Password"



DIM iMsg,iConf,Flds
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sendusername
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sendpassword
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields.Update
Set oMail.Configuration = iConf

' fill in these details

oMail.To 			= strTo
oMail.From 			= strFrom
oMail.Subject 		= strSubject
oMail.TextBody 		= strBody


oMail.Send
Set iConf = Nothing
Set Flds = Nothing

%>



mjmtravel -> RE: cdosys mail response on update form (3/3/2008 18:52:46)

Spooky
Ok I got the answer and code from them. In fact it does work on a empty page by itself, but something with the user name or log in is effecting it I think. I put exactly what my host had down and just changed the passwords. Still nothing. Here is the code I have now. Any ideas? Possibly the location in the form?

<%

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "User Updated Personal Information"
objMessage.Sender = "info@******.net"
objMessage.From = "info@******.net"
objMessage.To = "jmsbaker@msn.com"
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.*****.net"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@*****.net"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update
objMessage.Send

Response.write "Sending email..."

%>



mjmtravel -> RE: cdosys mail response on update form (3/3/2008 19:42:11)

Spooky,
I finally got it to work. I have to put the code at the very top after the log in script before the <html><head> lines.

Now if you could help me with 1 last thing. I would like to to have the email give me the name of the user that has logged in. The code I used is the same as above.

Thank you again.



Page: [1]

Valid CSS!




Forum Software © ASPPlayground.NET Advanced Edition 2.4.5 ANSI
0.078125