% Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.To = "tflury@jgdpe.com" objCDOMail.From = "spcc.submitted@jgdpe.com" objCDOMail.Subject = FP_SavedFields("SPCC5") For Each item in FP_SavedFields strBody = strBody & item & ": " & FP_SavedFields(item) & VbCrLf Next objCDOMail.Body = strBody objCDOMail.BodyFormat = 1 objCDOMail.MailFormat = 1 objCDOMail.Send Set objCDOMail = Nothing %>
|