Hi Guys
CDONTS works with all sites hosted on my test server bar one (which surely
rules out a miscomputation of the Default SMTP server in IIS). I have tried
uploading the file with make up the site in which CDONTS to one of the IIS
"sites" which is known to work with CDONTS, and still, no email received.
The bad mail dir gets three files each time, the error is:
Unable to deliver this message because the follow error was encountered:
"Error is processing file in pickup directory.".
The specific error code was 0xC00402CE.
The solutions offered in various responses I found after a quick search all
assumed that the SMTP service was configured wrong, but how can mine be when
other sites can use the CDONTS/SMTP components fine.
The last thing it could be I guess is the code, which I assumed was fine as
I copied it from one of the working sites and edited the body section, but
here is just in case:
<%
' Garden Lighting Order Announcement
Dim myMail
Dim myBody
Set myMail = CreateObject("CDONTS.NewMail")
myBody="A new order has been placed using the www.gradenlightingltd.co.uk
website. For more information please visit the Site Maintenance area at
http://www.gardenlightingltd.co.uk/sitem/"
myMail.From="Garden Lighting Website"
myMail.To="ja***@graphics-line.co.uk"
myMail.Subject="Graden Lighting Order Announcement"
myMail.BodyFormat=1
myMail.MailFormat=1
myMail.Body=myBody
myMail.Send
set mymail=nothing
%>
<%
' Garden Lighting Order Announcement
Dim myMail2
Dim myBody2
Dim mySender
mySender = (Orders.Fields.Item("CusEmail").Value)
Set myMail2 = CreateObject("CDONTS.NewMail")
myBody2="Delivery Information:" & VbCrLf &_
"Name: " & (Orders.Fields.Item("CusCountry").Value) & VbCrLf &_
"Company: " & (Orders.Fields.Item("DelCompany").Value) & VbCrLf &_
"Position: " & (Orders.Fields.Item("DelJob").Value) & VbCrLf &_
"Address: " & (Orders.Fields.Item("DelAddr1").Value) & VbCrLf &_
"" & (Orders.Fields.Item("DelAddr2").Value) & VbCrLf &_
"" & (Orders.Fields.Item("DelAddr3").Value) & VbCrLf &_
"County: " & (Orders.Fields.Item("DelCounty").Value) & VbCrLf &_
"Postcode: " & (Orders.Fields.Item("DelPostCode").Value) & VbCrLf &_
"Country: " & (Orders.Fields.Item("DelCountry").Value) & VbCrLf &_
"Telephone: " & (Orders.Fields.Item("DelTel").Value) & VbCrLf &_
"Facsimile: " & (Orders.Fields.Item("DelFax").Value) & VbCrLf &_
"Mobile: " & (Orders.Fields.Item("DelMob").Value) & VbCrLf &_
"E-mail: " & VbCrLf & VbCrLf &_
"Billing Information:" & VbCrLf &_
"Name: " & (Orders.Fields.Item("CusName").Value) & VbCrLf &_
"Company: " & (Orders.Fields.Item("CusCompany").Value) & VbCrLf &_
"Position: " & (Orders.Fields.Item("CusJob").Value) & VbCrLf &_
"Address: " & (Orders.Fields.Item("CusAddr1").Value) & VbCrLf &_
"" & (Orders.Fields.Item("CusAddr2").Value) & VbCrLf &_
"" & (Orders.Fields.Item("CusAddr3").Value) & VbCrLf &_
"County: " & (Orders.Fields.Item("CusCounty").Value) & VbCrLf &_
"Postcode: " & (Orders.Fields.Item("CusPostCode").Value) & VbCrLf &_
"Country: " & (Orders.Fields.Item("CusCountry").Value) & VbCrLf &_
"Telephone: " & (Orders.Fields.Item("CusTel").Value) & VbCrLf &_
"Facsimile: " & (Orders.Fields.Item("CusFax").Value) & VbCrLf &_
"Mobile: " & (Orders.Fields.Item("CusMob").Value) & VbCrLf &_
"E-mail: " & mySender & VbCrLf &_
"Further Information:" & (Orders.Fields.Item("FurtherInformation").Value) &
VbCrLf & VbCrLf &_
"Goods Ordered:"& VbCrLf
While ((Repeat2__numRows <> 0) AND (NOT rsOrderDetails.EOF))
myBody2 = myBody2 & "Item: " &
(rsOrderDetails.Fields.Item("ProductName").Value) & VbCrLf &_
"Finish: " & (rsOrderDetails.Fields.Item("FinishDesc").Value) & VbCrLf &_
"Option: " & (rsOrderDetails.Fields.Item("OptionDesc").Value) & VbCrLf &_
"Quantity: " & (rsOrderDetails.Fields.Item("OrderQuantity").Value ) & " @ " &
FormatCurrency((rsOrderDetails.Fields.Item("odPric e").Value), 2, -2, -2, -2)
& VbCrLf &_
"Price: " & FormatCurrency((rsOrderDetails.Fields.Item("odTota l").Value),
2, -2, -2, -2)
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsOrderDetails.MoveNext()
Wend
myBody2 = myBody2 & VbCrLf & "Total: " &
FormatCurrency((Orders.Fields.Item("ITotal").Value ), 2, -2, -2, -2) & VbCrLf
&_
"Trade Discount: " &
FormatCurrency((Orders.Fields.Item("ITradeDisc").V alue), 2, -2, -2, -2) &
VbCrLf &_
"Delivery: " & FormatCurrency((Orders.Fields.Item("IDelivery").Va lue),
2, -2, -2, -2) & VbCrLf &_
"VAT: " & FormatCurrency((Orders.Fields.Item("IVAT").Value), 2, -2, -2, -2)
& VbCrLf &_
"Grand Total: " & FormatCurrency((Orders.Fields.Item("IGrandTotal"). Value),
2, -2, -2, -2)
myMail2.From="Vi*****@gardenlightingltd.co.uk"
myMail2.To="ja***@graphics-line.co.uk"
myMail2.Subject="Reciept for gardenlightingltd.co.uk order number:" &
UCII.OrderID
myMail2.BodyFormat=1
myMail2.MailFormat=1
myMail2.Body=myBody2
set mymail2=nothing
%>
Any help, ideas or pointers gratefully appreciated
Regards
James
tgl
