|
rothacher -> 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
%>
|
|
|
|
