--Office XP SP3 and macros--

  • Thread starter Thread starter K-MyL
  • Start date Start date
K

K-MyL

Hi,

I've recently installed the Office XP SP3. I use a short macro to paste the
current date and time into emails' body.
But now running the macro triggers and "Address Book Security" warning.
I don't want to install ClickYES, I don't want to buy a personal digital
certificate for 400$.
I don't want to use Word as my email editor and run the same macro from Word
(there isn't any security warning in this case)
FYI, turning the email format to Rich Text does not give the security
prompt.
I know that this new behavior comes from SP3 and its modified "object model
guard":
"""""Office XP Service Pack 3 adds four more properties to the list of those
blocked in Outlook 2002 -- Body, HTMLBody, Inspector.HTMLEditor, and
Inspector.WordEditor.
http://www.outlookcode.com/d/mapi.htm#htmlbody """"""

Can someone help me please to avoid this new scurity wanring?

Thkx

Here is my macro:

Sub PasteMe()
Set myolapp = CreateObject("Outlook.Application")
Set myItem = myolapp.ActiveInspector.CurrentItem
On Error Resume Next
MyDT = Format(Date, "yyyy-mm-dd") & " " & Format(Time, "hh:mm")
MyStr = "[MyName " & MyDT & "] " & Chr(10) & Chr(10)
With myItem
'Set body format to Rich Text
.BodyFormat = olFormatRichText
.Display
End With

' The next line is responsible for the "Address Book" security warning

myItem.Body = myItem.Body & MyStr
Set myolApp = Nothing
Set myItem = Nothing
End Sub
 
Thkx for the link.

I used Redemption and the security warning disappeared.


Andrew Cushen said:
You don't have many options; which options you DO
have, depend on which version of Outlook you're running.
See http://www.slipstick.com/outlook/esecup.htm#autosec
for an explanation and possible workarounds.

-Andrew Cushen
=============================
-----Original Message-----
Hi,

I've recently installed the Office XP SP3. I use a short macro to paste the
current date and time into emails' body.
But now running the macro triggers and "Address Book Security" warning.
I don't want to install ClickYES, I don't want to buy a personal digital
certificate for 400$.
I don't want to use Word as my email editor and run the same macro from Word
(there isn't any security warning in this case)
FYI, turning the email format to Rich Text does not give the security
prompt.
I know that this new behavior comes from SP3 and its modified "object model
guard":
"""""Office XP Service Pack 3 adds four more properties to the list of those
blocked in Outlook 2002 -- Body, HTMLBody, Inspector.HTMLEditor, and
Inspector.WordEditor.
http://www.outlookcode.com/d/mapi.htm#htmlbody """"""

Can someone help me please to avoid this new scurity wanring?

Thkx

Here is my macro:

Sub PasteMe()
Set myolapp = CreateObject("Outlook.Application")
Set myItem = myolapp.ActiveInspector.CurrentItem
On Error Resume Next
MyDT = Format(Date, "yyyy-mm-dd") & " " & Format (Time, "hh:mm")
MyStr = "[MyName " & MyDT & "] " & Chr(10) & Chr(10)
With myItem
'Set body format to Rich Text
.BodyFormat = olFormatRichText
.Display
End With

' The next line is responsible for the "Address Book" security warning

myItem.Body = myItem.Body & MyStr
Set myolApp = Nothing
Set myItem = Nothing
End Sub


.
Click to expand...
Click to expand...
 
Back
Top