|
| |
|
|
mjmtravel
Posts: 212 Joined: 7/30/2006 Status: offline
|
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>
|
|
|
|
mjmtravel
Posts: 212 Joined: 7/30/2006 Status: offline
|
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
Posts: 212 Joined: 7/30/2006 Status: offline
|
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."
< Message edited by mjmtravel -- 2/29/2008 20:28:17 >
|
|
|
|
mjmtravel
Posts: 212 Joined: 7/30/2006 Status: offline
|
RE: cdosys mail response on update form - 2/29/2008 20:34:43
Unfortunately no and I do not get any errors either.
|
|
|
|
mjmtravel
Posts: 212 Joined: 7/30/2006 Status: offline
|
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
Posts: 212 Joined: 7/30/2006 Status: offline
|
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.
|
|
New Messages |
No New Messages |
Hot Topic w/ New Messages |
Hot Topic w/o New Messages |
Locked w/ New Messages |
Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|