Sending email using CDO and ASP on IIS7

Struggled with this one for a while, so I am posting here to remember the method.

Dim objMail, objMailConf
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConf = Server.CreateObject("CDO.Configuration")

objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '2 for web server (1 is to sit in the pickup directory)
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "postoffice.test.com"
objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

objMailConf.Fields.Update

Set objMail.Configuration = objMailConf
objMail.From = "webemail@somewhere.com"
objMail.To = "somemailbox@somewhere.com"
objMail.Cc = "someccuser@somewhere.com"
objMail.Subject = "Company Web Input"
objMail.htmlBody = EmailMessage
objMail.Fields.Update
objMail.Send
Set objMail = Nothing