472,145 Members | 1,460 Online
Bytes | Software Development & Data Engineering Community
Post +

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 472,145 software developers and data experts.

Setting Importance....having issues ! ! !

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:priority").Value = 2
.Item("urn:schemas:mailheader:importance").Value = 2

.Update
End With
With obj_Mail
Set .configuration = obj_config
.To = recipients
.From = "Da*****@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'>&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!

Jul 21 '05 #1
3 3454
http://www.aspfaq.com/2315

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


"Jason Kistler" <ja***********@danka.com> wrote in message
news:eR**************@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: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:priority").Value = 2
.Item("urn:schemas:mailheader:importance").Value = 2

.Update
End With
With obj_Mail
Set .configuration = obj_config
.To = recipients
.From = "Da*****@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'>&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!

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

Jeff
"Jason Kistler" <ja***********@danka.com> wrote in message
news:eR**************@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: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:priority").Value = 2
.Item("urn:schemas:mailheader:importance").Value = 2

.Update
End With
With obj_Mail
Set .configuration = obj_config
.To = recipients
.From = "Da*****@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'>&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!

Jul 21 '05 #3
The one that gets through my spam filter:

"We ship qual1ty med1cations overn1ght to your door!"
Jul 21 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

6 posts views Thread by Kermit Piper | last post: by
4 posts views Thread by Frankie | last post: by
97 posts views Thread by xahlee | last post: by
1 post views Thread by Whyatt | last post: by
reply views Thread by leo001 | last post: by

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.