Setting Importance....having issues ! ! !

10-29-2004

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:importan ce").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

riority").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 &_
"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</a> " & 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!

10-29-2004

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:importan ce").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

riority").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 &_
> "Network
> Operations " & vbcrlf &_
> "Severity 1 Alert" & vbcrlf &_
> " " & vbcrlf &_
> "Service
Request
> " & vbcrlf &_
> "#: " & Request.Form("ServiceRequestNo") &
> "" & vbcrlf &_
> " size='4'>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</a> " & 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!
>
>
>

10-29-2004

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:importan ce").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

riority").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 &_
> "Network
> Operations " & vbcrlf &_
> "Severity 1 Alert" & vbcrlf &_
> " " & vbcrlf &_
> "Service
Request
> " & vbcrlf &_
> "#: " & Request.Form("ServiceRequestNo") &
> "" & vbcrlf &_
> " size='4'>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</a> " & 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!
>
>
>

10-29-2004

The one that gets through my spam filter:

"We ship qual1ty med1cations overn1ght to your door!"

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Windows XP Pro clean install issues, SP2 issues too...	Howie	Computer Support	9	07-12-2005 04:47 PM
Windows XP Pro clean install issues, SP2 issues too...	Howie	Computer Support	0	07-06-2005 07:12 PM
Re: Windows XP Pro clean install issues, SP2 issues too...	pcbutts1	Computer Support	0	07-06-2005 04:58 PM
Re: Windows XP Pro clean install issues, SP2 issues too...	pcbutts1	Computer Support	0	07-06-2005 04:52 PM
SNMP Issues in Cisco Routers; Vulnerability Issues in TCP	=?iso-8859-1?Q?Frisbee=AE?=	MCSE	0	04-21-2004 03:00 PM