Can anyone tell me why I might be getting a 500 error
trying to use this VBS template in ASP? The only thing
I could see to do to make it work in ASP was to
add Server.CreateOb ject instead of CreateObject.
But, obviously there is something more. Are the WITH
statements ok or do they need to be changed ?
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPic kup = 1
set iMsg = Server.CreateOb ject("CDO.Messa ge")
set iConf = Server.CreateOb ject("CDO.Confi guration")
Set Flds = iConf.Fields
With Flds
.Item("sendusin g") = cdoSendUsingPic kup
' TODO: Replace <PICKUP DIRECTORY> with path to your pickup directory
' Typically, c:\Inetpub\mail root\pickup
.Item("smtpserv erpickupdirecto ry")= "c:\Inetpub\mai lroot\pickup"
.Update
End With
' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Dim iBP
With iMsg
Set .Configuration = iConf
.To = "de****@connexi ons.net"
.From = "de****@connexi ons.net"
.Subject = "This is a test CDOSYS message (Sent via Pickup)"
.HTMLBody = strHTML
'TODO: if adding an attachment,
'uncomment the next line and alter file path as required
'Set iBP = iMsg.AddAttachm ent(App.Path & "\file1.txt ")
.Send
End With
' Clean up variables.
Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
