Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)
-   -   Change Sensitivity (http://www.outlookbanter.com/outlook-vba/7283-change-sensitivity.html)

dthmtlgod January 19th 06 07:20 PM

Change Sensitivity
 
I am attempting to change the sensitity of an incoming message.

Sub CustomMailMessageRule(Item As Outlook.MailItem)

If Item.Sensitivity olNormal Then
Set oNewItem = Item.Forward
With oNewItem
.To = "
.Sensitivity = olNormal
.Send
End With
Item.Delete
End If
End Sub


This works, but it won't work on a PRIVATE e-mail. Is there a way to change
this?

Thanks



Eric Legault [MVP - Outlook] January 19th 06 09:15 PM

Change Sensitivity
 
No; if it's read-only in the UI, it's usually read-only in code.

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"dthmtlgod" wrote:

I am attempting to change the sensitity of an incoming message.

Sub CustomMailMessageRule(Item As Outlook.MailItem)

If Item.Sensitivity olNormal Then
Set oNewItem = Item.Forward
With oNewItem
.To = "
.Sensitivity = olNormal
.Send
End With
Item.Delete
End If
End Sub


This works, but it won't work on a PRIVATE e-mail. Is there a way to change
this?

Thanks




dthmtlgod January 20th 06 05:04 PM

Change Sensitivity
 
Thank you. What I did was forward the e-mail as a new mail and I am then
able to send it without a sensitivity flag. It seems to work pretty good
other than the warning about "a program is trying to access e-mail addresses
you have stored in Outlook. Do you want to allow this?"


"Eric Legault [MVP - Outlook]" wrote in
message ...
No; if it's read-only in the UI, it's usually read-only in code.

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"dthmtlgod" wrote:

I am attempting to change the sensitity of an incoming message.

Sub CustomMailMessageRule(Item As Outlook.MailItem)

If Item.Sensitivity olNormal Then
Set oNewItem = Item.Forward
With oNewItem
.To = "
.Sensitivity = olNormal
.Send
End With
Item.Delete
End If
End Sub


This works, but it won't work on a PRIVATE e-mail. Is there a way to
change
this?

Thanks






Eric Legault [MVP - Outlook] January 20th 06 06:46 PM

Change Sensitivity
 
You can use Redemption (http://www.dimastr.com) to bypass that warning. This
also won't happen with OL 2003 if you derive all your variables from the
intrinsic Application object.

More info:

Microsoft Outlook "Object Model Guard" Security Issues for Developers:
http://www.outlookcode.com/d/sec.htm

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"dthmtlgod" wrote:

Thank you. What I did was forward the e-mail as a new mail and I am then
able to send it without a sensitivity flag. It seems to work pretty good
other than the warning about "a program is trying to access e-mail addresses
you have stored in Outlook. Do you want to allow this?"


"Eric Legault [MVP - Outlook]" wrote in
message ...
No; if it's read-only in the UI, it's usually read-only in code.

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"dthmtlgod" wrote:

I am attempting to change the sensitity of an incoming message.

Sub CustomMailMessageRule(Item As Outlook.MailItem)

If Item.Sensitivity olNormal Then
Set oNewItem = Item.Forward
With oNewItem
.To = "
.Sensitivity = olNormal
.Send
End With
Item.Delete
End If
End Sub


This works, but it won't work on a PRIVATE e-mail. Is there a way to
change
this?

Thanks








All times are GMT +1. The time now is 02:46 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com