Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds( _ "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") _ = "c:\inetpub\mailroot\pickup" Flds.Update Set iMsg.Configuration = iConf iMsg.To = Request.Form.Item("Email") iMsg.From = "jk@israeliteknight.com" iMsg.Subject = Request.Form.Item("Subject") iMsg.TextBody = Request.Form.Item("EContent") iMsg.Send