Setting Importance...having issues ! ! !

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Jason Kistler (jason_kistler_at_danka.com)
Date: 10/29/04

Next message: AndreS: "Begginer: problems using automation from ASP"
Messages sorted by: [ date ] [ thread ]

Date: Fri, 29 Oct 2004 14:42:29 -0400

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 &_
"Network
Operations " & vbcrlf &_
"Severity 1 Alert" & vbcrlf &_
" " & vbcrlf &_
"Service Request
" & vbcrlf &_
"#: " & Request.Form("ServiceRequestNo") &
"" & vbcrlf &_
"Description " & Request.Form("System") & " - " &
Request.Form("Impact") & "" & vbcrlf &_
" " & vbcrlf &_
"Business Groups
" & vbcrlf &_
"Potentially Affected " & Groups & "" &
vbcrlf &_
" " & vbcrlf &_
"Please visit <a
href='http://dankait'>http://dankait> " & vbcrlf &_
"for updates" & vbcrlf &_
" </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!

Next message: AndreS: "Begginer: problems using automation from ASP"
Messages sorted by: [ date ] [ thread ]

Relevant Pages

Setting Importance....having issues ! ! !
... I am having some serious issues trying to set the "importance" of an ASP ... Dim Groups ... Set Flds = obj_Config.Fields ... Operations " & vbcrlf &_ ...
(microsoft.public.inetserver.asp.general)
Re: Event Log Query
... Dim gb_echo, gb_popup ... Sub s_initialize ... On Error Goto 0 ...
(microsoft.public.scripting.vbscript)
Re: Eval code and AppDomains
... Crossing app domains and generating these assemblies ... > I needed a way to Eval this string and return a Boolean result. ... > Dim objEval As New EvalProvider ... > sb.Append("Imports System.Data" & vbCrLf) ...
(microsoft.public.dotnet.framework.aspnet)
Re: Using ADODB.Recordset
... If you remove al the vbcrlf statements and replace them with spaces. ... Dim DealID As Long, sSql As String ... Const adOpenForwardOnly As Long = 0 ... Basically, I am grabbing a one row recordset, and i would like to ...
(microsoft.public.excel.programming)
Event Log Query
... I've created a script that does the following: ... Dim objLogFile ... objLog.Write vbCrlf ... Dim intFreeSpace ...
(microsoft.public.scripting.vbscript)