Sending a CDO.Message with high importance?

[Mark]

Okay... Thought I'd try to move away from CDONTS to CDOSYS. The one thing
that's still a puzzle is how to send a CDO.Message so that it shows up with a
high importance/priority flag. I've been googling all morning and have tried
a couple dozen different things that various pages say it the right way, but
so far not a single one has worked.

Never seen so many "answers" to what seems a basic question just so wrong
before.

Thanks
Mark

[Steven Cheng]

Hi Mark,

For setting the priority and importance header of message through CDOsys,
I've performed some tests and here is a general function that send a
message with high importance and urgent priority, it works on my
side(sending to a local exchange server):

===================

Dim oMsg As CDO.Message = New CDO.Message()
Dim iConfg As CDO.Configuration
Dim oFields As ADODB.Fields
Dim oField As ADODB.Field

iConfg = oMsg.Configuration
oFields = iConfg.Fields

oField =
oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
oField.Value = CDO.CdoSendUsing.cdoSendUsingPort

' port that the SMTP server is using.
oField =
oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
oField.Value = 25


' TODO: Replace with your SMTP server.
oField =
oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
oField.Value = "smtpserver"


oField =
oFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
oField.Value = 2 'use NTLM AUTH

oFields.Update()
oMsg.Configuration = iConfg

oMsg.TextBody = "Test message body."
oMsg.Subject = "Test SMTP Message Send using port"
oMsg.From = "test@microsoft.com"
oMsg.To = "test@microsoft.com"



oMsg.Fields.Item("urn:schemas:mailheader:importanc e").Value =
"high" 'you can set [high,normal,low] for this field
oMsg.Fields.Item("urn:schemas:mailheader:priority" ).Value = 1 'you
can set [1, 0 , -1] for this field

oMsg.Fields.Update()

oMsg.Send()

oMsg = Nothing
iConfg = Nothing
oFields = Nothing
oField = Nothing

MessageBox.Show("mail sent!")

End Sub
=======================

Hope this helps.

Sincerely,

Steven Cheng

Microsoft MSDN Online Support Lead



==================================================

Get notification to my posts through email? Please refer to
[url]http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif[/url]
ications.



Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
[url]http://msdn.microsoft.com/subscriptions/support/default.aspx[/url].

==================================================


This posting is provided "AS IS" with no warranties, and confers no rights.

--------------------

>From: =?Utf-8?B?TWFyaw==?= <mmodrall@nospam.nospam>
>Subject: Sending a CDO.Message with high importance?
>Date: Wed, 5 Mar 2008 09:37:07 -0800

>Okay... Thought I'd try to move away from CDONTS to CDOSYS. The one

thing

>that's still a puzzle is how to send a CDO.Message so that it shows up

with a

>high importance/priority flag. I've been googling all morning and have

tried

>a couple dozen different things that various pages say it the right way,

but

>so far not a single one has worked.
>
>Never seen so many "answers" to what seems a basic question just so wrong
>before.
>
>Thanks
>Mark
>
>

[Mark]

Thanks Steven. That worked.

Mark


""Steven Cheng"" wrote:

> Hi Mark,
>
> For setting the priority and importance header of message through CDOsys,
> I've performed some tests and here is a general function that send a
> message with high importance and urgent priority, it works on my
> side(sending to a local exchange server):
>
> ===================
>
> Dim oMsg As CDO.Message = New CDO.Message()
> Dim iConfg As CDO.Configuration
> Dim oFields As ADODB.Fields
> Dim oField As ADODB.Field
>
> iConfg = oMsg.Configuration
> oFields = iConfg.Fields
>
> oField =
> oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
> oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
>
> ' port that the SMTP server is using.
> oField =
> oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
> oField.Value = 25
>
>
> ' TODO: Replace with your SMTP server.
> oField =
> oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> oField.Value = "smtpserver"
>
>
> oField =
> oFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
> oField.Value = 2 'use NTLM AUTH
>
> oFields.Update()
> oMsg.Configuration = iConfg
>
> oMsg.TextBody = "Test message body."
> oMsg.Subject = "Test SMTP Message Send using port"
> oMsg.From = "test@microsoft.com"
> oMsg.To = "test@microsoft.com"
>
>
>
> oMsg.Fields.Item("urn:schemas:mailheader:importanc e").Value =
> "high" 'you can set [high,normal,low] for this field
> oMsg.Fields.Item("urn:schemas:mailheader:priority" ).Value = 1 'you
> can set [1, 0 , -1] for this field
>
> oMsg.Fields.Update()
>
> oMsg.Send()
>
> oMsg = Nothing
> iConfg = Nothing
> oFields = Nothing
> oField = Nothing
>
> MessageBox.Show("mail sent!")
>
> End Sub
> =======================
>
> Hope this helps.
>
> Sincerely,
>
> Steven Cheng
>
> Microsoft MSDN Online Support Lead
>
>
>
> ==================================================
>
> Get notification to my posts through email? Please refer to
> [url]http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif[/url]
> ications.
>
>
>
> Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
> where an initial response from the community or a Microsoft Support
> Engineer within 1 business day is acceptable. Please note that each follow
> up response may take approximately 2 business days as the support
> professional working with you may need further investigation to reach the
> most efficient resolution. The offering is not appropriate for situations
> that require urgent, real-time or phone-based interactions or complex
> project analysis and dump analysis issues. Issues of this nature are best
> handled working with a dedicated Microsoft Support Engineer by contacting
> Microsoft Customer Support Services (CSS) at
> [url]http://msdn.microsoft.com/subscriptions/support/default.aspx[/url].
>
> ==================================================
>
>
> This posting is provided "AS IS" with no warranties, and confers no rights.
>
> --------------------

> >From: =?Utf-8?B?TWFyaw==?= <mmodrall@nospam.nospam>
> >Subject: Sending a CDO.Message with high importance?
> >Date: Wed, 5 Mar 2008 09:37:07 -0800

>

> >Okay... Thought I'd try to move away from CDONTS to CDOSYS. The one

> thing

> >that's still a puzzle is how to send a CDO.Message so that it shows up

> with a

> >high importance/priority flag. I've been googling all morning and have

> tried

> >a couple dozen different things that various pages say it the right way,

> but

> >so far not a single one has worked.
> >
> >Never seen so many "answers" to what seems a basic question just so wrong
> >before.
> >
> >Thanks
> >Mark
> >
> >

>
>