Listing 5: Code That Creates an SMTP Message

  mailMessage = new ActiveXObject("CDO.Message");
  fields = mailMessage.Configuration.Fields;
  fields.Item("http://schemas.microsoft.com/cdo/configuration/
    sendusing").Value = 2;
  fields.Item("http://schemas.microsoft.com/cdo/configuration/
    smtpserver").Value = server;
  fields.Item("http://schemas.microsoft.com/cdo/configuration/
    smtpserverport").Value = port;
  fields.Update();
  fields = mailMessage.Fields;
  fields.Item("urn:schemas:mailheader:importance").Value = "High";
  fields.Update();
  mailMessage.From = from;
  mailMessage.Subject = subject;