Setting Importance....having issues ! ! !

Discussion in 'ASP General' started by Jason Kistler, Oct 29, 2004.

  1. I am having some serious issues trying to set the "importance" of an ASP
    email. I am using the CDO.Message object. Here is the code:


    <%
    Dim recipients
    recipients = Request.Form("Jason") & Request.Form("Debbie")
    Dim Groups
    Groups = Request.Form("Sales") & Request.Form("FieldServices") &
    Request.Form("CSC") & Request.Form("SupplyChain")
    Set obj_Mail = Server.CreateObject("CDO.Message")
    Set obj_Config = Server.CreateObject("CDO.Configuration")

    obj_Config.Fields("urn:schemas:mailheader:importance").Value = 2
    obj_Config.Fields("urn:schemas:httpmail:importance").Value = 2

    Set Flds = obj_Config.Fields
    With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
    "rrsmtp"
    .Item("urn:schemas:httpmail:priority").Value = 2
    .Item("urn:schemas:mailheader:importance").Value = 2

    .Update
    End With
    With obj_Mail
    Set .configuration = obj_config
    .To = recipients
    .From = ""
    .Subject = "Network Operations Severity 1" & " - " & Request.Form("System")
    .HTMLBody =_
    "<html>" & vbcrlf &_
    "<div align='center'></div>" & vbcrlf &_
    "<table width='100%' border='5' bordercolor='#0066FF'>" & vbcrlf &_
    "<tr>" & vbcrlf &_
    "<td height='349' valign='top' bordercolor='#0066FF'> " & vbcrlf &_
    "<p align='center'><font color='#0000FF' size='6'><strong><u>Network
    Operations " & vbcrlf &_
    "Severity 1 Alert</u></strong></font></p>" & vbcrlf &_
    "<p align='center'>&nbsp;</p>" & vbcrlf &_
    "<p align='center'><u><strong><font color='#FF0000' size='4'>Service Request
    " & vbcrlf &_
    "#: </u><br>" & Request.Form("ServiceRequestNo") &
    "</font></strong></u></p>" & vbcrlf &_
    "<p align='center'><u><strong><font color='#FF0000'
    size='4'><u>Description</u><br></u>" & Request.Form("System") & " - " &
    Request.Form("Impact") & "</font></strong></u></p>" & vbcrlf &_
    "<p align='center'>&nbsp;</p>" & vbcrlf &_
    "<p align='center'><u><strong><font color='#0000FF' size='4'>Business Groups
    " & vbcrlf &_
    "Potentially Affected</u><br>" & Groups & "</font></strong></u></p>" &
    vbcrlf &_
    "<p align='center'>&nbsp;</p>" & vbcrlf &_
    "<p align='center'><strong><font color='#0000FF' size='4'>Please visit <a
    href='http://dankait'>http://dankait</a> " & vbcrlf &_
    "for updates</font></strong></p>" & vbcrlf &_
    "<p>&nbsp;</p></td>" & vbcrlf &_
    "</tr>" & vbcrlf &_
    "</table>" & vbcrlf &_
    "</html>"


    .Send
    End With
    Set obj_Mail = nothing
    Set obj_Config = nothing
    %>

    I have tried to use the .Importance = 2 and I get the error that this object
    does not support it. The email sends fine, but always comes as normal
    importance. I have sent it to the Lotus Notes server *which is where it
    eventually will need to go) and to a hotmail account. It does not show as
    high priority to either.

    What am I missing? Thanks ahead of time for any help!
    Jason Kistler, Oct 29, 2004
    #1
    1. Advertising

  2. http://www.aspfaq.com/2315

    --
    http://www.aspfaq.com/
    (Reverse address to reply.)




    "Jason Kistler" <> wrote in message
    news:...
    > I am having some serious issues trying to set the "importance" of an ASP
    > email. I am using the CDO.Message object. Here is the code:
    >
    >
    > <%
    > Dim recipients
    > recipients = Request.Form("Jason") & Request.Form("Debbie")
    > Dim Groups
    > Groups = Request.Form("Sales") & Request.Form("FieldServices") &
    > Request.Form("CSC") & Request.Form("SupplyChain")
    > Set obj_Mail = Server.CreateObject("CDO.Message")
    > Set obj_Config = Server.CreateObject("CDO.Configuration")
    >
    > obj_Config.Fields("urn:schemas:mailheader:importance").Value = 2
    > obj_Config.Fields("urn:schemas:httpmail:importance").Value = 2
    >
    > Set Flds = obj_Config.Fields
    > With Flds
    > .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    > .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
    > "rrsmtp"
    > .Item("urn:schemas:httpmail:priority").Value = 2
    > .Item("urn:schemas:mailheader:importance").Value = 2
    >
    > .Update
    > End With
    > With obj_Mail
    > Set .configuration = obj_config
    > .To = recipients
    > .From = ""
    > .Subject = "Network Operations Severity 1" & " - " &

    Request.Form("System")
    > .HTMLBody =_
    > "<html>" & vbcrlf &_
    > "<div align='center'></div>" & vbcrlf &_
    > "<table width='100%' border='5' bordercolor='#0066FF'>" & vbcrlf &_
    > "<tr>" & vbcrlf &_
    > "<td height='349' valign='top' bordercolor='#0066FF'> " & vbcrlf &_
    > "<p align='center'><font color='#0000FF' size='6'><strong><u>Network
    > Operations " & vbcrlf &_
    > "Severity 1 Alert</u></strong></font></p>" & vbcrlf &_
    > "<p align='center'>&nbsp;</p>" & vbcrlf &_
    > "<p align='center'><u><strong><font color='#FF0000' size='4'>Service

    Request
    > " & vbcrlf &_
    > "#: </u><br>" & Request.Form("ServiceRequestNo") &
    > "</font></strong></u></p>" & vbcrlf &_
    > "<p align='center'><u><strong><font color='#FF0000'
    > size='4'><u>Description</u><br></u>" & Request.Form("System") & " - " &
    > Request.Form("Impact") & "</font></strong></u></p>" & vbcrlf &_
    > "<p align='center'>&nbsp;</p>" & vbcrlf &_
    > "<p align='center'><u><strong><font color='#0000FF' size='4'>Business

    Groups
    > " & vbcrlf &_
    > "Potentially Affected</u><br>" & Groups & "</font></strong></u></p>" &
    > vbcrlf &_
    > "<p align='center'>&nbsp;</p>" & vbcrlf &_
    > "<p align='center'><strong><font color='#0000FF' size='4'>Please visit <a
    > href='http://dankait'>http://dankait</a> " & vbcrlf &_
    > "for updates</font></strong></p>" & vbcrlf &_
    > "<p>&nbsp;</p></td>" & vbcrlf &_
    > "</tr>" & vbcrlf &_
    > "</table>" & vbcrlf &_
    > "</html>"
    >
    >
    > .Send
    > End With
    > Set obj_Mail = nothing
    > Set obj_Config = nothing
    > %>
    >
    > I have tried to use the .Importance = 2 and I get the error that this

    object
    > does not support it. The email sends fine, but always comes as normal
    > importance. I have sent it to the Lotus Notes server *which is where it
    > eventually will need to go) and to a hotmail account. It does not show as
    > high priority to either.
    >
    > What am I missing? Thanks ahead of time for any help!
    >
    >
    >
    Aaron [SQL Server MVP], Oct 29, 2004
    #2
    1. Advertising

  3. Jason Kistler

    Jeff Dillon Guest

    Perhaps if you used in the body text words like "Act now!" or "Don't
    delay!", it would increase the importance? :)

    Jeff
    "Jason Kistler" <> wrote in message
    news:...
    > I am having some serious issues trying to set the "importance" of an ASP
    > email. I am using the CDO.Message object. Here is the code:
    >
    >
    > <%
    > Dim recipients
    > recipients = Request.Form("Jason") & Request.Form("Debbie")
    > Dim Groups
    > Groups = Request.Form("Sales") & Request.Form("FieldServices") &
    > Request.Form("CSC") & Request.Form("SupplyChain")
    > Set obj_Mail = Server.CreateObject("CDO.Message")
    > Set obj_Config = Server.CreateObject("CDO.Configuration")
    >
    > obj_Config.Fields("urn:schemas:mailheader:importance").Value = 2
    > obj_Config.Fields("urn:schemas:httpmail:importance").Value = 2
    >
    > Set Flds = obj_Config.Fields
    > With Flds
    > .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    > .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
    > "rrsmtp"
    > .Item("urn:schemas:httpmail:priority").Value = 2
    > .Item("urn:schemas:mailheader:importance").Value = 2
    >
    > .Update
    > End With
    > With obj_Mail
    > Set .configuration = obj_config
    > .To = recipients
    > .From = ""
    > .Subject = "Network Operations Severity 1" & " - " &

    Request.Form("System")
    > .HTMLBody =_
    > "<html>" & vbcrlf &_
    > "<div align='center'></div>" & vbcrlf &_
    > "<table width='100%' border='5' bordercolor='#0066FF'>" & vbcrlf &_
    > "<tr>" & vbcrlf &_
    > "<td height='349' valign='top' bordercolor='#0066FF'> " & vbcrlf &_
    > "<p align='center'><font color='#0000FF' size='6'><strong><u>Network
    > Operations " & vbcrlf &_
    > "Severity 1 Alert</u></strong></font></p>" & vbcrlf &_
    > "<p align='center'>&nbsp;</p>" & vbcrlf &_
    > "<p align='center'><u><strong><font color='#FF0000' size='4'>Service

    Request
    > " & vbcrlf &_
    > "#: </u><br>" & Request.Form("ServiceRequestNo") &
    > "</font></strong></u></p>" & vbcrlf &_
    > "<p align='center'><u><strong><font color='#FF0000'
    > size='4'><u>Description</u><br></u>" & Request.Form("System") & " - " &
    > Request.Form("Impact") & "</font></strong></u></p>" & vbcrlf &_
    > "<p align='center'>&nbsp;</p>" & vbcrlf &_
    > "<p align='center'><u><strong><font color='#0000FF' size='4'>Business

    Groups
    > " & vbcrlf &_
    > "Potentially Affected</u><br>" & Groups & "</font></strong></u></p>" &
    > vbcrlf &_
    > "<p align='center'>&nbsp;</p>" & vbcrlf &_
    > "<p align='center'><strong><font color='#0000FF' size='4'>Please visit <a
    > href='http://dankait'>http://dankait</a> " & vbcrlf &_
    > "for updates</font></strong></p>" & vbcrlf &_
    > "<p>&nbsp;</p></td>" & vbcrlf &_
    > "</tr>" & vbcrlf &_
    > "</table>" & vbcrlf &_
    > "</html>"
    >
    >
    > .Send
    > End With
    > Set obj_Mail = nothing
    > Set obj_Config = nothing
    > %>
    >
    > I have tried to use the .Importance = 2 and I get the error that this

    object
    > does not support it. The email sends fine, but always comes as normal
    > importance. I have sent it to the Lotus Notes server *which is where it
    > eventually will need to go) and to a hotmail account. It does not show as
    > high priority to either.
    >
    > What am I missing? Thanks ahead of time for any help!
    >
    >
    >
    Jeff Dillon, Oct 29, 2004
    #3
  4. The one that gets through my spam filter:

    "We ship qual1ty med1cations overn1ght to your door!"
    Aaron [SQL Server MVP], Oct 29, 2004
    #4
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Replies:
    5
    Views:
    465
    Darryl L. Pierce
    Jan 30, 2006
  2. Vishnu

    newbie:importance of XML?

    Vishnu, Dec 22, 2003, in forum: XML
    Replies:
    1
    Views:
    904
    Patrick TJ McPhee
    Dec 22, 2003
  3. eas

    terms of importance

    eas, Jan 17, 2004, in forum: C++
    Replies:
    13
    Views:
    584
    Risto Lankinen
    Jan 19, 2004
  4. Replies:
    2
    Views:
    2,325
  5. Whyatt
    Replies:
    1
    Views:
    454
Loading...

Share This Page