<% Dim objMsg Dim objConfig Set objMsg = CreateObject(«CDO.Message») Set objConfig = CreateObject(«CDO.Configuration») Dim objFields Set objFields = objConfig.Fields ‘ Setup server information objFields(«http://schemas.microsoft.com/cdo/configuration/smtpserver»)…