"Jason Kistler" <jason_kistler@danka.com> wrote in message
news:eRK6q5dvEHA.1452@TK2MSFTNGP11.phx.gbl...
> 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 = "DankaIT@danka.com"
> .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'> </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'> </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'> </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> </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!
>
>
>