J
Jason Kistler
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
riority").Value = 2
.Item("urn:schemas:mailheader:importance").Value = 2
.Update
End With
With obj_Mail
Set .configuration = obj_config
.To = recipients
.From = "(e-mail address removed)"
.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!
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
riority").Value = 2.Item("urn:schemas:mailheader:importance").Value = 2
.Update
End With
With obj_Mail
Set .configuration = obj_config
.To = recipients
.From = "(e-mail address removed)"
.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!