I have a simple form that emails some values to a department, there is an optional field that when entered will send a copy to that recipient as well. All of this works well but recently I added the ability to set priority for certain types of messages. The priority portion works allright for for some weird reason when the priority is used it is unable to send a copy of the message when the optional field is entered.
Any help would be appreciated..
here is the relevent code...
Any help would be appreciated..
here is the relevent code...
Code:
<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoMessage = CreateObject("CDO.Message")
if (cat = "None" Or cat = "Error Msg: Not Set") then
With cdoMessage.Fields
' for Outlook:
.Item(cdoImportance) = cdoHigh
.Item(cdoPriority) = cdoPriorityUrgent
' for Outlook Express:
.Item("urn:schemas:mailheader:X-Priority") = 1
.Update
End With
End if
'create the mail object and send the details
With cdoMessage
.From = fromemail
.To = toemail
If bcc <> "" Then
.BCC = bcc
End If
.Subject = "Remedy Info"
.HTMLBody = strMessage
.Send
End With
Set cdoMessage = Nothing
%>