I'm also new to
ASP but I'm also a little bit confused as to what the following is doing:
- Code: Select all
Set Email = Server.CreateObject("CDO.Message")
Set EMailConfig = Server.CreateObject("CDO.Configuration") 'calls CDO configuration COM object
'Set Flds = EmailConfig.Fields
With EmailConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'tells cdo we are using the local smtp service
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" 'verify that this path is correct
.Update 'updates CDOs configuration
End With
With Email
.Configuration = EMailConfig
.From = "Stuff Website"
.Subject = "Publications Order"
.TextBody = body
.To = "myemail@myemail.com"
.Send
End With
could you try the following instead of the above and see what happens (ensure you have a backup of the original - I am still learning...)
- Code: Select all
' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send