|
| |
|
|
rothacher
Posts: 2
Joined: 9/14/2004
Status: offline
 |
ASP for 2003 server - 9/14/2004 15:47:16
could someone please help me! i am needing to convert my cdonts (used on 2000 server) to cdosys (used on 2003 server). we have changed the coding, but the when the user "submits" the order form, the email that is supposed to be generated, sits in the job que. Here is the code we currently have....
'Send using the Pickup directory on the IIS server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
' set the CDOSYS configuration fields to use the SMTP service pickup directory
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Update
End With
' build HTML for message body
'strHTML = "<HTML>"
'strHTML = strHTML & "<HEAD>"
'strHTML = strHTML & "<BODY>"
'strHTML = strHTML & "<b>"&t&"</b></br>"
'strHTML = strHTML & "</BODY>"
'strHTML = strHTML & "</HTML>"
' apply settings to the message
With iMsg
Set .Configuration = iConf
.To = emailbcc
.Bcc = emailbcc
.From = emailfrom
.Subject = "This is a test CDOSYS message (Pickup directory)"
.HTMLBody = t
' if requestor includes email address then send them confirm email
if trim(emailconfirm) <> "" then .To = emailconfirm end if
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
'***************************************************************************************
response.write t
%>
|
|
|
|
rothacher
Posts: 2
Joined: 9/14/2004
Status: offline
|
RE: ASP for 2003 server - 9/15/2004 14:33:38
Thanks! We changed the code to read as below, but it still is not processing the email properly. It still sits in the que...........a person here is going to look into the SMTP configuration and determine if that is the problem. Do you see anything below, in our changed code that would cause any problem?
<%
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") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
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
oMail.To = emailbcc
oMail.From = "sbridges@......"
' if requestor includes email address then send them confirm email
'if trim(emailconfirm) <> "" then omail.To = emailconfirm end if
oMail.Subject = emailsubject
oMail.htmlBody = t
oMail.Send
Set omail = nothing
Set iConf = Nothing
Set Flds = Nothing
%>
| |
|
 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
|
|
|
Printable Version 
k¥ 
