title: Add extra header to email VB ASP 3.0 script
body: <p>I'm working with a web app in VB ASP 3.0.  I have the following code to send an email:</p>
  
  <pre><code>    Const cdoSendUsingMethod        = _
              "http://schemas.microsoft.com/cdo/configuration/sendusing"
      Const cdoSendUsingPort          = 2
      Const cdoSMTPServer             = _
              "http://schemas.microsoft.com/cdo/configuration/smtpserver"
      Const cdoSMTPServerPort         = _
              "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
      Const cdoSMTPConnectionTimeout  = _
              "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
      Const cdoSMTPAuthenticate       = _
              "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
      Const cdoBasic                  = 1
      Const cdoSendUserName           = _
              "http://schemas.microsoft.com/cdo/configuration/sendusername"
      Const cdoSendPassword           = _
              "http://schemas.microsoft.com/cdo/configuration/sendpassword"
  
      Set objMessage = CreateObject("CDO.Message")
          objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 
          objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 
          objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername")="xxxxxxx"
          objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxx" 
          objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=false 
          objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.socketlabs.com"
  
          objMessage.Configuration.Fields.Update 
  
      fFromEmail = "xxx@xxx.com"
      fFromAlias = "Display name"
      fReplyTo = "xxx@xxx.com"
      if isObject(objMessage) then
          With objMessage
              .To       = fToEmail
              .Cc      = fCCEmail
              .Bcc      = fBCCEmail
              .From     = fFromAlias &amp; "&lt;" &amp; fFromEmail &amp; "&gt;"
              .Subject  = fSubject
              .HTMLBody = fEmailBody
              .Send
          End With
  
          SendEmail = summaryEmailBody
          Set objMessage = Nothing
      End If
  </code></pre>
  
  <p>This script works, but now I need to add an extra header. But I can't find how to do so when not in a .net framework.</p>
  
  <p>I tried adding the following line:</p>
  
  <pre><code>        objMessage.Configuration.Fields.Item("urn:schemas:mailheader:X-xsMailingId") = "clientName"
  </code></pre>
  
  <p>but it didn't work.  Any help will be greatly appreciated.</p>